Variablen zusammensetzen
03.03.2009 16:42:42
Stefan
ich habe eine Anforderung über einen Button eine Arbeitsmappe unter bestimmten Namen und bestimmten Pfad zu speichern. Alles in VBA, wobei der Name der Arbeitsmappe sich aus 4 Inhalten von Zellen (A1 bis A4) zusammensetzt und der Pfadname einen fixen Teil und einen variablen Teil hat.
Ich bin mit Onkel Google nun schon recht weit gekommen, scheiter jetzt aber kläglich beim Versuch den Pfad zusammenzusetzen aus dem fixen und dem variablen Teil (Variabler Teil ist Zelle A5).
Zur Überprüfung habe ich eine MsgBox eingebaut die den Pfadnamen richtig zusammensetzt - allerdings nur in der MsgBox und nicht beim InitialFileName (siehe Kommentare).
Quelltext start:
--------------------------------------------
Option Explicit
Public Sub test()
Dim strDateiname As String
Dim strGS As String
Dim strAntwort As String
Dim dlg As FileDialog
Dim strPfad As String
Dim strGesamt As String
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
strDateiname = Range("A1").Value & "_" & Range("A2").Value & "_" & Range("A3").Value & "_" & _
Range("A4").Value
strGS = "GS_" & Range("A5").Value ' Variabler Teil vom Pfad
strPfad = "Q:\Pfad\zu\meinem\Ordner\" ' Fixe Teil vom Pfad
strGesamt = strPfad & strGS
MsgBox strGesamt 'MsgBox zum Testen eingefuegt - und hier ist es richtig!!!
With dlg
.InitialFileName = strGesamt & strDateiname 'Hier ist der Fehler, er setzt die beiden _
_
_
_
nicht zusammen!!!
.Show
End With
If dlg.SelectedItems.Count > 0 Then dlg.Execute
Set dlg = Nothing
End Sub
--------------------------------------------
: Quelltext ende
Hat einer eine Idee wie ich den Fehler lösen kann bzw. mir mal die Augen öffnet =]
Vielen Dank schonmal, Stefan