Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
AW: Zeile kopieren wenn
22.07.2021 15:25:51
Daniel
Hi

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)
Anzeige
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
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
Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige