Datums select mit Makro funktioniert nicht ?!
02.10.2005 10:41:32
Heribert
Mein Problem : Makro:Springe in Zeile mit akt. Datum,
Ich finde nicht heraus warum es bei mir nicht funktionieren will.
Es kommt keine Fehlermeldung, aber die Zeile wird auch nicht angesprungen.
Liegt es doch an der Formatierung (TTT TT.MM.JJJ) der Zellen und Datum fortlfd. geliefert mit A1+1 usw.
Zuletzt hatte ich dieses
MAKRO von Nepomuk (Danke nochmals) ausprobiert.
Private Sub Workbook_Open()
Worksheets("Tabelle1").Activate
Call Tabelle1.Worksheet_Activate
End Sub
In das Klassenmodul der Tabelle:
Public Sub Worksheet_Activate()
Dim objRange As Range
Set objRange = Columns(1).Find(What:=Date, _
LookIn:=xlFormulas, lookat:=xlWhole)
If Not objRange Is Nothing Then objRange.Select
Set objRange = Nothing
End Sub
***********************************************
Weiss jemand von euch hier noch eine Lösung?
Besten Dank
Gruss Heribert
Die Datei https://www.herber.de/bbs/user/27110.xls wurde aus Datenschutzgründen gelöscht