HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Problem mit VBA-Code
Bernd

Hallo zusammen,
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

AW: Problem mit VBA-Code
D.Saster

Hallo,
du solltest dir mal die Mühe geben, zu versuchen, den Code zu verstehen. Das ist nämlich sehr einfach.
strName = ("e:\1Kunden\1Datenaufnahme\" & Worksheets("KD Name").Range("B2") & "_" Worksheets("KD Name").Range("B3") & "_"& Format(Date, "DD-MM-YYYY") & ".xls")
Gruß
Dierk
AW: Problem mit VBA-Code
Bernd

Hallo Dirk,
danke für deine schnelle Antwort.
Ergebnis ist leider ein Kompilierungsfehler.
Meine Vermutung, es liegt daran, dass die Zeile ... if Worksheets ... vielleicht auch ergänzt werden muss?
Gruß
Bernd
AW: Problem mit VBA-Code
Nepumuk

Hallo,
da fehlte ein et und die Klammern außen kannst du dir sparen.
strName = "E:\1Kunden\1Datenaufnahme\" & Worksheets("KD Name").Range("B2").Value & "_" & _
    Worksheets("KD Name").Range("B3").Value & "_" & Format(Date, "DD-MM-YYYY") & ".xls"

Gruß
Nepumuk
AW: Problem mit VBA-Code
Bernd

Hallo Nepumuk,
herzlichen Dank für deine schnelle Hilfe, funktioniert prima!!!
Gruß
Bernd
AW: Problem mit VBA-Code
Ewald

Hallo Bernd,
so wie ich das sehe fehlt ein "&" Zeichen.
Siehe zwischen den xx Zeichen.
Die xx-Zeichen wieder entfernen.
strName = ("e:\1Kunden\1Datenaufnahme\" & Worksheets("KD Name").Range("B2") & "_" xx & xx Worksheets("KD Name").Range("B3") & "_"& Format(Date, "DD-MM-YYYY") & ".xls")
Gruss Ewald
AW: Problem mit VBA-Code
Bernd

Hallo Ewald,
Danke funktioniert prima!!!
Gruß
Bernd