Re: Suchfunktion: Meldung bei erfolgloser Suche?
19.08.2002 17:01:17
Martin Beck
Hallo Marc,Dein Makro durchläuft alle Zeilen und kopiert bei gefunden Werten in die Zwischenablage. Allerdings schließt sich nur an den letzten Kopiervorgang ein Einfügen in Zelle A4 an. Ist das so gewollt? Wenn ja, könntest Du die Schleife von "oben nach unten" laufen lassen und nach dem ersten Treffer mit Exit For abbrechen. Falls nein, bitte noch mal beschreiben, was kopiert und eingefügt werden soll.
Zur "Fehlerbehandlung". Ohne es getestet zu haben und um in Deinem "System" zu bleiben (Alternativen mit "Find" wurden ja schon genannt):
Statt
Sheets("Jan-Feb").Select
For I = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(I, 1) = Wert Then Rows(I).Copy
Next
Sheets("Reservierungen").Select
Range("A4").Select
ActiveSheet.Paste
wie folgt:
Sheets("Jan-Feb").Select
x=0
For I = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(I, 1) = Wert Then Rows(I).Copy
x=x+1
Next I
If X>0 then
Sheets("Reservierungen").Select
Range("A4").Select
ActiveSheet.Paste
Else
Msgbox "Suchbegriff nicht gefunden"
end If
Gruß
Martin Beck