|
Hallo ihr Lieben,
ich habe noch mal eine Frage, ich habe eine Userform mit einer Combobox. Wenn ich aus der dazugehörigen Drop-Down-Liste einen Wert ausgesucht habe und auf den darauf folgenden Button "OK" klicke, soll die Zeile, in der der Wert aus der Combobox eintragen werden soll auf den gleichen Inhalt kontrolliert werden.
Also in dem Fall, soll der Wert in "H3" eingetragen werden, das funktioniert auch. Aber gleichzeitig bzw. vorher soll geprüft werden, ob sich in der Zeile, die im grunde nur 5 Zellen besteht, schon der gleiche Wert befinden.
Wenn nicht, soll eingetragen werden, wenn sich der Wert darin befindet, dann soll das im Grunde auf ein anderes Blatt eingetragen werden.
Bisher habe ich das hier, aber funktioniert so nicht:
For Inhalt = 1 To 5
If Worksheets("Tabelle1").Cells(3, Inhalt) <> "" Then
If Worksheets("Tabelle1").Cells(3, Inhalt).Contains(Finden) Then
MsgBox "Wert gefunden"
Else: MsgBox "Wert nicht gefunden"
End If
End If
Next Inhalt
Vielleicht hat ja jemand eine Idee und sieht meinen Denkfehler :)
|