wie die Überschrift schon sagt habe ich ein Objektvariablenfehler-Problem.
Ich suche ein Datum bin aber nur an den Monaten und Jahren interessiert um das Monatsweise in einen Tabelle farblich auszuwerten.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich, RaZelle As Range
Dim ABE As Range
Dim ABE2 As Range
Dim datum As Variant
Dim Acell As Range
Dim i As Integer
Dim wert As Range
Dim dat1 As Range
Set RaBereich = Range("E3:E1500 ")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Target.Column = 5 Then
For Each RaZelle In RaBereich
Set Acell = RaZelle.offset(0, -4)
Set ABE = datpro.Range("A20:A2000").Find(Acell.Value, LookIn:=xlValues)
datum = WorksheetFunction.VLookup(Acell, [A3:E1500], 5, False)
'd1 = "1." & Month(datum) & "." & Year(datum) (alter versuch)
'With datum
Set dat1 = DateSerial(Year(datum), Month(datum), 1)
'End With
'd1 = DateValue(d1)
'Set ABE2 = d1
Set wert = datpro.Range("C19:AV19").Find(dat1, LookIn:=xlValues)
Set wert = Cells(ABE.Row, wert.Column)
Set wert.Interior.ColorIndex = 3
Next
End If
End Sub
ist nicht der ganze Code aber in dem fett makrierten Teil bricht Excel ab und gibt den Fehler aus.Da ich nicht mehr weiterweis frage ich doch mal hier nach Hilfe und hoffe das ihr mir helfen könnt.