VBA Tabelle nach zwei Bedienungen durchsuchen

Hallo zusammen!
Ich habe heute wieder eine Frage an Euch zu einem VBA-Problem, bei dem ich nicht weiter komme:
Ich habe zwei Tabellenblätter.
Ein mal ein "Eingabeblatt" wo ich eine Start-Stadt und eine Ziel-Postleitzahl eingeben muss.
Zum zweiten gibt es ein "Datenbankblatt" in dem unter anderem die Start-Städte und eventuelle Ziel-Postleitzahlen stehen können.
Hier mal ein Screenshot von dem Datenbankblatt.

Jetzt möchte ich eigentlich nur, dass wenn ich im "Eingabeblatt" meine Eingaben gemacht habe (Stadt-Stadt und Ziel-Postleitzahl) Excel im Hintergrund prüft, ob es zu dieser Start-Stadt einen passenden Eintrag der Ziel-Postleitzahl gibt. Wenn ja, dann brauche ich nur eine MsgBox, wenn nein, soll nichts weiter passieren.
Jemand eine Idee wie ich das umsetzten kann?
Gruß
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Adr1 As String, rFind As Range, SuName As String Private Sub Worksheet_Change(ByVal Target As Range) 'Prüfung bei Eingabe PLZ in Zelle C2 If Target.Column = 3 And Target.Value "" Then With Worksheets("Datenbank") SuName = Target.Offset(0, -1).Value Set rFind = .Columns(2).Find(What:=SuName, After:=Range("B1"), LookIn:= _ xlValues, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False) If Not rFind Is Nothing Then Adr1 = rFind.Address Txt = Empty Do If rFind.Cells(1, 2) = Target.Value Then If Txt "" Then Txt = Txt & Chr(10) Txt = Txt & rFind.Cells(1, 0) & " " & rFind.Cells(1, 3) End If Set rFind = .Columns(2).FindNext(After:=rFind) Loop Until rFind.Address = Adr1 MsgBox Txt End If End With End If End Sub

Hallo Piet,
vielen Dank für deine Antwort.
Ich versuche mich gerade an deinem Code, komme da aber da noch nicht ganz klar, vielleicht hilft es, wenn etwas genauer meine Zellstruktur beschreibe:
1.) "Eingabeblatt"
Heißt in Wirklichkeit z. B. "ESS". Somit ist in diesem Fall die Start-Stadt (nämlich Essen)
immer vorgegeben (es gibt aber noch weitere Tabellenblätter mit weiteren Städten).
Ich gebe die Postleitzahl im Feld "B35" ein
2.) "Datenbankblatt"
Heißt in Wirklichkeit immer "Vereinbarung" und sieht wie auf meinem Screenshot aus.
Der erste Landeort befindet sich immer in Zelle D19 (und die Liste geht bis D1500)
Die erste Postleitzahl befindet sich in der Zelle E19 (und die Liste geht bis E1500)
3.)
Zum Verständnis: In Zelle I19 würden sich jetzt Geldbeträge befinden (passend halt zur Start-Stadt und Postleitzahl).
4a.) Schön wäre jetzt also, wenn mittels VBA geprüft würde, ob es eine Vereinbarung zu der passenden Star-Stadt und der Postleitzahl gibt und wenn ja, wenn der Geldbetrag in der MsgBox angezeigt wird.
4b.) Ich habe mir noch überlegt, ob es für mich nicht mit einer Formel einfacher wäre (warum mit einer Kanone auf Spatzen schießen?). Gibt es eine Formel, bei der ich prüfe, ob es einen vereinbarten Geldbetrag zur Start-Stadt mit einer gewissen Postleitzahl gibt? Wenn "ja", soll der dazugehörige Geldbetrag angezeigt werden, bei "nein" soll nichts weiter geschehen.
Gruß
Christian

Beliebteste Forumthreads (12 Monate)

VBA Tabelle nach zwei Bedienungen durchsuchen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Tabelle nach zwei Bedienungen durchsuchen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread