VBA Zellbereich kopieren

Hallo Forum,
ich muss von einem Tabellenblatt bei bestimmten Bedingungen Zellbereiche in ein anderes Tabellenblatt kopieren. Eigentlich leicht, dachte ich ... In den XL-Beispielen habe ich auch ein wunderbares Makro gefunden, das per Doppelklick den gesamten Zellbereich in das zweite Tabellenblatt kopiert. Ich komme nur nicht mit der Spalte im zweiten Tabellenblatt klar. Das Makro kopiert ab Spalte A im Tabellenblatt 1. Ich möchte aber, dass ab Spalte B kopiert wird, im zweiten Blatt aber in Spalte A eingefügt wird.
Im Tabellenblatt 2 muss ich unter die kopierten Werte ein "K" einfügen. Mache ich das gleich hinter dem Namen, funktioniert das nächste Kopieren. Wenn ich das "K" z. B. erst ab Spalte "I" einfüge, werden die Werte überschrieben.
Ich lade eine Datei hoch, damit meine Erklärungen verständlicher werden. Der obere Bereich auf dem 2. Blatt ist manuell kopiert (so sollte es aussehen), der gelb markierte Bereich ist per Makro übertragen und stimmt nicht.
Wäre toll, wenn mir jemand auf die Sprünge helfen könnte!!
Im Voraus besten Dank!
Karin

Die Datei https://www.herber.de/bbs/user/63174.xls wurde aus Datenschutzgründen gelöscht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub CopyNow(iRow As Integer) Dim wks As Worksheet Dim iRowL As Integer, iColL As Integer Application.ScreenUpdating = False Set wks = Worksheets("Krank") iRowL = wks.Cells.Find("*", , xlValues, 2, 1, 2, 0, 0).Row + 1 iColL = Cells(iRow, Columns.Count).End(xlToLeft).Column Cells(iRow, 2).Resize(, iColL - 1).Copy wks.Cells(iRowL, 1) Application.CutCopyMode = False wks.Columns.AutoFit Application.ScreenUpdating = True End Sub

Hi Robert,
es liegt wohl an diesem Satz:
"Im Tabellenblatt 2 muss ich unter die kopierten Werte ein "K" einfügen. Mache ich das gleich hinter dem Namen,
funktioniert das nächste Kopieren. Wenn ich das "K" z. B. erst ab Spalte "I" einfüge, werden die Werte überschrieben."
In deinem Vorschlag bestimmst du die erste freie Zielzeile mit
iRowL = wks.Cells(Rows.Count, 5).End(xlUp).Row + 1
abhängig vom letzten Eintrag in Spalte E. Wenn hier zufällig ein "K" steht, läuft es richtig,
wenn nicht, wird die letzte Zeile (mit den "K"s) überschrieben.
Mein Vorschlag
iRowL = .Cells(.Rows.Count, 1).End(xlUp).Row + 2
geht davon aus, dass in die 1. Spalte (Name) keine "K"s geschrieben werden,
die freie Zeile für die "K"s entsteht durch das "+ 2".
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub CopyNow(iRow As Integer) Dim wks As Worksheet, iRowL As Long, lngC As Long Set wks = Worksheets("Krank") iRowL = wks.Cells(Rows.Count, 1).End(xlUp).Row + 2 lngC = Cells(iRow, Columns.Count).End(xlToLeft).Column Cells(iRow, 2).Resize(, lngC - 1).Copy wks.Cells(iRowL, 1) wks.Columns.AutoFit End Sub ' Application.ScreenUpdating = False ' ist überflüssig ' Application.CutCopyMode = False ' ist überflüssig ' Application.ScreenUpdating = True ' ist überflüssig

Sub CopyNow(iRow As Integer) Dim iRowL As Long, lngC As Long With Worksheets("Krank") iRowL = .Cells(.Rows.Count, 1).End(xlUp).Row + 2 lngC = Cells(iRow, Columns.Count).End(xlToLeft).Column Cells(iRow, 2).Resize(, lngC - 1).Copy .Cells(iRowL, 1) .Columns.AutoFit End With End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zellbereich kopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread