Zeile kopieren wenn

Forumthread: Zeile kopieren wenn

Zeile kopieren wenn

22.07.2021 15:06:46

Rene

Hallo zusammen,
ich brauche ein VBA, das mir Daten von Tabelle 1 ans Ende der Daten auf Tabelle 2 kopiert bzw. ausschneiden u. einfügen.
Als Grundlage soll Spalte B (erst ab Zeile 2) geprüft werden, wenn nicht leer soll die gesamte Zeile übertragen werden.
Spalte A ist immer leer. Hier soll beim ein Datum eingetragen werden, dieses ist in A1 hinterlegt
Vielen Dank im voraus
Rene

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile kopieren wenn

22.07.2021 15:25:51

Daniel
AW: Zeile kopieren wenn

22.07.2021 15:55:43

Rene
AW: Zeile kopieren wenn

22.07.2021 18:14:10

Daniel
AW: Zeile kopieren wenn

22.07.2021 20:54:33

Rene
AW: Zeile kopieren wenn

22.07.2021 20:54:44

Rene
AW: Zeile kopieren wenn

22.07.2021 21:35:13

GerdL

AW: Zeile kopieren wenn

22.07.2021 15:25:51

Daniel


Dim x as long
With Sheets("Tabelle1"). Usedrange.Offset(1, 0)
With .Colums(2).Specialcells(xlcelltypeconstants)
x = .Cells.Count
.EntireRow.Copy
End with
End with
With Sheets("Tabelle2").Cells(Rows.Count, 1).end(xlup).Offset(1, 0)
.PasteSpecial xlpasteall
.Resize(x, 1).value = Sheets("Tabelle1").Range("A1"). Value
End With

Gruß Daniel

AW: Zeile kopieren wenn

22.07.2021 15:55:43

Rene

Hi,
Vielen Dank für die schnelle Antwort.
Leider gibt es bei deinem Code eine Fehlermeldung
Laufzeitfehler 438
In folgender Zeile:
With .Colums(2).Specialcells(xlcelltypeconstants)

AW: Zeile kopieren wenn

22.07.2021 18:14:10

Daniel

Hi
dann korrigier mal die Rechtschreibung, es muss heißten: .Columns(2)...
Gruß Daniel

AW: Zeile kopieren wenn

22.07.2021 20:54:33

Rene

Hi Daniel,
vielen vielen Dank.
Es klappt perfekt.
Da ich nur sehr wenige Befehle kenne, ist mir der Schreibfehler natürlich nicht aufgefallen
Eine Frage hätte ich noch...
Wenn ich möchte, das er die Daten erst ab Spalte C oder D einfügt.
Welchen Wert muss ich dafür anpassen?
Gruß
Rene

AW: Zeile kopieren wenn

22.07.2021 20:54:44

Rene

AW: Zeile kopieren wenn

22.07.2021 21:35:13

GerdL

Moin Rene!
With Sheets("Tabelle2").Cells(Rows.Count, 3).end(xlup).Offset(1, 0) 'ermittelt die letzte gefüllte Zelle in Spalte C
With Sheets("Tabelle2").Cells(Rows.Count, 1).end(xlup).Offset(1, 2) 'ermittelt die letzte gefüllte Zelle weiterhin in Spalte A, trägt aber Spaltenversetzt in C ein.
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeile kopieren wenn

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread