title image


Smiley VBA: Find
Ich habe folgenden VBA Code:



Dim Ftag As Date

Dim fmon As String

'Makro greift auf Tabelle Feiertage zurück



Sheets("Feiertage").Select

Range("B1").Select



Do Until ActiveCell.Value = ""

Ftag = ActiveCell.Value

fname = ActiveCell.Offset(0, -1).Value

fmon = Mid(Ftag, 4, 2)

Sheets("Kalender").Select

'Den Feiertag suchen

Rows("1:32").Select

On Error Resume Next

Selection.Find(What:="22.10.", After:=ActiveCell, LookIn:=xlValues, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False).Activate





ActiveCell.Interior.ColorIndex = 16

ActiveCell.Offset(0, 1).Interior.ColorIndex = 16

ActiveCell.AddComment.Text fname





Sheets("Feiertage").Select

ActiveCell.Offset(1, 0).Select

Loop





Im Sheet Feiertage stehen normale Daten, also z.b. 1.1.2005. Das Script funktioniert eigentlich wunderbar, solange im Sheet Kalender die Daten als Text eingegeben sind, also auch z.B. 1.1.2005. Nun hab ich im Kalender die Daten nicht mehr als Text eingegeben, sondern als Formel: =DATE($Z$1;1;1)

Und plötzlich funktioniert es nicht mehr mit dem Selection.Find. Das richtige Datum wird nicht mehr gefunden. Weiss jemand warum?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: