Problem mit VBA-Code
Bernd
habe den Code aus dem Forum erhalten ... funktioniert gut, bis auf eine Kleinigkeit. Zu der Zelle B2, die einen Teil des Dateinamens beinhaltet, würde ich gerne dahinter die Zelle B3 zusätzlich einfügen wollen und zwar durch einen Unterstrich verbunden.
Ergebnis sollte sein: B2_B3_TT-MM-JJJJ.xls
Wer kann mir dabei behilflich sein?
Danke schon mal om Voraus.
Gruß
Bernd
PS. Hier der Code ...
Sub speichern()
Dim strName As String
If Worksheets("Kd Name").Range("B2") = "" Then
MsgBox "Bitte Zelle ""B2"" in Tabelle ""Kd Name"" füllen." & Chr(10) & "Der Vorgang wird _
abgebrochen..."
Application.Goto Worksheets("Kd Name").Range("B2")
Exit Sub
Else
strName = ("e:\1Kunden\1Datenaufnahme\" & Worksheets("KD Name").Range("B2") & "_" & Format( _
Date, "DD-MM-YYYY") & ".xls")
ThisWorkbook.SaveAs strName
End If
Application.Quit
End Sub
Anzeige