AW: Datenbereich kopieren und einfügen
10.03.2021 13:26:54
Piet
Hallo
ja, das muss anders programmiert werden. Wer es kennt weiss das es nicht viel Aufwand ist. S. unten
mfg Piet
Sub test()
Dim zelle As Range, Zeile1 As Long
Dim xy As Long, yx As Long 'NICHT Double = lange Kommazahlen
Dim Tb2 As Worksheet, z2 As Long
Set Tb2 = Worksheets("Tabelle2")
'Bildschirm abschalten
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
z2 = 2 '1.Zeile im 2. Tabellenblatt
'Schjeife in Spalte C (NICHT L !!)
For Each zell In .Range("C1:C" & .Cells(Rows.Count, 1).End(xlUp).Row)
'Variable Zeile1 setzen und "yx" abwarten
If zell = "xy" Then Zeile1 = zell.Row
If zell = "yx" And Zeile1 > 0 Then
'Spalte A bis D kopieren (Resize erweitert den Spalten Bereich!)
.Cells(Zeile1, "A").Resize(zell.Row - Zeile1 + 1, 4).Copy
'Daten mit z2 = Zeile in Tabelle2 einfügen
Tb2.Cells(z2, "A").PasteSpecial xlPasteValues
z2 = Tb2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Application.CutCopyMode = False
Zeile1 = Empty
End If
Next zell
End With
End Sub