Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA zwei Kriterien in einer Zeile suchen

VBA zwei Kriterien in einer Zeile suchen
Larissa
Hallo,
ich prüfe mit einem Makro in Spalte B, ob eine Belegnummer schon vorhanden ist.
If Range("B:B").Find(Sheets("Einkauf").Range("C4")) Is Nothing Then
GoTo ohnenr
Else
If MsgBox("Die Belegnummer ist bereits vorhanden," & Chr(13) & "sollen die Daten überschrieben werden?", vbQuestion + vbYesNo, "Frage?") = vbNo Then
Exit Sub
End If
End If
Da es vielleicht mal eine Belegnr-Nr. von zwei unterschiedlichen Firmen genutzt wird, möchte ich zur Sicherheit auch noch das Datum überprüfen.
Das Datum soll in Spalte D:D gesucht werden und kommt aus Range("C5")
Vielen Dank für Eure immer sehr geschätzte Hilfe.
Gruß, Larissa

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA zwei Kriterien in einer Zeile suchen
06.10.2009 12:56:00
Matthias5
Hallo Larissa,
If Range("B:B").Find(Sheets("Einkauf").Range("C4")) Is Nothing And Range("D:D").Find(Sheets("Einkauf").Range("C5")) Is Nothing Then
GoTo ohnenr
Else
If MsgBox("Die Belegnummer ist bereits vorhanden," & Chr(13) & "sollen die Daten überschrieben werden?", vbQuestion + vbYesNo, "Frage?") = vbNo Then
Exit Sub
End If
End If
Gruß,
Matthias
Danke Matthias
06.10.2009 22:33:13
Larissa
Danke Matthias, so einfach ist es manchmal - Vielen Dank
VBA zwei Kriterien in einer Zeile suchen
06.10.2009 23:22:10
Larissa
Hallo,
das funktioniert leider noch nicht so ganz. Belenr. und Datum sollten in der selben Zeile gesucht werden. Jetzt geht das Makro weiter, sobald die Rg-Nr gefunden wird, egal was bei dem Datum steht.
Vielen Dank schon mal für Eure Hilfe.
Gruß, Larissa
Anzeige
AW: VBA zwei Kriterien in einer Zeile suchen
07.10.2009 16:15:19
David
Hallo Larissa,
ich verstehe deine Frage nicht ganz:
wenn die Belegnummer GEFUNDEN wird, soll das Datum daneben geprüft werden, oder wenn die Belegnummer NICHT GEFUNDEN wird?
So habe ich das verstanden:
Sub test()
If Not Range("B:B").Find(Sheets("Einkauf").Range("C4")) Is Nothing Then
If Range(Range("B:B").Find(Sheets("Einkauf").Range("C4")).Address).Offset(, 2) = Range("C5") _
Then
If MsgBox("Die Belegnummer ist bereits vorhanden," & Chr(13) & "sollen die Daten ü _
berschrieben werden?", vbQuestion + vbYesNo, "Frage?") = vbNo Then
Exit Sub
End If
Else
'GoTo ohnenr
MsgBox "nicht vorhanden" 'dummy, da Sprungmarke nicht existent
End If
Else
'GoTo ohnenr
MsgBox "nicht vorhanden" 'dummy, da Sprungmarke nicht existent
End If
End Sub

Gruß
David
Anzeige
Perfekt - Danke David
07.10.2009 19:51:11
Larissa
Hallo David,
so ist es perfekt. Nur eine kleine Äanderung - Range("C5") muss Sheets("Einkauf").Range("C5") heißen.
Super, Danke David.
unerwünschtes Verhalten in dem Makro
11.10.2009 08:45:08
Larissa
Guten Morgen,
mir ist in dem Makro von David ein unerwünschtes Verhalten aufgefallen.
Wenn nur ein Teil der Belegnummer übereinstimmt, reagiert das Makro so, als wäre es eine 100%ige Übereinstimmung. Z.B. steht in C4 die Zahl 123 und in Spalte B:B wird die Nr. B123N4 gefunden. Dann ist es für das Makro eine Übereinstimmung.
Wie kann ich das verhindern?
Viele Grüße, Larissa
AW: unerwünschtes Verhalten in dem Makro
11.10.2009 12:30:16
F1
If Not Range("B:B").Find(Sheets("Einkauf").Range("C4"), Lookat:=xlWhole) Is Nothing Then
Anzeige
Danke F1 das scheint zu klappen
11.10.2009 14:00:26
Larissa
oT

56 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige