AW: Bahnhof
02.07.2013 13:32:02
fcs
Hallo Gregor,
leider hab ich ein Problem beim Öffnen deiner hochgeladenen Datei. Es kommt eine Fehermeldung und nach der "Reparatur" durch Excel ist die Datei bis auf 2 Tabellenblätter leer.
Wie bereits geschrieben muss du den Teil deines Codes, der jetzt nach deinem Stop kommt in eien 2. Prozedur verschieben/kopieren, evtl. auch inklusive von Variablendeklarationen. Diese Prozedur muss du dann mit der Weiter-Schaltfläche deines UF starten. Alternativ kannst du den entsprechenden Codeteil auch in die Klick-Ereignis-Prozedur der "Weiter"-Schaltfläche packen.
Gruß
Franz
Beispiel für Code:
'Code in einem allgemeinen Modul
Sub prcUserform_anzeigen()
'Code irgend etwas was du jetzt schon hast vor Anzeige des UF
UserForm1.Show False
End Sub
Sub prcErstellenBlaetter()
Dim wks As Worksheet, wksNeu As Worksheet
Dim Zeile As Long, strName As String
Set wks = ActiveSheet
With wks
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Rows(Zeile).Hidden = False Then
strName = .Cells(Zeile, 1).Text
ActiveWorkbook.Worksheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
Set wksNeu = ActiveSheet
wksNeu.Name = strName
End If
Next
End With
End Sub
'Code für Schaltflächen im Userformim Userform
Private Sub cmbAbbrechen_Click()
Unload Me
End Sub
Private Sub cmbWeiter_Click()
Call prcErstellenBlaetter
Unload Me
End Sub