ich bräuchte Unterstützung bei dem folgenden Code:
Private Sub CommandButton1_Click()
Dim ZelleAE As Range
Set ZelleAE = Sheets("HT").Range("B2:B36").Find(What:=Me.ComboBox1.Value, LookIn:=xlFormulas, _
_
LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 'Sucht _
_
den Wert der Combobox
Me.TextBox6.Value = ZelleAE.Offset(0, -1).Value ' Schreibt den Wert in die Nachbarzelle -1
With Worksheets("Daten").Range("D2").CurrentRegion
.AutoFilter Field:=4, Criteria1:=Me.ComboBox6 & Me.TextBox1
End With
End Sub
Es geht mir um die Zeilen:
With Worksheets("Daten").Range("D2").CurrentRegion
.AutoFilter Field:=4, Criteria1:=Me.ComboBox6 & Me.TextBox1
End With
Wie stelle ich es dar, dass Field variabel ist. Es soll nicht statisch die "4" stehen, sondern je nach dem die Spalte, in dem der Wert durch den unten stehenden Code gefunden wird.
Set ZelleAE = Sheets("HT").Range("B2:B36").Find(What:=Me.ComboBox1.Value, LookIn:=xlFormulas, _
_
LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 'Sucht den Wert der Combobox