Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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
Inhaltsverzeichnis

Zeilen verschieben

Zeilen verschieben
29.09.2017 07:59:33
Lupo
Guten Morgen
Würede folgendes VBA benötigen.
Wenn im Blatt "Tabelle 1" in der Spalte H eine Wert von "1" geschrieben wird,
dann die ganze Zeile ausschneiden und in das Blatt "Tabelle 2" einfügen oder verschieben.
In dem Blatt Tabelle 2 die gesammelten Daten nicht überschreiben, sondern die
neuen Zeilen immer unten dazufügen.
Ganz toll währe noch, wenn man in "Tabelle 2" den Wert "1" in Spalte H löscht,
dass dann die Zeile wieder in die Tabelle 1 verschoben wird.
Danke vorerst

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen verschieben
29.09.2017 08:31:22
Werner
Hallo Lupo,
diesen Code ins Codemodul von Tabellenblatt 1
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long
If Target.Column = 8 Then
If Target.Count = 1 Then
If Not Target Is Nothing Then
If Target.Value = 1 Then
With Worksheets("Tabelle2")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
Target.EntireRow.Copy Worksheets("Tabelle2").Cells(loLetzte, 1)
Target.EntireRow.Delete shift:=xlUp
End If
End If
End If
End If
End Sub
Diesen Code ins Codemodul von Tabellenblatt 2 kopieren:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long
If Target.Column = 8 Then
If Target.Count = 1 Then
If Not Target Is Nothing Then
If Target.Value  1 Then
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
Target.EntireRow.Copy Worksheets("Tabelle1").Cells(loLetzte, 1)
Target.EntireRow.Delete shift:=xlUp
End If
End If
End If
End If
End Sub
Setzt voraus, dass in Spalte A durchgehend Daten vorhanden sind. Zudem bin ich davon ausgegangen, dass in Zeile 1 jeweils Überschriften sind.
Gruß Werner
Anzeige
AW: Zeilen verschieben
29.09.2017 09:22:45
Lupo
Funzt - super - Danke
Gerne u. Danke für die Rückmeldung. o.w.T.
29.09.2017 09:32:07
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige