ich habe folgendes Makro geschrieben (gestartet durch Button) um eine vorgegebene Anzahl von Fragebögen zu erstellen.
Die Fragebögen sollen in einem Ordner auf dem Desktop gespiechert werden welcher aber evtl. erst noch angelegt werden soll.
Ich bekomme das nicht hin, dass er den Ordner erstellt.
Außerdem hängt das Makro an der Stelle, wo es die Inhalte der Boxen auf einem anderen Arbeitsblatt (mit dem Namen "Deckblatt") einfügen soll, es fügt die Inhalte immer auf dem Arbeitsblatt ein, auf dem auch die Buttons sind (Name "Steuerung").
So sieht mein Makro bis jetzt aus...
Private Sub erstellen_Click()
Dim F As String
Dim n As String
Dim a As Integer
Dim i As Integer
Dim Ordner As String
F = FirmaBox()
n = NiederlassungBox()
a = AnzahlBox()
'Ordner auf desktop erstellen'
If Not Dir("%HOMEPATH%\Desktop\Befragung" & F & Format(Date, "dd.mm.yyyy"), vbDirectory) = "%HOMEPATH%\Desktop" Then _
MkDir "%HOMEPATH%\Befragung " & F & " " & Format(Date, "dd.mm.yyyy")
'Fragebogen erstellen'
'Wechsel auf Deckblatt'
Sheets("Deckblatt").Select
'einfügen aus FirmaBox'
Range("D4").Value = F
'einfügen aus NiederlassungBox'
Range("D6").Value = n
'Datum einfügen'
Range("D8").Select
Selection.InsertDateTime DateTimeFormat:="d. MMMM yyyy", InsertAsField:= _
False, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
'Gemäß Anzahl in AnzahlBox abspeichern'
'For-Schleife beginnen'
For i = 1 To a
ActiveWorkbook.SaveAs Filename:=Pfad & "Fragebogen Firma Datum i%.xls", FileFormat _
:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Next i
'For-Schleife beenden wenn i="AnzahlBox"'
End Sub