Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1664to1668
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
Kopieren und einfügen
30.12.2018 20:15:41
Lupo
Hallo
Ich benötige folgendes VBA.
Es soll von Tabelle1 A3 bis Spalte D soweit alles kopieren wo Werte in der Spalte A sind. Leere Zeilen kommen nicht vor.
Diese Zeilen soll er in die Tabelle2 einfügen, aber erst wenn wieder leere Zeilen (Spalte A) verfügbar sind.
Danke vielmals vorerst

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und einfügen
30.12.2018 20:47:42
Werner
Hallo Lupo,
Public Sub Kopieren()
Dim loLetzteQuelle As Long, loLetzteZiel As Long
With Worksheets("Quelle")
loLetzteQuelle = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(3, 1), .Cells(loLetzteQuelle, 4)).Copy
End With
With Werksheets("Ziel")
loLetzteZiel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
.Cells(loLetzteZiel, 1).PasteSpecial Paste:=xlPasteValues
Applikation.CutCopyMode = False
End With
End Sub
Name von Quell und Zielblatt m mußt du noch anpassen.
Gruß Werner
AW: Kopieren und einfügen
30.12.2018 20:51:35
Lupo
Danke Danke - funzt
Gerne u.Danke für die Rückmeldung. o.w.T.
30.12.2018 20:58:17
Werner
Anzeige

336 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige