Clever-Excel-Forum

Hallo zusammen,

ist es möglich, eine ComboBox in einem Userform mit Daten (Dropdown) aus einem ausgeblendetem Tabellenblatt (VeryHidden) zu füllen, ohne das Tabellenblatt einblenden und aktivieren/auswählen zu müssen.

Als Ansatz habe ich folgenden Code:

Code:
Private Sub CheckBox1_Click()

Dim rngFunktion As Range

Dim letzteZeile As Integer

With Worksheets("Verantwortliche")

letzteZeile = .Range("A:A").End(xlDown).Row

Set rngFunktion = Worksheets("Verantwortliche").Range(Cells(2, 1), Cells(letzteZeile, 1))

End With

If CheckBox1.Value = True Then

With ComboBox8

    .Locked = False

    .List = rngFunktion.Value

End With

Else

With ComboBox8

    .Locked = True

    .Value = ""

End With

End If

End Sub

Momentan funktioniert dies nur wenn das Tabellenblatt, aus dem die erforderlichen Daten kommen ausgewählt ist.
Im oberen Code wird die List Funktion erst aktiv, wenn die CheckBox ausgewählt wird.

Herzlichen Dank und viele Grüße

Primo

Hatten wir doch gerade erst:
https://www.clever-excel-forum.de/Thread...definieren

Analog umsetzen:

Code:
With Worksheets("Stammdaten")

   Set rnglist = .Range(.Cells(1, 1), .Cells(3, 3))

End With

Beschreibe zukünftig bitte genau, was nicht funktioniert. Dazu gehört mindestens die Angabe der Fehlerzeile, -nummer und -meldung.

Einszeiler reicht:

Code:
combobox1.List= sheets("Verantwortliche").cells(1).currentregion.offset(1).columns(1).specialcells(2).value

Danke euch und entschuldigt den doppelten Thread, ich hatte dies echt nicht mehr auf den Schirm.

Werde ab jetzt immer eine Fehlermeldung hinzufügen.

VG Primo

Primo Centurio

EarlFred

snb

Primo Centurio