09.04.2022, 10:27
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?
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
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 IfIch 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