nun hab ich das nächste Problem mit meinem uplan.
Ich möchte mit einer Kombination aus For-Schleife und Select Case ein Ausfüllen nach rechts ab der aktiven Spalte umsetzen. leider macht Excel gar nichts. es kommt auch kein Fehler.
dabei errechne ich die Anzahl der auszufüllenden Spalten aus einem Datum aus einer Listbox abzügl der aktuellen Spalte.
mein Code:
Private Sub CommandButton3_Click() 'Originalinhalt soll hin
On Error Resume Next
loTage = CDate(Me.TageBox) - CDate(Cells(1, ActiveCell.Column))
With ActiveCell
For i = .Column To loTage
Select Case .Row
Case 9 To 26: .Value = Cells(4, .Column + i).Value
Case 27 To 45: .Value = Cells(5, .Column + i).Value
Case 46 To 62: .Value = Cells(6, .Column + i).Value
Case 63 To 82: .Value = Cells(7, .Column + i).Value
Case Is > 82: .Value = Cells(8, .Column + 1).Value
End Select
Next i
End With
Unload Me
End Sub
Wenn ich die For Schleife entferne, funktioniert das auch für die aktive Zelle.
Hier noch die altbekannte Beispieldatei https://www.herber.de/bbs/user/121130.xlsm
noch ohne die Änderungen aus dem letzten Beitrag
Vielen dank im Vorraus