Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Da fehlt noch was: Selection.Find

Forumthread: Da fehlt noch was: Selection.Find

Da fehlt noch was: Selection.Find
Rolf
Hi Leute,
Da fehlt noch was, das Makro bricht ab, wenn er die Auswahl nicht findet!
Was ist falsch?
Selection.Find(What:=Was1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Activate
If ActiveCell = "" Then
Sheets("Maske").Select
Nein1 = MsgBox("Die Entsprechende Nummer wurde nicht gefunden." & vbCr & "Bitte Prüfen Sie Ihre Eingabe (Gross/Kleinschrift)" & vbCr & "und versuchen Sie es erneut!", vbOKCancel, "Nicht gefunden")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Vielen Dank an alle
Rolf
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Da fehlt noch was: Selection.Find
Andreas
So ungefähr

Sub test()
Was1 = "abc"
On Error GoTo fehl
Selection.Find(What:=Was1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Activate
MsgBox "ok"
Exit Sub
fehl:
MsgBox "haben wir nicht"
Resume fehl2
fehl2:
MsgBox "nach resume"
End Sub

Anzeige
AW: Da fehlt noch was: Selection.Find
ANdreas
Hallo Rolf,
bitte vorher in die VBA-Hilfe schauen, da ist doch ein wunderbares Beispiel für die Find-Methode drin, vor allem wie man das abfragt:
Dim c as Range
Set c = Selection.Find(...)
If Not c is Nothing then
....
Gruß
Andreas
Danke!
29.04.2004 14:40:39
Rolf
Andreas,
Ich benutze die Hilfe eigentlich sehr oft, aber diesesmal habe ich schlicht und ergreifend nicht daran gedacht! *schäm*
Good Luck!
Rolf
Anzeige
AW: Da fehlt noch was: Selection.Find
Rolf
Hi Andreas,
Was ist denn immer noch nicht richtig?
Die Fehlermeldung "With Blockvaraiable nicht definiert"?
With Worksheets("Liste").Range("A:A")
Set c = Selection.Find(What:=Was1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Not c Is Nothing Then
Nein = MsgBox("Zelle nicht gefunden" & vbCr & "Bitte versuchen Sie es erneut!", vbOKOnly, "NICHT GEFUNDEN")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else:
ActiveCell.Activate
Selection.Copy
Sheets("Maske").Select
Danke
Rolf
Anzeige
AW: Da fehlt noch was: Selection.Find
29.04.2004 15:29:24
ANdreas
Hallo Rolf,
Du nutzt doch gar nichts mit With. Warum With wenn Du nirgends ein Anweisung damit ausführst... und Du beendest den Block auch gar nicht.
Schau Dir mal die Hilfe zu With an :-)
Gruß
Andreas
;

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