Hallo liebe VBA ExpertInnen,

Ich bin neu im Excel/VBA Business und habe daher ein paar Fragen. Ich hoffe man kann mir helfen ;)

Ich möchte einen Code schreiben, der es mir erlaubt, dass wenn ich ein Startdatum und ein Enddatum in festgelegte Zellen eingebe (C5 und C6), dass dieser Zeitraum in einer Tabelle markiert wird (farbig + String) wd

Hoffe das ist einw enig verständlich. Ich werd gleich noch Bilder hinzufügen zur Verständlichkeit.

Leider will mein Code nicht so ganz hinhauen (Der zeigt mit nen Objektfehler an ). Der Code ist noch nicht fertig, weil ich erst ein normales Grantt-Diagramm erstellen wollte, welches nur von den zwei festgelegten Zellen C5 und C6 abhängt und kumulativ vervollständigt werden soll ohne dass bei Neueingabe etwas gelöscht wird. Leider krieg ich es noch nicht hin hier ein Bild oder meinen Code zu teilen. Ich hoffe es geht auch so...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Anreise As Range
Dim Abreise As Range
Dim Zimmernummer As Integer
Dim Name As String
Dim Personenanzahl As Integer
Dim Aufenthalt As Range
Dim Shape As Shape

If Target.Adress = "$C$5" Then
    
With Kalender
    
    Set Anreise = .Rows(8).Find(what:=Target.Value, _
                                lookat:=xlWhole)
    If Not Anreise Is Nothing Then
    
        Set Abreise = .Rows(8).Find(what:=Target.Offset(1, 0).Value, lookat:=xlWhole)
        If Not Abreise Is Nothing Then
        
            Set Aufenthalt = .Range(.Cells(Target.Row, Anreise.Column), .Cells(Target.Row, Abreise.Column))
            
            Set Shape = Aufenthalt.Worksheet.Shapes.AddShape(msoShapeRectangle, _
                        Left:=Anreise.Left, _
                        Top:=Target.Top, _
                        Width:=Aufenthalt.Width, _
                        Height:=Anreise.Height)
                        
                    Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
                    Shape.Fill.ForeColor.TintAndShade = 0.5
    
        End If        
    End If
End With
End If

End Sub