Kopieren ja, aber nicht überschreiben

Forumthread: Kopieren ja, aber nicht überschreiben
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Kopieren ja, aber nicht überschreiben

19.03.2025 09:45:16

Franziska

Hallo,
in der Beispieldatei möchte ich mittels dem Button die Daten von G3 bis G13 auf das zweite Tabellenblatt kopieren, das klappt.
Es sollte aber die Daten nicht überschreiben, sondern in die darunterliegende Zeile usw. kopieren. Leider finde ich mit dem Makrorekorder nicht den nötigen Befehl ;-)
Bestimmt einfach, aber ich komme nicht drauf
https://www.herber.de/bbs/user/176332.xlsb

Danke für die Hilfe

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopieren ja, aber nicht überschreiben

19.03.2025 10:00:56

Crazy Tom
AW: Kopieren ja, aber nicht überschreiben

19.03.2025 10:03:05

Alwin Weisangler
AW: Kopieren ja, aber nicht überschreiben

19.03.2025 10:06:05

GerdL
AW: Kopieren ja, aber nicht überschreiben | Danke allen ;-)

19.03.2025 10:56:44

Franziska

AW: Kopieren ja, aber nicht überschreiben

19.03.2025 10:00:56

Crazy Tom

moin,

schau mal ob es so passt

Sub Makro2()

    Dim lngZiel As Long

    Range("G3:G13").Copy

    With Sheets("Tabelle2")

        lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1

        .Range("B" & lngZiel).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

    End With

    Application.CutCopyMode = False

End Sub

mfg Tom

AW: Kopieren ja, aber nicht überschreiben

19.03.2025 10:03:05

Alwin Weisangler

noch eine Möglichkeit:



Sub kopieren()

    Dim arr(): arr = Tabelle1.Range("G3:G13").Value

    With Tabelle2

        .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 2).Resize(1, UBound(arr)) = Application.Transpose(arr)

    End With

End Sub

Gruß Uwe

AW: Kopieren ja, aber nicht überschreiben

19.03.2025 10:06:05

GerdL

Moin

Sub Unit()

    

    Dim Zeile As Long

    

    Zeile = Application.Max(3, Sheets("Tabelle2").Cells(Rows.Count, "B").End(xlUp).Row) + 1

    Range("G3:G13").Copy

    Sheets("Tabelle2").Range("B" & Zeile).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

    Application.CutCopyMode = False



End Sub

Gruß Gerd

AW: Kopieren ja, aber nicht überschreiben | Danke allen ;-)

19.03.2025 10:56:44

Franziska

Danke, hat sehr geholfen ..

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!