geschützter Bereich und ListFillRange, Probleme!
07.08.2006 11:02:27
stefanseevetal
Ich habe ein Problem mit meiner Combobox. Ursprünglich hatte ich mit ... .Range("D3").CurrentRegion.Address gearbeitet, doch sobald ich das Tabellenblatt "Eingabebereiche" schütze, funktioniert dieser Befehl nicht mehr (dieser Befehl kann in einer geschützen Tabelle nicht verwendet werden). Deshalb habe ich es wie folgt geändert, doch das funktioniert auch nicht (Laufzeitfehler 1004):
Private Sub ComboBox3_GotFocus()
Dim letzteZeile As Long
letzteZeile = Sheets("Eingabebereiche").Cells(Rows.Count, 4).End(xlUp).Row
ComboBox3.ListFillRange = "Eingabebereiche!" & Sheets("Eingabebereiche").Range(Cells(3, 4), Cells(letzteZeile, 4)).Address
End Sub
Kann mir da jemand helfen?
Danke und Gruß,
Stefan