Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

erledigte Daten verschieben

erledigte Daten verschieben
Mike

Hey Cracks,
gerne würde ich mittels Ex03 eine Pendenzenliste etwas automatisieren.
In Spalte G wird der Status definiert. Wenn dieser auf "erledigt" gesetzt
wird, sollte die ganze Zeile ins Blatt "erledigte Sachen" verschoben
werden. Wie mach ich dies am besten / einfachsten?
Danke für Eure Hilfe.
Gruss
Mike

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

Betreff
Benutzer
Anzeige
AW: erledigte Daten verschieben
20.10.2009 16:52:25
werni
Hallo Mike
Teste mal diesen Code. Da ich deine Tabelle nicht kenne!

Sub Erledigte()
For i = 2 To Tabelle1.[G65536].End(xlUp).Row
If Cells(i, 7) = "erledigt" Then
x = Tabelle2.[G65536].End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 7)).Copy Tabelle2.Cells(x, 1)
End If
Next i
End Sub

Gruss Werner
verschieben .. erledigte Daten
21.10.2009 08:38:52
Mike
Hallo Werner,
das Kopieren klappt schon mal ideal. Wie müsste ich
den Code abändern, dass das Verschieben auch
klappen würde? Besten Dank und
Gruss
Mike
AW: verschieben .. erledigte Daten
21.10.2009 09:43:43
werni
Hallo Mike
Da sollte doch in Tabelle1 der Inhalt dieser Zeile gelöscht werden.
Sub Erledigte()
For i = 2 To Tabelle1.[G65536].End(xlUp).Row
If Cells(i, 7) = "erledigt" Then
x = Tabelle2.[G65536].End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 7)).Copy Tabelle2.Cells(x, 1)
Range(Cells(i, 1), Cells(i, 7))=""
End If
Next i
End Sub
So sollte es klappen. Ansonsten stelle die Datei mal ins Netz.
Gruss Werner
Anzeige
super .. erledigte Daten
21.10.2009 10:44:42
Mike
Hey Werni,
super, besten Dank, das funktioniert
gut so.
Gruss
Mike
AW: erledigte Daten verschieben
20.10.2009 17:04:31
robert
hi,
sollte klappen
gruß
robert
Option Explicit 
Sub Erl()
Dim i%, x%
x = Tabelle2.Cells(Rows.Count, 6).End(xlUp).Row + 1
For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 7) = "erl" Then
Range(Cells(i, 1), Cells(i, 7)).Copy Tabelle2.Cells(x, 1)
End If
Next i
End Sub

vergiss meinen Code :-( owT
20.10.2009 17:11:23
robert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige