Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro - Aktiver Zellinhalt in Tabelle suchen ?

Makro - Aktiver Zellinhalt in Tabelle suchen ?
16.09.2004 09:48:37
Stephan
Hallo Forumsmitglieder,
ich versuche gerade krampfhaft ein Makro zu erstellen, mit dem automatisch der Zellinhalt der gerade aktiven Zelle in der Tabelle gesucht wird.
Ich habe versucht, dieses mit dem Makrorecorder zu verwirklichen:

Sub Zellinhalt_suchen()
' Zellinhalt_suchen Makro
' Tastenkombination: Strg+s
Selection.Copy
Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End Sub

Leider sucht er jetzt nicht den aktiven Zellinhalt, sondern immer die Zahl 1, da diese bei der Recorderaufzeichnung zufällig in der aktiven Zelle stand.
Weiß vielleicht jemand, wie dieser VBA-Code abzuändern ist ?
Grüße Stephan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Aktiver Zellinhalt in Tabelle suchen ?
16.09.2004 09:55:14
Carsten
Hallo Stephan,
hast Du es schon mal damit versucht.
If InStr(UCase(ActiveCell.Offset(0, 0)), UCase("1")) = 0 Or _
ActiveCell.Offset(0, 0) = "" _
Then
AW: Makro - Aktiver Zellinhalt in Tabelle suchen ?
ypsilon
hi Stephan,
so gehts:


Sub Zellinhalt_suchen()
Cells.Find(What:=ActiveCell.Value).Activate
End Sub

cu Micha
Danke für die schnelle Antwort, funktioniert prima
16.09.2004 11:04:02
Stephan
o.T.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige