Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

erledigte Daten verschieben

Forumthread: 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
Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige