Code füllt falsche Zeilen???.....Hilfe
14.10.2004 12:00:07
Peter S.
ich habe folgendes Problem mit untenstehendem Code...der erste Teil (Spalte B)funktioniert einwandfrei.....in Spalte H jedoch, steht zum Beispiel folgendes
2003 monatlich
2003 vierteljährlich
2003 jährlich
jetzt schreibe ich in die CB3 den Wert 2003 und möchte danach folgendes Ergebnis in Spalte H stehen haben:
2003 monatlich
2003 vierteljährlich
2003 jährlich
2004 monatlich
2004 vierteljährlich
2004 jährlich............tatsächlich habe ich dann aber:
2003 monatlich
2004 monatlich
2004 vierteljährlich
2004 jährlich
Private Sub CommandButton7_Click()
Dim z As Integer, y As Integer, myArr As Variant
Application.ScreenUpdating = False
Sheets("Bearbeitung").Activate
z = Range("B52").End(xlUp).Row
Cells(z + 1, 2) = ComboBox3.Value + 1
myArr = Sheets("Bearbeitung").Range("B46:B52")
y = Range("H66").End(xlUp).Row
Cells(z + 1, 8) = ComboBox3.Value + 1 & " monatlich"
Cells(z + 2, 8) = ComboBox3.Value + 1 & " vierteljährlich"
Cells(z + 3, 8) = ComboBox3.Value + 1 & " jährlich"
myArr = Sheets("Bearbeitung").Range("H46:H66")
End Sub
Kann da jemand helfen?
Danke
Peter S.