habe aus dem Forum folgendes Makro:
Option Explicit
Sub suchebuchstaben()
'http://www.herber.de/forum/archiv/336to340/t337991.htm
Dim varFind As Variant
With ActiveSheet
Set varFind = .Cells.Find(What:="T", After:=[a1], LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, searchdirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'Wenn "T" nicht gefunden wird, passiert nichts,
If varFind Is Nothing Then
'sonst wird die Zelle ausgewählt.
Else: varFind.Activate
End If
End With
End Sub
Leider kommt bei mir immer die Fehlermeldung:
Laufzeitfehler 448
Benanntes Argument nicht gefunden
Obwohl es in dem ActiveSheet eine Zelle mit "T" gibt?
Ferner würde bei Erfolg die Zeile markiert - kann die betreffende Zeile
auch in eine neue Tabelle übertragen werden?
Besten Dank!
mfg
Erich
http://www.toolex.de