automatische Monatsvzuweisung
28.05.2009 19:55:30
Eugen
brauche mal eure Hilfe beim folgendem Makro:
Leider bekomme ich nicht hin, die Monatsnamen von dem ersten Monat ( in B7 ) automatisch weiter zu füllen. Es erscheint nur der eingegebene Monat z.B "Januar" in allen Monaten, die ich im Textbox1 festgelegt habe.
wahrscheinlich fehlt mir nur eine einzige Anweisung, komme aber leider nicht drauf.
kann mir da jemand helfen?
"
Private Sub CommandButton1_Click()
Dim rngBereich As Range
Dim rngSpalte As Range
Dim i As Integer
Dim monat As String
monat = TextBox2.Value
Set rngBereich = Range("B7:Z7")
For Each rngSpalte In rngBereich.Cells
i = i + 1
If i > TextBox1 Then Exit For
rngSpalte.Value = monat
Next rngSpalte
End Sub
"
Danke im Voraus
Eugen