Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige