Fehler bei With Userform1.Combobox....
07.01.2015 16:37:17
Justin
leider saß ich heute den ganzen Tag vor einem Code und bin wahrscheinlich Betriebslind. Leider wirft mir folgender Code ein Fehler in der 6. Zeile von unten auf :-(. Ich raffs nicht, könnt Ihr mir kurz weiterhelfen. LG
Sub Schaltfläche1_Klicken()
Dim lngEnde2 As Long
lngEnde2 = Worksheets("Deckblatt").Range("E65536").End(xlUp).Row
Worksheets("Deckblatt").Rows("1:65536").Hidden = False
Worksheets("Deckblatt").Columns("A:D").Hidden = False
Worksheets("Deckblatt").Columns("H:XFD").Hidden = False
Application.Visible = False
With Worksheets("Deckblatt").UserForm1.ComboBox1.List = Worksheets("Deckblatt").Range("E8:E" & _
lngEnde2).Value
End With
UserForm1.Show
End Sub
Anzeige