Datumsformat
Fritz
In Spalte "A" stehen Datumswerte eines Jahreskalenders, die ich in Spalte "B" kopiert und mit "dddd" formatiert habe.
Wenn ich nun den Wochentag vergleichen möchte mit einem Wert einer anderen Zelle in einem anderen Tabellenblatt, zeigt
mir die Variable r = Activecell.Row zwar das richtige Datum "unter der Formatierung" an, aber ich bekomme einen Lauffehler.
(438, Object unterstützt diese Eigenschaft oder Methode nicht).
Habe ich den Wochentag als Textstring in der Zelle Cells(r, 2), klappts.
Kann ich den Datumswert mit einem kleinen Makro in den jeweiligen Textstring umwandeln?
Oder gibt's was, dass Excel z.B. das Datum 24.02.04 liest, aber "Montag" daraus macht?
Für Hilfe wie immer sehr dankbar wäre
Fritz
Hier mein Codefragment:
Sub BelegteZeiten()
Dim tbs As Worksheet, tbk As Worksheet
Dim i%, r%, c%
i = 1
Set tbs = Worksheets("Start")
Set tbk = Worksheets("Kalender")
r = ActiveCell.row
c = ActiveCell.Column
If tbk(Cells(r, 2)).Value = tbs.Range("F33") Then _
tbk.Cells (r, 2).Interior.ColorIndex = 5
End Sub