Hallo Ben,
also in deinem vorgestellten Code werden die Zellen A3/B3/C3/E3/F3 geprüft und nicht H3
Die Cells schreibweise bedeutet Cells(3 , Inhalt)
erste Zahl in der Klammer = Zeilennummer
zweite Zahl (Variable) in der Klammer = Spaltennummer, hier Spalte 1-5 also A bis E
Dann ist beim Vergleich noch bedeutend zu wissen, dass eine ComboBox immer Text enthält, auch wenn du eine Zahl in die ComboBox einlesen solltest. Es ist trotzdem ein Text. Wenn du das dann mit echten Zahlen in den Zellen vergleichen willst, dann geht das schief. Da musst du dann vor dem Vergleich die "Textzahl" der ComboBox in eine echte Zahl umwandeln.
Je nachdem um was für Zahlen es sich handelt musst du hierbei CLng = Ganzzahlen oder CDbl = Zahlen vom Typ Double oder CInt = Integer Zahlen verwendet.
Im Beispiel habe ich das mal für Ganzzahlen gemacht. Wenn in den Zellen, mit denen verglichen wird, Text steht, dann kannst du das CLng und die Klammern einfach weg lassen.
Private Sub CommandButton1_Click()
Dim Inhalt As Long
For Inhalt = 1 To 5
If Worksheets("Tabelle1").Cells(3, Inhalt) <> "" Then
If Worksheets("Tabelle1").Cells(3, Inhalt) = CLng(Me.ComboBox1.Value) Then
MsgBox "Wert gefunden"
Else: MsgBox "Wert nicht gefunden"
End If
End If
Next Inhalt
End Sub
Gruß Werner
|