18. Jan 2003
Lesedauer 2 Min.
Tipps & Tricks
Zellinhalt als Dateiname für eine Excel-Datei verwenden
Ich möchte die Funktion «Speichern unter...» einer Exceldatei in ein Makro einbeziehen. Das Makro soll den gewünschten Dateinamen automatisch aus einer festgelegten Zelle der vorliegenden Exceltabelle entnehmen und unter diesem Namen speichern. Wie muss die folgende VBA-Zeile umgeschrieben werden, wenn statt «name» der Inhalt einer Zelle als Name übernommen werden soll? ActiveWorkbook.SaveAs Filename:=C:\Eigene Dateien\name.xls
Angenommen, Sie möchten den Inhalt der Zelle B2 als Name verwenden,
Quelle: PCtipp.ch
dann erfüllt folgendes Makro ihren Wunsch:
Quelle: PCtipp.ch
Das Makro übernimmt den Inhalt der Zelle "B2" in die Variable "N". In der ersten Variable "P" wurde der Speicherpfad eingetragen.
Quelle: PCtipp.ch
Quelle: PCtipp.ch
------------------------------
Das Makro zum Kopieren:
Unbedingt die beiden "" durch
Anführungsstriche ersetzetzen!
------------------------------
Sub SpeichernUnter()
Dim N, P As String
P = "C:\Eigene Dateien\"
N = Sheets(1).[B1].Value
ActiveWorkbook.SaveAs _
Filename:=P & N, FileFormat:=xlNormal
End Sub
------------------------------
Kommentare