VBA Problem?
28.03.2013 11:44:35
Petra
ich habe folgendes Verständnisproblem bei VBA-Makro.
WINDOWS 8
OFFICE 2013
Beispiel 1 dies laeuft nicht
Sub Auto_open()
Sheets("Medis").Visible = True
Sheets("Medis").Select
Dim rngFind As Range
Set rngFind = Worksheets("Medis").Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
_
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If Not rngFind Is Nothing Then
rngFind.Activate
End If
End Sub
Beispiel 2 aber dies laeuft
Sub Auto_open()
Sheets("Dienst eintragen").Visible = True
Sheets("Dienst eintragen").Select
Dim rngFind As Range
Set rngFind = Worksheets("Dienst eintragen").Cells.Find(What:=Date, After:=ActiveCell, LookIn:= _
_
xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If Not rngFind Is Nothing Then
rngFind.Activate
End If
End Sub
Es sind 2 verschiedene Programme, in einem Läuft das Makro und im anderen nicht.
Das aktuelle Datum wird NICHT makiert und es kommt auch keine Fehlermeldung.
Es laüft nur nicht.
Könnte mir da jemand helfen?
Danke...
Petra