Hai Leute,
habe folgendes Problem, mein Makro soll eine Mappe speichern und vorher noch über eine If Abfrage den Pfad einstellen.
Bisher schaffe ich das nur mit einem Namen, hier meine Sub
Sub SpeichernUnter()
Cells(1, 5) = Application.UserName
Speicher = InputBox("Speicher Name : ")
Cells(1, 2) = Speicher
Dim DName, Dateiname, Pfad
If Cells(1, 7) = "u.maulbetsch" Then
Pfad = "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Makro\UM"
DName = Cells(1, 2)
Dateiname = Pfad & "\" & DName & ".xls"
ThisWorkbook.SaveAs Filename:=Dateiname
End If
End Sub
bspw. gibt es auch noch einen r.bosch, der dann im Ordner C:\\\\RB gespeichert werden soll usw.
Hoffe jemand kann mir sagen wie meine Sub aussehen muss, Danke junny
Kolti
