VBA: String zusammenbauen & abgleichen

[HAMRacer44]

Schönen Samstag zusammen,

hätte eine kleine Frage, stehe ziemlich auf dem Schlauch.

Ich habe eine Userform, in der ich verschiedene Übungen (Fitnessstudio) mit deren Widerstand und etwaigem Zusatzequipment eingebe. Diese Einträge werden dann in Tabelle10 in die nächsten freien Zeilen in Spalten B-D eingetragen.

Nun möchte ich beim Eintragen einer Übung prüfen, ob die Kombination der Übung (also Widerstand und Equipment) bereits existiert bzw. in der Tabelle vorhanden ist. Hierfür habe ich versucht einen String zusammenzubauen und den dann auf die Einträge der UserForm zu prüfen.

Mein Problem ist nun: Wie kann ich VBA dazu bringen, dass er in der Zeile der gefundenen Übung auch die Spalten C und D durchsucht und die Einträge mit dem String "Übung" abgleicht?

Code:

Dim GefundenTab10 As Range
Dim Übung As String

Set GefundenTab10 = Tabelle10.Range("B6:B299").Find(frmKrafttrainingÜbungHinzufügen.cboWiderstand.Value, , xlValues, xlWhole)     'Sucht auf der Krafttrainings-Startseite nach dem Übungsnamen
Übung = UserForm.txtÜbungsname.Value & UserForm.cboWiderstand.Value & UserForm.cboZusatzequipment.Value


[color=#333333][size=small][font=Monaco, Consolas, Courier, monospace]If Übung = GefundenTab10.Value & GefundenTab10.Offset(0, 1).Value & GefundenTab10.Offset(0, 2).Value Then    'Diese Zeile wird vom Debugger markiert[/font][/size][/color]
    MsgBox "Diese Übung ist bereits identisch vorhanden"
End If

Ich hoffe, ich habe mein Problem einigermaßen klar und verständlich ausgedrückt. Falls etwas nicht klar sein sollte, könnt ihr euch gerne melden. 

Danke euch im Voraus und lieben Gruß,
Domi

[shift-del]

Moin

Warum mit Userform?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1	Übung	Widerstand	Zusatzeqipment	Spalte1
2	G	750	WWW	WAHR
3	B	140	nix	FALSCH
4	T	100	nix	FALSCH
5	G	750	WWW	WAHR

Zelle	Formel
D2	=ZÄHLENWENNS([Übung];[@Übung];[Widerstand];[@Widerstand];[Zusatzeqipment];[@Zusatzeqipment])>1

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[HAMRacer44]

Hallo shift-del,

danke für deine Antwort.

Habe deine Lösung implementiert und funktioniert perfekt.

Manchmal sieht man auch die einfachsten Sachen nicht... Danke

Schönes WE und Gruß
Domi