For Schleife
daniela.schmidt@atlantisfoundries.com
ich habe mal eine kurze Frage. Ich habe eine Userform mit einer Combobox und einem Ok und Abbruch CommandButton erstellt.
Hier folgend der Code:
Private Sub UserForm_Activate()
Dim lngM As Long
With cmbMonat
For lngM = 2 To 12
.AddItem Format(DateSerial(2010, lngM, 1), "MMM")
Next
End With
End Sub
Private Sub cmdAbbruch_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
If cmbMonat = Feb Then
For i = 10 To 1560 Step 33
Range(i & ":" & i+29).Rows.Hidden = True
Next i
End If
Unload Me
End Sub
In der ComboBox werden die einzelne Monate angezeigt zum Auswaehlen, also Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec.
Wenn ich jetzt auf Ok klicke dann sollen sich einige Zellen ausblenden. Ich habe mich da mal selbst versucht einen Code zu schreiben aber es tut sich nichts und es kommt auch keine Fehlermeldung.
Ich kann euch ja mal kurz erklaeren welche Zeilen sich ausblenden sollen.
For i = 10 To 1560 Step 33
Range(i & ":" & i+29).Rows.Hidden = True
Next i
Wenn man Feb auswaehlt dann sollen sich folgende Zeilen ausblenden:
10:39
43:72
76:105
109:138 usw. Die Tabelle hat 1560 Zeilen
Vielleicht habe ich auch die Variable falsch uebergeben und das Makro erkennt nicht, dass man in der ComboBox Feb ausgewaehlt hat.
Ich bin nicht der Ueberflieger in Sachen VBA und braeuchte ein bisschen Hilfe.
Daniela