Blatt einzeln mit Pfadangabe speichern
06.02.2005 08:33:35
S. Jahns
ich bastel seit einigen Tagen an einer Arbeitsmappe herum. Viele Tips hab' ich hier bei euch gefunden. Zuletzt bleibt ein kleines Problem.
Aus dem Tabellenblatt "Rechnung" speicher ich die Mappe mit der Rechnungsnummer die sich in "G21" befindet. Das klappt. Es soll aber nicht die ganze Mappe gespeichert werden, sondern nur die Rechnung und die im Ordner Rechnungen. Aus einem Tabellenblatt "Lohn" möchte ich dann die Lohnabrechnung speichern, wieder einzeln im Ordner Lohnabrechnung. Bis jetzt sieht mein Makro so aus:
Sub speichern()
ort = Range("g21")
If Len(ort) = 0 Then
MsgBox ("Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!")
Else
ActiveWorkbook.SaveAs FileName:=ort & ".xls"
End If
End Sub
Gruß Sabine