Nochmals habe Probleme mit .show

Da anscheinend gestern mir keiner mehrhelfen konnte und heute mein Beitrag vergessen wurde (ist halt so man schaut sich immer nur die obersten an)schreibe ich meinen Beitrag von gestern hier nochmals in der Hoffnung und mit der Bitte um Hilfe:
Hallo,
ich habe folgendes Problem:
Rufe aus einem UserForm eine Kette von UserForm's (alle hintereinander)mit einem Button bei dem ich ein Tag hinterlegt habe das ich in eine Systemweite Variable deklariere auf.(Habe drei versch. UserForm Hauptmenüs in der ich die Kette jew. mit einem anderen Tag aufrufe)
Bevor ich diese Tag-Variante eingebaut habe lief es einwandfrei meine Kette bestand aus 5 einzelnen UserForm mit den Namen Schlü_1 bis Schlü_5,
jetzt hatte ich schon Probleme das erste UserForm (Schlü_1) aufzurufen und bekam folgende Fehlermeldung:
Laufzeitfehler 424
Objekt erforderlich
nach dem Debuggen war die Zeile mit dem .Show Befehl gelb hinterlegt.
Das aufrufen der ersten UserForm konnte ich nun umgehen in dem ich das UserForm nach Schlüsseln umbenannt habe.
Allerdings habe ich jetzt selbe Problem wenn ich vom ersten UserForm (Schlüsseln) das zweite in der Kette (Schlü_2) aufrufe und hier hilft auch nicht dieses UserForm umzubennen.
Ich bin ratlos, kann mir bitte hier jemand helfen, weiß jemand Rat.
Danke im Voraus
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter


Private Sub UserForm_Initialize()
Dim iRow, iRowL As Integer
Label4.Caption = Gruppenwahl_1
iRowL = Sheets("Custtabblatt").Cells(Rows.Count, 7).End(xlUp).Row
If Gruppenwahl_1 = "Herren" Then
For iRow = 1 To iRowL
If Not IsEmpty(Sheets("Custtabblatt").Cells(iRow, 7)) Then
If Sheets("Custtabblatt").Cells(iRow, 4).Value = "Hr." And Sheets("Custtabblatt").Cells(iRow, 3).Value = Spll Then
KlasseComboBox.AddItem Sheets("Custtabblatt").Cells(iRow, 7).Value
End If
End If
Next iRow
ElseIf Gruppenwahl_1 = "Damen" Then
For iRow = 1 To iRowL
If Not IsEmpty(Sheets("Custtabblatt").Cells(iRow, 7)) And Sheets("Custtabblatt").Cells(iRow, 3).Value = Spll Then
If Sheets("Custtabblatt").Cells(iRow, 4).Value = "Da." Then
KlasseComboBox.AddItem Sheets("Custtabblatt").Cells(iRow, 7).Value
End If
End If
Next iRow
ElseIf Gruppenwahl_1 = "Jugend" Then
For iRow = 1 To iRowL
If Not IsEmpty(Sheets("Custtabblatt").Cells(iRow, 7)) And Sheets("Custtabblatt").Cells(iRow, 3).Value = Spll Then
If Sheets("Custtabblatt").Cells(iRow, 4).Value = "Jgd." Then
KlasseComboBox.AddItem Sheets("Custtabblatt").Cells(iRow, 7).Value
End If
End If
Next iRow
End If
Unload Schlü_1  ' diese Userform gibt es nicht 
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread