ActiveCell.Row - mehrere Zeilen anwählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi ,
wenn du "Spalten" oder "Reihen" schreibst, meinst du dann vielleicht Zeilen?
Spalten sind die senkrechten Dinger, über denen oben Buchstaben stehen - z. B. Spalte A
Zeilen sind die waagerechten Dinger, vor denen links Zahlen stehen - z. B. Zeile 7.
Row heißt Zeile. Spalte ist Column.
Reihen gibt es hier gar nicht.
Wenn du diese Begriffe vertauschst, macht das das Lesen nicht unbedingt leichter...
Das was du schreibst: "(lngrow1 = 2, lngrow2 = 3, lngrow3 = 4)" ist so nicht machbar.
Man weiß doch gar nicht wie viele Variablen man braucht - vielleicht lngrow4711?
Eingangs hast du geschrieben, das du die Zeilen kopieren willst.
Willst du jetzt in einem Loop (einer Schleife) mehr oder etwas anderes tun?
Wenn du nur kopieren willst, geht das mit meiner Anweisung Selection.EntireRow.Copy ...
Das gilt auch für (mit Strg) zusammengesetzte Bereiche.
Was willst du eigentlich erreichen?
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Hallo David,
nachdem das Verwirrspiel um Zeilen/Spalten bereinigt ist und klar ist, dass die Daten der Zeile jeweils auf einem Tabellenblatt eingetragen werden sollen, hier mein modifizierte Vorschlag, den du noch ein wenig bezüglich der Dateinamen und Blattnamen und Spalten/Zelladressen anpassen muss.
Gruß
Franz

Sub CopyZeilenDaten_in_Steckbrief()
'Werte in Zeilen der selektierten Zellen in Tabellenblätter kopieren
Dim objRow
Dim wksQ As Worksheet
Dim wbkSteckbrief As Workbook, wksSteckbrief As Worksheet, wksMuster As Worksheet
Set wksQ = ActiveSheet
For Each objRow In Selection.Rows
'Zieldatei und Muster-Steckbrief festlegen
If wbkSteckbrief Is Nothing Then
Set wbkSteckbrief = Workbooks("Steckbrief.xlsx")
Set wksMuster = wbkSteckbrief.Worksheets("Muster")
End If
'Mustersteckbrief kopieren
With wbkSteckbrief
wksMuster.Copy after:=.Sheets(.Sheets.Count)
Set wksSteckbrief = .Sheets(.Sheets.Count)
End With
'Daten aus Zeile in Kopie eintragen
With wksSteckbrief
.Range("B4") = wksQ.Cells(objRow.Row, 1).Value
.Range("B8") = wksQ.Cells(objRow.Row, 2).Value
.Range("D8") = wksQ.Cells(objRow.Row, 3).Value
.Range("D12") = wksQ.Cells(objRow.Row, 4).Value
'usw.
.Name = .Range("B4").Text
End With
Next
End Sub

Sub CopyRows() 'Werte in Zeilen der selektierten Zellen kopieren Dim objRow, ZeileZ As Long, ZelleL As Range Dim wksQ As Worksheet, wksZ As Worksheet Set wksQ = ActiveSheet Set wksZ = Worksheets("ZielTab") With wksZ Set ZelleL = .UsedRange.Find(After:=.UsedRange.Cells(1, 1), _ What:="*", LookIn:=xlFormulas, lookat:=xlWhole, _ searchorder:=xlByRows, searchdirection:=xlPrevious) If ZelleL Is Nothing Then 'Zieltabelle ist leer ZeileZ = 0 Else ZeileZ = ZelleL.Row End If Set ZelleL = Nothing End With For Each objRow In Selection.Rows ZeileZ = ZeileZ + 1 wksQ.Rows(objRow.Row).Copy wksZ.Rows(ZeileZ).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Next End Sub

Beliebteste Forumthreads (12 Monate)

ActiveCell.Row - mehrere Zeilen anwählen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

62 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ActiveCell.Row - mehrere Zeilen anwählen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

62 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread