Zeilen verschieben in Excel, wenn erledigt
Schritt-für-Schritt-Anleitung
Um in Excel Zeilen zu verschieben, wenn der Status als "erledigt" markiert wird, kannst Du das folgende VBA-Skript verwenden. Dieses Skript überprüft die Spalte „M“ und verschiebt die gesamte Zeile zur Tabelle „Archiv“, wenn der Wert „erledigt“ eingegeben wird.
- Öffne Deine Excel-Datei und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Wähle das Arbeitsblatt aus, in dem Du die Funktion implementieren möchtest (z.B. „Aktuell“).
- Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Dim rngZelle As Range
Dim loLetzte As Long
Application.ScreenUpdating = False ' Bildschirmaktualisierung ausschalten
Set rngBereich = Intersect(Target, Range("M:M"))
If Not rngBereich Is Nothing Then
loLetzte = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row ' letzte belegte Zeile in Spalte A
On Error GoTo ErrorHandler
For Each rngZelle In rngBereich
If rngZelle.Value Like "erledigt" Then
Rows(rngZelle.Row).Copy
Sheets("Archiv").Range("A" & loLetzte + 1).PasteSpecial Paste:=xlPasteValues
Rows(rngZelle.Row).Delete
End If
Next rngZelle
End If
ErrorHandler:
Application.ScreenUpdating = True ' Bildschirmaktualisierung wieder einschalten
If Err Then MsgBox Err.Number & " " & Err.Description ' Fehlercode und Beschreibung anzeigen
End Sub
- Schließe den VBA-Editor und teste die Funktion, indem Du in Spalte „M“ den Wert „erledigt“ eingibst.
Häufige Fehler und Lösungen
-
Fehler beim Kompilieren - Mehrfachdeklaration im aktuellen Gültigkeitsbereich: Dieser Fehler tritt auf, wenn Du eine Variable zweimal deklariert hast. Stelle sicher, dass Du in Deinem Code keine doppelten Deklarationen hast.
-
Anwendung oder objektdefinierter Fehler aufgetreten: Dieser Fehler kann auftreten, wenn der Zielbereich (z. B. „Archiv“) nicht korrekt referenziert ist. Überprüfe, ob das Arbeitsblatt „Archiv“ existiert und korrekt benannt ist.
Alternative Methoden
Falls Du die Zeilen nicht automatisch beim Eingeben von „erledigt“ verschieben möchtest, kannst Du auch einen Button in Excel hinzufügen, der beim Klicken die Zeilen verschiebt. Hier ist ein Beispiel für solch ein Makro:
Sub ZeileInsArchivVerschieben()
Dim loLetzte As Long
Dim rngZelle As Range
Application.ScreenUpdating = False
loLetzte = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
For Each rngZelle In Range("M:M")
If rngZelle.Value Like "erledigt" Then
Rows(rngZelle.Row).Copy
Sheets("Archiv").Range("A" & loLetzte + 1).PasteSpecial Paste:=xlPasteValues
Rows(rngZelle.Row).Delete
End If
Next rngZelle
Application.ScreenUpdating = True
End Sub
Du kannst diesen Code einem Button zuordnen, um die erledigten Aufgaben zu verschieben.
Praktische Beispiele
-
Beispiel für das Verschieben von Aufgaben: Angenommen, Du hast eine Liste von Projekten und markierst die erledigten mit „erledigt“ in Spalte „M“. Das oben genannte Skript verschiebt diese Zeilen automatisch in das „Archiv“.
-
Rückverschieben: Du kannst ein ähnliches Makro erstellen, um die Zeilen aus dem „Archiv“ zurück in die aktuelle Tabelle zu verschieben. Hier ist ein einfaches Beispiel:
Sub ZeileZurueckverschieben()
Dim loLetzte As Long
Dim rngZelle As Range
Application.ScreenUpdating = False
loLetzte = Sheets("Aktuell").Cells(Rows.Count, 1).End(xlUp).Row
For Each rngZelle In Sheets("Archiv").Range("A:A")
If rngZelle.Value Like "Zurück zu Aktuell" Then
Rows(rngZelle.Row).Copy
Sheets("Aktuell").Range("A" & loLetzte + 1).PasteSpecial Paste:=xlPasteValues
Rows(rngZelle.Row).Delete
End If
Next rngZelle
Application.ScreenUpdating = True
End Sub
Tipps für Profis
- Nutze die Funktion „DataBodyRange“ in intelligenten Tabellen, um die letzte belegte Zeile dynamisch zu ermitteln, was die Codewartung erleichtert und die Effizienz steigert.
- Achte darauf, dass Du beim Verschieben von Zeilen die Formatierungen beibehältst, insbesondere wenn Du mit Formeln arbeitest. Erwäge,
.FormulaLocal anstelle von .Value zu verwenden, wenn Du Formeln verschieben möchtest.
- Teste Deine VBA-Skripte gründlich in einer Kopie Deiner Datei, um Datenverlust zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich das Skript anpassen, um mehrere Zeilen gleichzeitig zu verschieben?
Ja, das Skript kann modifiziert werden, um alle Zeilen mit dem Status „erledigt“ auf einmal zu verschieben, wie im Beispiel oben beschrieben.
2. Wie kann ich die Zeilen zurück in die aktuelle Tabelle verschieben?
Du kannst ein separates Makro erstellen, das beim Klicken auf einen Button die Zeilen aus dem „Archiv“ zurück in die aktuelle Tabelle verschiebt. Das Skript dafür wurde ebenfalls oben bereitgestellt.
3. Funktioniert dieses VBA-Skript in allen Excel-Versionen?
Das Skript sollte in den meisten modernen Excel-Versionen (z.B. Excel 2013 und neuer) funktionieren. Achte darauf, dass die richtigen Referenzen gesetzt sind.
4. Was ist, wenn ich die Zeilen verschieben möchte, ohne sie zu löschen?
Wenn Du die Zeilen nicht löschen möchtest, kannst Du die Zeilen einfach kopieren und dann die Originalzeilen in der aktuellen Tabelle belassen. Entferne einfach die Zeile Rows(rngZelle.Row).Delete aus dem Code.