Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen in die Letze freie Zeile

Einfügen in die Letze freie Zeile
27.01.2023 09:15:25
Jörg
Moin zusammen,
ich bin neu in der VBA Programmierung für Excel und stehe gerade vor einem Problem.
Hier mein Marko.
Sub Archivieren()
'
' Archivieren Makro
'
'
    Rows("6:24").Select
    Selection.Cut
    Sheets("Archiv").Select
    last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    ActiveSheet.Paste
    Sheets("Tabelle1").Select
    Selection.Delete Shift:=xlUp
End Sub
Ich möchte das beim weiteren ausführen die ausgeschnitten Zeilen in die nächste frei Zeile des anderen Arbeitsblattes eingefügt wird und nicht überschrieben.
Alle anderen Beitrage habe ich schon ausprobiert.
VG
Jörg

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen in die Letze freie Zeile
27.01.2023 09:37:47
UweD
Hallo
auf select kann in 99% verzichtet werden
so?
Sub Archivieren()
    Dim last As Long, RNG As Range
    
    Set RNG = Sheets("Tabelle1").Rows("6:24")
    
    With Sheets("Archiv")
        last = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        
        RNG.Copy .Rows(last)
        RNG.Delete Shift:=xlUp
    End With
End Sub
LG UweD
AW: Einfügen in die Letze freie Zeile
27.01.2023 09:53:04
Bernhard
Hallo Jörg,
du musst die Zelle, ab der du einfügen möchtest, noch auswählen.
Nach
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & last).Select
einfügen.
Grüße
Bernhard
Anzeige
AW: Einfügen in die Letze freie Zeile
27.01.2023 10:10:54
Jörg
Danke Euch beiden, hat super geklappt.
VG
Jörg

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige