Zeile in eine andere Tabelle kopieren VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim loLetzte As Long If Target.Column = 6 If Target.Count = 1 Then If UCase(Target.Value) = "ERLEDIGT" Then With Worksheets("Tabelle2") 'Blattname Zielblatt anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row Rows(Target.Row).Copy .Rows(loLetzte + 1) Rows(Target.Row).Delete End With End If End If End If End Sub

Sorry Werner ich bin total verwirrt.
Schau mal ich würde es gerne mit dem Buttonklick machen. Also wenn ich auf das Button klicke sollen die Zeilen in denen abgeschlossen steht in die andere Tabelle kopiert werden und gleichzeitig aus der Tabelle gelöscht werden.
Jetzt habe ich mal ein paar "Stopper" eingelegt um zu gucken was in den einzelnen Variablen drin steht. Bei dem n= n+1 markiert er mir die Zeilen von 1-3 warum auch immer. Das Kopieren funktioniert. Aber warum in ZeileMax 25 drin steht verstehe ich auch nicht. Ich möchte das er alle Zeile bis 10000 oder so betrachtet.


Sub test()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim Value As String
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
Value = Cells(11, 6).Value
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 6).Value = "abgeschlossen" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub

Public Sub Erledigt() Dim loLetzte As Long, loLetzte1 As Long, i As Long Application.ScreenUpdating = False With Worksheets("Tabelle2") 'Zielblatt anpassen loLetzte1 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 End With With Worksheets("Tabelle1") 'Quellblatt anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row For i = loLetzte To 2 Step -1 If UCase(.Cells(i, 6).Value) = "ERLEDIGT" Then .Rows(i).Copy Worksheets("Tabelle2").Rows(loLetzte1).Insert 'Zielblatt anpassen .Rows(i).Delete loLetzte1 = loLetzte1 + 1 End If Next i End With Application.ScreenUpdating = True End Sub

Public Sub Erledigt() Dim loLetzte As Long, loLetzte1 As Long, i As Long Application.ScreenUpdating = False With Worksheets("Tabelle2") 'Zielblatt anpassen loLetzte1 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 End With With Worksheets("Tabelle1") 'Quellblatt anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row For i = loLetzte To 2 Step -1 If UCase(.Cells(i, 6).Value) = "ERLEDIGT" Then .Rows(i).Copy Worksheets("Tabelle2").Rows(loLetzte1) 'Zielblatt anpassen .Rows(i).Delete loLetzte1 = loLetzte1 + 1 End If Next i End With Application.ScreenUpdating = True End Sub

Sub test() Dim i As Long With Workbooks(test.xlsm).Worksheets("Tabelle1") For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row + 1 If .Cells(i, "F") = "erledigt" Then .Rows(i).Copy Destination:=Tabelle2.Rows.End(xlUp).Row + 1 End If Next End With End Sub

Sub test() Dim Zeile As Long Dim ZeileMax As Long Dim n As Long n = Tabelle2.UsedRange.Rows.Count + 1 If Tabelle2.Cells(1, 1) = "" Then n = 1 With Tabelle1 ZeileMax = .UsedRange.Rows.Count For Zeile = ZeileMax To 1 Step -1 If .Cells(Zeile, 6).Value = "fertig" Then .Rows(Zeile).Copy Destination:=Tabelle2.Rows(n) .Rows(Zeile).Delete n = n + 1 End If Next Zeile End With End Sub

Hallo Lia,
die Schleife läuft rückwärts von der letzten belegten Zelle zu Zeile 1 deshalb das -1. Das muss bei Schleifen die irgendwelche Werte löschen immer so gemacht werden, weil sonst Daten "übersprungen" werden.
Beispiel anhand des Codes wenn die Schleife von oben nach unten läuft:
In Zelle F10 und F11 steht "fertig"
dein Schleifenzähler Zeile kommt zu Zeile 10, hat also den Wert 10
Zelle F10 wird geprüft - dort steht "fertig" die Zeile wird also gelöscht
alle anderen Zeilen rücken durch das Löschen jetzt um eins nach oben
F11 wird also zu F10
der Schleifenzähler Zeile steht immer noch in Zeile 10
Zeile 10 wurde aber schon bearbeitet und der Zäher wird um 1 erhöht
Zeile hat jetzt den Wert 11 und prüft jetzt die Zelle F11
dort steht aber jetzt nicht mehr "fertig" da durch das vorherigen Löschen der Zeile F11 nach F10 hochgerückt ist
somit werden Zeilen sozusagen "übersprungen" wenn die Schleife von oben nach unten läuft
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Zeile in eine andere Tabelle kopieren VBA

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile in eine andere Tabelle kopieren VBA

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread