Hallo zusammen,
ich habe mir einen Buchungsplaner gebastelt wo ich Einträge über Userform machen lasse.
In der Zelle D5 ist der erste Tag des Monats Januar wo der Eintrag erfolgt und in der Zelle AH der letzte Tag.
In Zelle D16 ist der erste Tag des Monats Februar usw.
Die Abstände der Monate sind immer gleich.
In ComboBox1 wird der Ort ausgesucht
In ComboBox2 die Art der Buchung
In ComboBox3 der Monat
In ComboBox4 der Beginn
In ComboBox5 das Ende
Derzeit setze ich folgenden Makro ein
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
zeil = Me.ComboBox1.ListIndex + 11
farbi = Me.ComboBox2.ListIndex
Select Case farbi
Case 0
farbi = 45
Case 1
farbi = 5
Case 2
farbi = 4
Case 3
farbi = xlNone
End Select
mzei = 9 + Me.ComboBox3.ListIndex * 11
ustart = Me.ComboBox4.ListIndex + 4
uende = Me.ComboBox5.ListIndex + 4
For etr = ustart To uende
If Cells(zeil + (Me.ComboBox3.ListIndex) * 11, etr).Interior.ColorIndex > 2 Then
UserForm5.Label2.Caption = etr
UserForm5.Show
etr = UserForm5.Label2.Caption
End If
If Cells(mzei - 2, etr) = 2 Then GoTo sprung
If Cells(mzei - 2, etr) = 2 Or Weekday(Cells(mzei, etr)) = 7 _
Or Weekday(Cells(mzei, etr)) = 1 Then GoTo sprung
On Error Resume Next
Cells(zeil + (Me.ComboBox3.ListIndex) * 11, etr).Select
Selection.Interior.ColorIndex = farbi
Dim r As Range
Set r = Cells(zeil + (Me.ComboBox3.ListIndex) * 11, etr)
If Not TextBox1 = "" Then
If r.Comment Is Nothing Then r.AddComment
r.Comment.Text (TextBox1.Text)
End If
If Me.ComboBox2.ListIndex = 3 Then Cells(zeil + (Me.ComboBox3.ListIndex) * 11, etr) = ""
If Me.ComboBox2.ListIndex = 3 Then Cells(zeil + (Me.ComboBox3.ListIndex) * 11, etr) = Selection.ClearComments
sprung:
Next etr
Diese Funktioniert auch soweit ohne Probleme. Nur möchte ich nicht nur Monat bezogen eingaben machen
sondern auch Monat übergreifend.
Ich möchte gerne Combobox 3 wegfallen lassen dafür in ComboBox 4 richtiges DAtum eingeben z.B.
03.01.2008 und in ComboBox5 das Enddatum z.B. 04.02.2008.
oder
einen weiteren combobox einsetzen mit einer weiteren Auswahl an Monaten.
Dann würde in combobox 3 der Monat und in Combox4 der Tag für den Beginn stehen und
in Combobox 5 der Tag und Combox 6 (neuer Combox) der Monat für das Ende stehen.
ich hoffe ich konnte mich einigermaßen deutlich audrücken.
Für eure Bemühungen schonmal vielen Tag im Vorau.
Gruß
Hamza