Hallo zusammen,
ich habe mal ein kleines Problem.
Wie bekomme ich es hin, dass Excel den Wert einer
Zelle (zB. A2) ausliest und diesen automatisch
als Dateinamen beim Speichern verwendet nach Ausühren eines Makros (halt über ein Makro, bzw.VB).
Danke
Gruß
Doc
Hallo Doc,
das geht so:
Sub Dateiname()
Dim nam As Variant
i = 2 'Zeile
j = 1 'Spalte
Cells(i, j).Select 'Zeile, Spalte, hier A2
nam = Selection.Value 'Dateinamen einlesen
’
'wenn es die Datei schon gibt, folgende Zeile
Workbooks.Open (nam)
’
'wenn es die Datei noch nicht gibt, folgende Zeilen
Set newBook = Workbooks.Add
With newBook
.SaveAs Filename:=CStr(nam) 'Filenamen zuweisen
End With
’
Windows(nam).Activate
’ …
’ neue Datei bearbeiten
’ …
ActiveWorkbook.Save 'speichern
ActiveWorkbook.Close
End Sub
Eleganter geht das mit dem Errorhandler, den man vorher einschaltet, wenn man nicht weiß, ob die Datei schon da ist.
Aber vielleicht hilft das ja schon.
Viele Gruesse
Jutta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Vielen Dank!!! owT
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]