Hallo und guten Tag an alle Excel Fachleute,
mein Problem ist, ich habe eine Excel Arbeitsmappe mit der ich Rechnungen erstelle.
Sheets in der Mappe sind: Rechnungen, Kunden, Artikel und Rabattstaffel.
Ich möchte nun aus der Arbeitsmappe nur das Sheet „Rechnungen“ über eine Schaltfläche unter vergabe eines neuen Dateinamens in C:\Rechnungen speichern.
Habe von VBA aber keine Ahnung!!!
Könnt ihr mir da eventuell weiter helfen.
Gruß an alle Excel Fachleute
Jürgen Hellweg
mein Problem ist, ich habe eine Excel Arbeitsmappe mit der ich
Rechnungen erstelle.
Sheets in der Mappe sind: Rechnungen, Kunden, Artikel und
Rabattstaffel.Ich möchte nun aus der Arbeitsmappe nur das Sheet „Rechnungen“
über eine Schaltfläche unter vergabe eines neuen Dateinamens
in C:\Rechnungen speichern.
Hallo Jürgen,
unter welchem neuen Dateinamen denn?
Gruß
Reinhard
Hallo Reinhard,
ich wollte eigentlich den Dateinamen aus dem Rechnungsempfänger und der Rechnungsnummer generieren.
Ist so etwas zu realisieren?
gruß
jürgen
ich wollte eigentlich den Dateinamen aus dem
Rechnungsempfänger und der Rechnungsnummer generieren.
Ist so etwas zu realisieren?
ja.
Hallo Jürgen,
aber wo stehen die?
Gib mal bitte mehr Details preis.
Du hast deine Datei und was da passieren soll vor Augen, ich/wir nicht.
Gruß
Reinhard
Hallo.
Ich würde es so machen.
Hab es jetzt nicht ausprobiert, sollte aber funktionieren
Ein Tabellenblatt in Excel mit den Namen „FORMEL“ erstellen.
In Zelle A1 :
=(und die Verlinkung (Zelle) auf den Dateinamen, welchen du wahrscheinlich mit Excel vergibst)
Zelle A2
=(und die Verlinkung (Zelle) auf die laufende Artikelnummer
Zelle A3
=A1 & „Nr“ & A2
Sub Rechnungspeichern ()
Sheets(„Formel“).select
Rechnung = Range (“A3”).Value
Rechnungsname = “C:\Rechnung” & Rechnung ‚Hier wird der Pfad und der Rechnungsname festgelegt
Sheets(„Rechnungen“).Select
Sheets(„Rechnungen“).Copy
ChDir „C:\Rechnung“ ‚Hier muss der Pfad stehen, wo sich dein Hauptprogramm befindet
ActiveWorkbook.SaveAs Filename:= _
(Rechnungsname), FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End Sub
Mit freundlichen Grüßen User2000
hallo user2000,
danke für die schnelle hilfe, werde ich gleich mal ausprobieren.
gruß
jürgen
Hallo Reinhard,
der Rechnungsempfänger steht in „A10“ die Rechnungsnummer steht in „G11“.
Hier raus sollte sich eigentlich der neue Dateiname ergeben.
gruß
jürgen
Hallo Reinhard,
der Rechnungsempfänger steht in „A10“ die Rechnungsnummer steht in „G11“.
Hier raus sollte sich eigentlich der neue Dateiname ergeben.
Die einzelnen Rechnungen sollten dan in C:\Rechnungen unter dem neuen Dateinamen bestehend aus „A10“ und „G11“ gespeichert werden.
So wie es jetzt ist, speichere ich jedesmal die gesamte Arbeitsmappe.
gruß
jürgen
Die einzelnen Rechnungen sollten dan in C:\Rechnungen unter
dem neuen Dateinamen bestehend aus „A10“ und „G11“ gespeichert
werden.
Hallo Jürgen,
als Ansatz:
Sub Speicher()
Dim Datei As String
Const Pfad As String = "C:\Rechnungen\"
Datei = Range("A10") & Range("G11") & ".xls"
ThisWorkbook.Worksheets("Rechnungen").Copy
ActiveWorkbook.SaveAs Pfad & Datei
ActiveWorkbook.Close
End Sub
Gruß
Reinhard
Hallo Reinhard,
super genau so habe ich mir das vorgestellt.
Danke dir für die promte Hilfe.
Gruß an dich und alle Excel Fachleute
Jürgen Hellweg
Artikel ist damit erledigt.