Bin gerade dabei einen Kalender in Excel zu machen. In jeder Spalte ein Tag bis Jahresende und in jeder Reihe ein Fahrzeug.
Ich frage mit einem DTPicker1 Startdatum, DTPicker2 Enddatum und Listbox das Fahrzeug ab.
Um im Kalender den Bereich zu markieren habe ich diesen Code eingefügt.
Private Sub TERMIN_EINTRAGEN()
Dim x1 As Integer ' X-Achse also START Datum um Positionsübergabe zu machen
Dim x2 As Integer ' X-Achse also END Datum um Positionsübergabe zu machen
Dim y As Integer ' Y-Achse also Maschinentyp um Positionsübergabe zu machen
'Startdatum Spalte in Tabelle2 auslesen
Dim rng As Range
For Each rng In Range("A1:ND1")
If rng = DTPicker1.Value Then
x1 = rng.Column
End If
Next rng
'Enddatum Spalte in Tabelle2 auslesen
Dim rng_2 As Range
For Each rng_2 In Range("A1:ND1")
If rng_2 = DTPicker2.Value Then
x2 = rng_2.Column
End If
Next rng_2
'Maschine Spalte in Tabelle2 auslesen
Dim rng_3 As Range
For Each rng_3 In Range("A1:A300")
If rng_3 = ListBox1.Value Then
y = rng_3.Row
End If
Next rng_3
Tabelle2.Range(Cells(y, x1), Cells(y, x2)).Interior.ColorIndex = 4
End Sub
Wenn ich es durchdebugge stimmt der Code und er markiert richtig.
Wenn ich es normal ausführe wird x1 und x2 auf 0 gesetzt. Y hat immer den korrekten Wert.
Kann mir wer von euch weiterhelfen wie ich den Code verbessern könnte damit er immer richtig funktioniert?
Danke.
Gruß,
Rene123