Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.05.2024 19:56:55
Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen
19.05.2024 19:42:43
zeilen löschen wenn
19.05.2024 17:55:54
Problem mit Formel countif
19.05.2024 17:28:17
E-Mailadressen Alphabetisch sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
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
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zählen, kopieren und unten einfüg

Zeilen zählen, kopieren und unten einfüg
07.04.2022 08:28:47
joshua
Hallo zusammen,
ich bin neu hier und habe kaum VBA-Erfahrungen. Jetzt wollte ich mal ein Makro ausprobieren, um mir evtl die Arbeit zu vereinfachen. Es geht um Folgendes:
Beispiel:
Ich habe zwei Reiter: Reiter "Zahlen" und Reiter "Übertrag"
Im Reiter "Zahlen" stehen - wie es der Name auch schon sagt - Zahlen (im Bereich B4:C37), welche kopiert und in den Reiter "Übertrag" immer ganz unten in Spalte A (fortlaufend, + 3 Zeilen Abstand nach oben zur letzten Zeile) drangehangen werden sollen
Kann mir da jemand kurz helfen?
Vielen Dank und beste Grüße

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zählen, kopieren und unten einfüg
07.04.2022 08:59:58
UweD
Hallo
in ein Normales Modul

Sub Joshua()
Dim TB1 As Worksheet, TB2 As Worksheet, RNG As Range, LR2 As Long
Set TB1 = Sheets("Zahlen")
Set TB2 = Sheets("Übertrag")
Set RNG = TB1.Range("B4:C37")
LR2 = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
RNG.Copy TB2.Cells(LR2, 1).Offset(4, 0)
LG UweD
AW: Zeilen zählen, kopieren und unten einfüg
07.04.2022 09:01:50
Rudi
Hallo,

Sub aaaa()
Sheets("Zahlen").Range("B4:C37").Copy Sheets("Übertrag").Cells(Rows.Count, 1).End(xlUp).Offset(4)
End Sub
Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige