Microsoft Excel

Herbers Excel/VBA-Archiv

Makro - Aktiver Zellinhalt in Tabelle suchen ?

Betrifft: Makro - Aktiver Zellinhalt in Tabelle suchen ? von: Stephan
Geschrieben am: 16.09.2004 09:48:37

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
  


Betrifft: AW: Makro - Aktiver Zellinhalt in Tabelle suchen ? von: Carsten
Geschrieben am: 16.09.2004 09:55:14

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


  


Betrifft: AW: Makro - Aktiver Zellinhalt in Tabelle suchen ? von: ypsilon
Geschrieben am: 16.09.2004 09:57:21

hi Stephan,
so gehts:

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


cu Micha


  


Betrifft: Danke für die schnelle Antwort, funktioniert prima von: Stephan
Geschrieben am: 16.09.2004 11:04:02

o.T.


 

Beiträge aus den Excel-Beispielen zum Thema "Makro - Aktiver Zellinhalt in Tabelle suchen ?"