objektvariablen fehler 424
david
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
Da ich nicht mehr weiterweis frage ich doch mal hier nach Hilfe und hoffe das ihr mir helfen könnt.
Anzeige