Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren / Einfügen

Forumthread: Kopieren / Einfügen

Kopieren / Einfügen
12.03.2023 14:16:22
Detlef
Hallo,
ich möchte komplette Zeile kopieren und in eine andere Tabelle in eine bestimmte Zeile überschreiben.
Ist das möglich?
Vielen Dank.
Detlef
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren / Einfügen
12.03.2023 14:30:13
GerdL
Moin Detlef!
Sub Unit()
    Dim rngQuelle As Range
    Dim rngZiel As Range
    
    
    Set rngQuelle = Worksheets("Tabelle1").Rows(2)
    Set rngZiel = Worksheets("Tabelle2").Rows(7)
    
    Call rngQuelle.Copy
    Call rngZiel.PasteSpecial(Paste:=xlPasteValues)
    Application.CutCopyMode = False
    
    Set rngZiel = Nothing
    Set rngQuelle = Nothing
End Sub
Gruß Gerd
Anzeige
AW: Kopieren / Einfügen
12.03.2023 14:45:48
Detlef
Hallo Gerd,
zuerst einmal vielen Dank.
Die Zeilennummer, die eingefügt werden soll, steht in A1. Kann das aus einer Zelle geholt werden (für die 7)?
Detlef
AW: Kopieren / Einfügen
12.03.2023 14:55:02
GerdL
Hallo,
probier mal.
Set rngQuelle = Worksheets("Tabelle1").Rows(Worksheets("Tabelle1").Range("A1").Value)
AW: Kopieren / Einfügen
12.03.2023 15:04:08
Detlef
Hallo Gerd,
hat super funktioniert.
Detlef
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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