Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach Begriff suchen

Forumthread: nach Begriff suchen

nach Begriff suchen
Jorgo
Hallo,
und zwar hab ich ein problem.. Per Makro wird bei mir ein Wort in meiner Tabelle gesucht und dann wird die Zelle aktiviert. jetzt is das problem, wenn das Wort in meiner Tabelle nicht vorhanden.. Es kommt dann eine Fehlermeldung, aber stattdessen, sollte kommen, dass das Wort nicht gefunden worden ist.
hab kA wie ich das machen soll und brauch eure hilfe dafür!
Vielen dank
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: nach Begriff suchen
21.02.2011 15:12:16
Josef

Hallo Jorgo,
in der dritten Zeile deines Makros fehlt ein Punkt!

Gruß Sepp

Anzeige
Sorry Sepp :-( o.w.T.
21.02.2011 15:13:44
Reinhard

Wo ist der Code? o.w.T.
21.02.2011 15:12:46
Reinhard

AW: Wo ist der Code? o.w.T.
21.02.2011 15:25:46
Jorgo
Range("A1").Select
Cells.Find(What:="WARNUNG", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True).Activate
Sorry xD ich dachte ich hät ihn reinkopiert
Anzeige
AW: Wo ist der Code? o.w.T.
21.02.2011 15:31:19
Josef

Hallo Jorgo,
Sub jorgo()
  Dim rng As Range
  
  Set rng = Cells.Find(What:="WARNUNG", After:=Range("A1"), LookIn:=xlValues, LookAt:=xlPart, _
    SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)
  
  If Not rng Is Nothing Then
    Application.Goto rng
  Else
    MsgBox "Nada!"
  End If
  
  Set rng = Nothing
End Sub


Gruß Sepp

Anzeige
AW: Wo ist der Code? o.w.T.
21.02.2011 15:33:36
Jorgo
Danke =) Genau das wollte ich =)
AW: Wo ist der Code? o.w.T.
21.02.2011 15:37:33
Reinhard
Hallo Jorgo, 

Option Explicit
Sub tt2()
Dim Such As Range
Set Such = Cells.Find(What:="WARNUNG", After:=Range("A1"), LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True)
If Not Such Is Nothing Then
Such.Activate
Else
MsgBox "nicht gefunden"
End If
End Sub

Gruß
Reinhard
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