Mehrere Zeilen im ausgew. Bereich bearb.

Forumthread: Mehrere Zeilen im ausgew. Bereich bearb.

01.02.2022 13:29:17

schredder

Hallo Zusammen,
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

Nun habe ich aber Fälle, in denen ich gern mehrere Zeilen gleichzeitig durch die UserForm mit dem gleichen Inhalt befüllen lassen würde.
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.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere Zeilen im ausgew. Bereich bearb.

01.02.2022 13:51:14

Daniel

HI
mittelmäßig clever gelöst


dim Zelle as Range
for each Zelle in Intersect(Columns(1), Selection.EntireRow)
Zelle.Offset(0, 8).value = Date
Zelle.Offset(0, 9).Value = UserForm2.txt_adresse
Zelle.Offset(0, 10).Value = UserForm2.txt_user
Zelle.Resize(1, 11).Interior.ColorIndex = xlColorIndexNone
Next

etwas clever gelöst


with .Selection.EntireRow
.Intersect(.Cells, Columns(9)).value = Date
.Intersect(.Cells, Columns(10)).value = UserForm2.txt_adresse
.Intersect(.Cells, Columns(11)).value = UserForm2.txt_user
.Intersect(.Cells, Range("A:K")).Interior.ColorIndex = xlColorIndexNone
End with

Gruß Daniel

AW: Mehrere Zeilen im ausgew. Bereich bearb.

01.02.2022 14:13:12

schredder

Ja vielen Dank.
Die "mittelmäßig clevere" Lösung hat schon perfekt funktioniert.
Die "etwas clevere" Lösung hat mir für .Selection einen Fehler ausgegeben ("...nicht aureichend definierter Verweis".)

AW: Mehrere Zeilen im ausgew. Bereich bearb.

01.02.2022 15:15:14

Daniel

mach mal den Punkt vor dem Intersect weg,
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Mehrere Zeilen im ausgew. Bereich bearb.

Forumthread: Mehrere Zeilen im ausgew. Bereich bearb.

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread