Dateiname generieren
04.11.2005 09:59:27
schnubbel
ich brauch hilfe...
ich möchte aus zwei zellen einen dateinamen kreieren
ich habe schon folgendes:
Private Sub CommandButton2_Click()
' RG_speichern Makro
' Makro am 11.07.2004 von Barbara Raith aufgezeichnet
Dim Datname
Sheets("Rechnung").Select
Datname = Cells(22, 3).Value
ActiveWorkbook.SaveAs Filename:= _
"C:\Exner Reifen\Einlagerungs-Aufträge\ " & Datname & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
jetzt fehlt mir nur noch der kick für die zweite zelle
gruss
Anzeige