Hallo,
ich bin gestern leider nicht auf eine Lösung gekommen....
- Ich will über eine Userform 2 Datum eingeben
- Ein "Von"-Datum wird in Textbox1 und ein "Bis"-Datum in Textbox2 eingegeben
- In Excel haben alle Zellen in Zeile 6 ein Datum
- Jetzt soll in Zeile 6 das "Von"-Datum gesucht werden und alle Zellen bis zum
"Bis"-Datum farbig markiert werden.
Ich hab es mit einer Schleife probiert, die mir aber ab dem "Von"-Datum leider endlos alle Zellen in der Zeile markiert.
Der Code:
'Variablen definieren
Dim j As Long
Dim anzahlTage As Long
Dim i As Long
Dim date1, date2 As Date
Dim SpalteMax As Long
Dim Spalte As Long
' Werte zuweisen
datumgegeben = Format(UserForm1.TextBox19.Value, "dd:mm:yyyy")
datumgegeben2 = Format(UserForm1.TextBox26.Value, "dd:mm:yyyy")
datumgesucht = Format(Worksheets("Tabelle1").Cells(6, Spalte), "dd:mm:yyyy")
date1 = CDate(TextBox19.Text)
date2 = CDate(TextBox26.Text)
anzahlTage = Abs(date1 - date2)
Worksheets("Tabelle1").Cells(1, 1) = anzahlTage 'zur Kontrolle anzeigen
SpalteMax = Worksheets("Tabelle1").Cells(4, Columns.Count).End(xlToLeft).Column
For Spalte = 5 To SpalteMax
If datumgegeben = datumgesucht Then
j = Spalte
For i = 0 To anzahlTage
Worksheets("Tabelle1").Cells(6, j).Interior.ColorIndex = 5
j = Spalte + 1
Next i
'Kommentar hinzufügen
Set myCom = Worksheets("Tabelle1").Cells(6, Spalte).AddComment
myCom.Visible = True
myCom.Text Text:="blabla"
myCom.Shape.LockAspectRatio = msoTrue
myCom.Shape.Height = 15
myCom.Shape.Width = 25
myCom.Shape.IncrementTop 6.75
myCom.Shape.Fill.ForeColor.SchemeColor = 5
End If
Next Spalte
Vielen Dank und schöne Grüße