Hallo!
Ich weiß nicht genau, wie man VBA eine Zelleigenschaft abfragt, und zwar speziell, ob die Zelle eine Datumsfeld ist und ein Datum enthält.
Falls die Abfrage true wäre, würde ich gerne diese Zeile komplett in einer bestimmten Farbe markieren wollen.
Kann mir jemand helfen!
Danke im Voraus!
ali drin
Ich weiß nicht genau, wie man VBA eine Zelleigenschaft
abfragt, und zwar speziell, ob die Zelle eine Datumsfeld ist
und ein Datum enthält.
Falls die Abfrage true wäre, würde ich gerne diese Zeile
komplett in einer bestimmten Farbe markieren wollen.
Hi Ali,
ein Ansatz
bed. Formatierung
Formel ist =IstDatum(A1)
Muster Rot
Alt+F11, Einfügen Modul, Code reinkopieren, Editor schliessen.
Function IstDatum(Zelle As Range)
IstDatum = False
On Error GoTo Ende
IstDatum = IsDate(Zelle) = True And Year(Zelle) >= 2000 And Day(Zelle) > 0 And Year(Zelle) = 2000 hält.
Namen festlege: Datum2
=ZELLE.ZUORDNEN(7;Tabelle1!A1)
In A1 gehen und bed. Formatierung:
Formel ist: =UND(ODER(Datum2=„TT.MM.JJJJ“;Datum2=„TTT“;Datum2=„TT.MM.JJ“);JAHR(A1>=2000);TAG(A1)>0)=WAHR
Muster Rot
Gruß
Reinhard
Kann ich nicht irgenwie sowas machen? Aber die If-Bedingung krieg ich nicht hin. Ich möchte eigentlich nur abfragen, ist es Datum, dann mache was…
Sub datum()
Set zellen = Range(„a1:a500“)
For i = 3 To 50
If Cells(i, 1) = IsDate(zellen) Then
For z = 1 To 11
Cells(i, z) = Interior.ColorIndex = 36
Next
End If
Next
End Sub
hi,
wenn du das von Reinhard nicht magst
probiers mal so:
Sub datum()
For zeile = 3 To 50
If IsDate(Cells(zeile, 1)) = True Then
Range(Cells(zeile, 1), Cells(zeile, 11)).Interior.ColorIndex = 36
End If
Next
End Sub
cu Micha