vergleich combobox
05.05.2009 18:33:14
ben
habe folgendes problem
in der spalte A stehen die Zahlen 1 bis 5 untereinander.
Jetzt kann ich mittels einer Combobox (welche die Zahlen 1-5 ebenfalls enthält) eine Zahl auswählen.
Danach soll ein Abgleich erfolgen und wenn er die in der combobox gewählte zahl findet soll er in der Spalte B in die entsprechende Zeile "gefunden" schreiben.
Hier mein Code der leider nicht funktioniert:
Private Sub CommandButton1_Click()
For a = 1 To 5
If Me.ComboBox1.Value = Worksheets("1").Cells(a, 1).Value Then Worksheets("1").Cells(a, 2) = " _
gefunden"
Exit For
End If
Next a
Unload Me
End Sub
danke mfg
Anzeige