Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1952to1956
1952to1956
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt von 2 Textboxen in Datei prüfen dann....

Forumthread: Inhalt von 2 Textboxen in Datei prüfen dann....

Inhalt von 2 Textboxen in Datei prüfen dann....
17.11.2023 10:49:43
Jürgen
Hallo zusammen,

ich habe eine Excel Datei in der beim Start eine Userform aufgerufen wird.
In dieser Userform sind 2 Textboxen (diese heißen: Label und Moved). Nach der Eingabe wird die Datei Austausch.xlsx geöffnet, nach der ersten freien Zeile der Spalte "A" gesucht und der Inhalt der Textboxen dann entsprechend übergeben.

Jetzt ist aber aufgefallen, das hier zum Teil Doppeleintragungen entstehen. Um dies zu vermeiden, wollte ich vor dem Eintragen eine Prüfung der Spalten C und G mit dem Inhalt der beiden Textboxen erstellen. Sollte der Inhalt der Textbox "Label" (Spalte C)und der Inhalt der Textbox "Moved" (Spalte G) identisch sein, wird nichts eingetragen, eine Meldung über einen Doppeleintrag angezeigt und Makro beendet. Wenn nicht identisch, dann in die Datei eintragen.

Nach etwas recherchieren, heißt hier die Lösung anscheinend IF-THEN. Ich habe mir auch bereits einige Codes angeschaut und probiert aber das überschreitet mein "können" in VBA und bräuchte somit etwas Hilfe.

Anbei habe ich eine Datei hochgeladen, wie die "Austausch" Datei aufgebaut ist. https://www.herber.de/bbs/user/164378.xlsx

Vielen Dank schon mal im voraus!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt von 2 Textboxen in Datei prüfen dann....
17.11.2023 13:07:38
Alwin Weisangler
Hallo Jürgen,

beispielhaft für Textboxen als Active-X Steuerelement im Tabellenblatt wäre es so: 


Option Explicit



Sub ExistenzAbfrage()

    Dim strgBox$, i&

    With Tabelle1

        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

            strgBox = strgBox & .Cells(i, 3) & .Cells(i, 7) & "~~"

        Next i

        If .TextBox1 > "" And .TextBox2 > "" And InStr(1, strgBox, .TextBox1, vbTextCompare) = 0 Then

            MsgBox "Neuer Eintrag"

        End If

    End With

End Sub


Gruß Uwe
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige