Hi ich habe das Problem das ich die ComboBox nicht mit der liste befült bekomme ich habe jetzt schon so viele möglichkeiten probiert aber schaffe es nicht. mein fehler ist beim beschreiben der zeile.. " DLG_Bearbeiten.CBO_Bearbeiten.RowSource = ". Der rest würde soweit passen ich finde die richtige Spalte in Zeile 2 aber ich schaffe es nicht ohne den SpaltenBuchstaben.
Private Sub CMD_Kunden_Click()
Dim Spalte
Dim ZeileEnde As Integer
Dim C
ZeileEnde = Sheets("Kunden").Cells(Rows.Count, 1).End(xlUp).Row
'------- Eingabe: ----------------------------------------------------- (Suchbegrif = "Name Gesamt")
Set C = Rows(2).Find("Name Gesamt:", LookIn:=xlValues, LookAt:=xlWhole)
'----------------------------------------------------------------------
If Not C Is Nothing Then
Spalte = C.Column
End If
DLG_Bearbeiten.CBO_Bearbeiten.RowSource = _
Worksheets("Kunden").Cells(3, Spalte).Value, Worksheets("Kunden").Cells(ZeileEnde, Spalte).value
|