Mehrere Zeilen im ausgew. Bereich bearb.
01.02.2022 13:29:17
schredder
ich habe ein kleines Programm über dessen UserForm Informationen in die Zeile der ausgewählten Zelle eingetragen werden, sobald ich den Command Button betätige.
Das funktioniert auch ohne Probleme und wird nachfolgend dargestellt:
Private Sub CommandButton1_Click()
Dim activerow As Integer
activerow = ActiveCell.Row
ActiveSheet.Cells(activerow, 9).Value = Date
ActiveSheet.Cells(activerow, 10).Value = UserForm2.txt_adresse
ActiveSheet.Cells(activerow, 11).Value = UserForm2.txt_user
ActiveSheet.Range("A" & activerow & ":K" & activerow).Interior.ColorIndex = xlColorIndexNone
Unload UserForm2
End Sub
Die aktuelle Lösung funktioniert immer nur für eine ausgewählte Zeile und ist dadurch zeitintensiv.
Ich habe mich bereits an der for each * selection-Funktion versucht, kam aber durch die unterschiedlichen Dateitypen nicht wirklich weiter.
Hat jemand eine clevere Lösung, wie ich das Problem gelöst bekomme?
Danke.