Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variabler Bereich kopieren

Variabler Bereich kopieren
23.09.2017 18:00:47
Herbert
Hallo,
Ich möchte jeweils die ersten drei Spalten (A-C) sämtlicher Zeilen, welche variabel sind, vom Tabellenblatt "Uebertrag" auf die nächsten freien Zeilen des Tabellenblattes "Kassabuch" kopieren. Ich kriege dies einfach nicht hin.
Wie kann ich dies in VBA hinterlegen ?
Für jede Hilfe bin ich euch dankbar.
Gruss
Herbert

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

Betreff
Datum
Anwender
Anzeige
AW: Variabler Bereich kopieren
23.09.2017 18:24:17
Werner
Hallo Herbert,
teste mal: 
Option Explicit
Public Sub kopieren()
Dim loLetzteQ As Long, loLetzteZ As Long
Dim wsQ As Worksheet, wsZ As Worksheet
Dim raBereich As Range
Application.ScreenUpdating = False
Set wsQ = ThisWorkbook.Worksheets("Uebertrag")
Set wsZ = ThisWorkbook.Worksheets("Kassabuch")
With wsQ
loLetzteQ = .Cells(.Rows.Count, 1).End(xlUp).Row
loLetzteZ = wsZ.Cells(wsZ.Rows.Count, 1).End(xlUp).Row + 1
Set raBereich = .Range(.Cells(2, 1), .Cells(loLetzteQ, 3))
raBereich.Copy
wsZ.Cells(loLetzteZ, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
Set wsQ = Nothing
Set wsZ = Nothing
Set raBereich = Nothing
End Sub
Code gehört in ein allgemeines Modul.
Gruß Werner
Anzeige
AW: Variabler Bereich kopieren
24.09.2017 16:20:26
Herbert
Hallo Werner,
Vielen Dank, passt perfekt.
Gruss
Herbert
Gerne u. Danke für die Rückmeldung
24.09.2017 18:12:33
Werner

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige