Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen verschieben, wenn "x" oder Haken gesetzt

Forumthread: Zeilen verschieben, wenn "x" oder Haken gesetzt

Zeilen verschieben, wenn "x" oder Haken gesetzt
03.05.2019 08:43:55
Sandra
Guten Morgen Excelfreunde,
Ich habe eine Tabelle mit zwei Registerkarten. (offen/erledigt) Ziel soll es sein in Tabelle1 gewisse Daten in Bsp. "B8" einzugeben. Wenn nun in "L8" ein "x" gesetzt wird oder mittels CheckBox ein Haken (Was einfacher ist) soll die gesamte Zeile in das zweite Tabellenblatt an die gleiche Position verschoben werden.
Kann so etwas mit einer Wenn-Formel realisiert werden? oder wird ein Makro benötigt?
Vielen Dank.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen verschieben, wenn "x" oder Haken gesetzt
03.05.2019 09:24:53
Daniel
Hi
"verschieben" ist mit Formeln nicht möglich, denn wenn du per Formel einen Inhalt von einem Tabellenblatt in ein anderes übernimmst, dann muss dieser Inhalt im Quelltabellenblatt erhalten bleiben, ansonsten kann die Formel nichts anzeigen.
Formeln eignen sich daher höchtens zum "kopieren" aber nicht zum "verschieben", du wirst daher wahrscheinlich ein Makro benötigen.
Gruß Daniel
Anzeige
AW: Zeilen verschieben, wenn "x" oder Haken gesetzt
03.05.2019 09:31:23
Sandra
Vielen Dank Daniel.
Hast du zufällig noch eine Idee wir der aussehen könnte?
AW: Zeilen verschieben, wenn "x" oder Haken gesetzt
03.05.2019 09:53:20
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter "Offen"
- Code anzeigen
- Dieses Makro dort reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TB, Zeile As Long
    On Error GoTo Fehler
    
    If Not Intersect(Range("L:L"), Target) Is Nothing Then
        Set TB = Sheets("Erledigt")
        If UCase(Target) = "X" Then
            Zeile = Target.Row
            Application.EnableEvents = False
            Rows(Zeile).Cut TB.Rows(Zeile)
        End If
    End If
    
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Bei Änderung in Spalte L läuft das makro los und prüft auf x...
LG UweD
Anzeige
AW: Zeilen verschieben, wenn "x" oder Haken gesetzt
03.05.2019 10:11:21
Sandra
Funktioniert. Vielen Dank Uwe. Kann ich zusätzlich noch bestimmen, dass wenn die Zeile dann leer ist, diese direkt ausgeblendet wird oder der Rest nachrutscht? Quasi um leere Zeilen zu vermeiden?
AW: Zeilen verschieben, wenn "x" oder Haken gesetzt
03.05.2019 11:36:25
UweD
Hallo
ja, das geht.
Du hattest aber geschrieben, dass an die gleiche Position verschoben werden sollte.
Wenn nun z.B. die Zeile 10 übertragen wird in Zeile 10 des anderen Blattes und dann in Blatt 1 gelöscht wird, ist die nachgerückte Folgezeile die Neue 10.
Setzt du dort dann das X, wird in Blatt2 die Zeile 10, die ja schon besteht, überschrieben.
Das möchtest du sicher nicht.
Alternative wäre, den Übertrag immer unten anzuhängen.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TB, Zeile As Long, LR  As Long
    On Error GoTo Fehler
    
    If Not Intersect(Range("L:L"), Target) Is Nothing Then
        Set TB = Sheets("Erledigt")
        LR = TB.Cells.SpecialCells(xlCellTypeLastCell).Row + 1 'erste Freie Zeile des gesamten Blattes 
    
        If UCase(Target) = "X" Then
            Zeile = Target.Row
            Application.EnableEvents = False
            Rows(Zeile).Cut TB.Rows(LR)
            Rows(Zeile).Delete xlUp
        End If
    End If
    
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Zeilen verschieben, wenn "x" oder Haken gesetzt
03.05.2019 11:44:42
Sandra
Perfekt. Alles super. Vielen lieben Dank für die Erklärung und den Sub :)
gern geschehen owT
03.05.2019 12:04:56
UweD
;

Forumthreads zu verwandten Themen

Zeilennummer automatisch verschieben
oblivion

Hallo, wollte mal wissen ob man die Zeilennummer automatisch erhöhen kann, wenn man eine Formel nach rechts zieht.
Ich habe daten in einer Tabelle untereinader stehen.
In einer 2. Tabelle brauche ich die gleíchen Daten aber waagerecht.
Wenn ich die Formel =Tabelle1!$A1 nach rechts z...
31.08.2008 13:22:00
Thread-ID: 1006181
12 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Zeilen nach oben verschieben
Josef_T

Hallo zusammen,
habe wieder ein Problem, dass ich nicht gelöst bekomme und deshalb Hilfe von Experten
benötige.
Mein Prob, habe ich hier näher beschrieben: https://www.herber.de/bbs/user/63496.xls
Danke
Gruß Josef
28.07.2009 19:13:39
Thread-ID: 1092043
9 Beiträge
zeilen automatisch verschieben
Daniel

Hallo liebe Excel gemeinde,
folgendes Problem habe ich:
Ich möchte gerne in einem tabellenblatt daten von mehreren anderen Tabellenblättern in der gleichen arbeitsmappe durch verschiedene Formeln auswerten. Das ist kein Problem.
Mein Problem ist, wenn ich in einzelnen Arbeitsblät...
18.06.2010 22:04:22
Thread-ID: 1162732
2 Beiträge
ActiveCell + 2 Zeilen nach rechts
Kay

Hallo Excel-Forum,über einen Suchstring springe ich in eine Zelle, z.B. "A4" und möchte nun 2 Zellen nach rechts gehen(C4). Wie kann ich diese Zelle als "ActiveCell" deklarieren?Danke
Kay

06.05.2002 12:59:02
Thread-ID: 118797
2 Beiträge
Zeilen ausblenden und verschieben wenn...
Michael

Hallo,ich habe da ein Problem das glaube ich nicht in Excel zu lösen ist. Ich habe eine Kundendienstliste mit den Zellen Name, Strasse Ort, Plz, Kundendienstgrund, ErledigtIch möchte nun eine Zeile komplett in eine andere Arbeitsmappe ("Archiv")verschieben lassen sobald im hintersten Feld "Erle...
08.05.2002 16:41:22
Thread-ID: 119609
2 Beiträge
Zeilen aus Range löschen, wenn Bedingung erfüllt
Peter

Guten Tag
Mit untenstehendem Code lösche ich gewisse Zeilen, wenn diese in einmem String auf der gleichen Zeile eine bestimmte Bedingung erfüllen.
Das funktioniert so lange, bis die Bedingung auf der zweitletzten Zeile und der letzten Zeile zutrifft. Dann wird die letzte Zeile nicht gel...
04.06.2013 12:06:44
Thread-ID: 1316229
4 Beiträge
Anzeige
VBA Zeilen verschieben wenn Bedingungen erfüllt
Jochen

Hallo zusammen,
ich habe hier ein Problem bei dem ich absolut nicht weiterkomme.
Ich habe eine Projektübersicht (Tabelle1) in Excel. Nun würde ich gerne wenn ein Projekt abgeschlossen ist, dieses komplett in ein Archivtabellenblatt (Tabelle2)verschieben.
In Spalte B habe ich die Pro...
05.07.2013 08:50:01
Thread-ID: 1321225
5 Beiträge
Anzeige
Zeilen(bereich) kopieren wenn Bedingungen erfüllt
Chris

Hallo zusammen,
ich habe leider ein Problem bei der Erstellung eines Makros.
In Tabelle1 befinden sich in der Spalte A bis H ausgefüllte Zelle. Nun soll ein Makro alle Zeilen, die sowohl in Spalte G eine 1 und in Spalte H ein X haben in Tabelle2 kopieren. Dabei soll aber die Spalte B un...
19.02.2014 16:52:23
Thread-ID: 1350404
4 Beiträge
Zeilenwerte von links nach rechts auslesen
links

Hallo Zusammen,
für Eure Hilfe wäre ich total dankbar. Auch in einem Post vor 4 Wochen, konnte das Thema nicht gelöst werden und nirgendwo finde ich einen Lösungsansatz - dabei müssten doch noch mehr Leute vor so einer Aufgabe stehen:
Ich suche eine Formel (kein Makro / VBA), die Zeilen...
29.09.2014 18:20:06
Thread-ID: 1383986
8 Beiträge
VSB - Zeile auslesen, wenn Bedingung erfüllt
loki

Hallo,
leider bin ich nicht sonderlich gut bewandt in Visual Basic, doch glaube ich genau dort die Lösung meines derzeitigen Problems zu finden.
Ausgangssituation:
Ich habe zwei Tabellen.
Tabelle 1 = Quelle
Tabelle 2 = Ziel
In Tabelle 1 stehen jeweils in jeder Zeile in...
24.10.2014 14:33:36
Thread-ID: 1388454
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilen verschieben in Excel bei Haken oder "x"

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und gehe zu dem Tabellenblatt, in dem du die Daten verwalten möchtest (z. B. „Offen“).

  2. Füge eine Checkbox hinzu, um den „erledigt Haken“ zu setzen:

    • Gehe zum Tab „Entwicklertools“.
    • Klicke auf „Einfügen“ und wähle „Checkbox“ aus den Steuerelementen.
    • Platziere die Checkbox in einer Zelle, z. B. in Spalte L.

  3. Füge den folgenden VBA-Code hinzu, um die Zeilen automatisch zu verschieben, wenn das Häkchen gesetzt ist:

    • Rechtsklicke auf den Reiter des Tabellenblatts „Offen“ und wähle „Code anzeigen“.
    • Kopiere den folgenden Code in das VBA-Fenster:
    Private Sub Worksheet_Change(ByVal Target As Range)
   Dim TB, Zeile As Long
   On Error GoTo Fehler

   If Not Intersect(Range("L:L"), Target) Is Nothing Then
       Set TB = Sheets("Erledigt")
       If UCase(Target) = "X" Then
           Zeile = Target.Row
           Application.EnableEvents = False
           Rows(Zeile).Cut TB.Rows(TB.Cells.SpecialCells(xlCellTypeLastCell).Row + 1)
           Rows(Zeile).Delete xlUp
       End If
   End If

Fehler:
   Application.EnableEvents = True
   If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

  4. Teste die Funktionalität, indem du in Spalte L ein „x“ oder das Häkchen setzt. Die gesamte Zeile sollte nun in das Tabellenblatt „Erledigt“ verschoben werden.

Häufige Fehler und Lösungen

  • Fehler: Zeile wird nicht verschoben.

    • Stelle sicher, dass der Code im richtigen Blatt (z. B. „Offen“) eingefügt wurde.

  • Fehler: „x“ wird nicht erkannt.

    • Überprüfe, ob du die Formel in der richtigen Zelle eingegeben hast und ob die Groß- und Kleinschreibung beachtet wird.

  • Leere Zeilen bleiben bestehen.

    • Stelle sicher, dass der Befehl Rows(Zeile).Delete xlUp im Code enthalten ist, um die leeren Zeilen zu entfernen.

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du auch die Filter-Funktion verwenden, um erledigte Aufgaben anzuzeigen oder auszublenden. Hier ist eine einfache Methode:

  1. Setze Filter auf deine Tabelle (Tab „Daten“ > „Filtern“).
  2. Filtere nach „Haken gesetzt“ oder „x“ in Spalte L.
  3. Kopiere die gefilterten Zeilen manuell in das „Erledigt“-Tabellenblatt.

Diese Methode erfordert jedoch mehr manuellen Aufwand und ist nicht so automatisiert wie die VBA-Lösung.

Praktische Beispiele

  • Beispiel 1: Du hast eine To-Do-Liste in „Offen“. Wenn du in Spalte L ein „x“ setzt, wird die Aufgabe automatisch in das Blatt „Erledigt“ verschoben.

  • Beispiel 2: Wenn du mehrere Aufgaben hast, kannst du diese im gleichen Schritt verschieben, indem du die Checkboxen für mehrere Zeilen aktivierst.

Tipps für Profis

  • Automatisierung verbessern: Du kannst den VBA-Code anpassen, um zusätzlich die Zeit zu protokollieren, wann die Aufgabe erledigt wurde.

  • Bedingen Formatierung: Nutze bedingte Formatierungen, um die verbleibenden Aufgaben hervorzuheben, während die erledigten Zeilen in der Tabelle „Erledigt“ angezeigt werden.

  • Fehlerüberprüfung: Füge zusätzliche Fehlerüberprüfungen in deinen VBA-Code ein, um sicherzustellen, dass keine unerwarteten Probleme auftreten.

FAQ: Häufige Fragen

1. Kann ich auch mehrere Zeilen gleichzeitig verschieben?
Ja, du kannst den Code anpassen, um mehrere Zeilen zu verarbeiten, indem du eine Schleife hinzufügst, die alle markierten Zeilen durchläuft.

2. Funktioniert das auch in Excel Online?
Leider funktionieren VBA-Makros nicht in Excel Online. Du musst Excel auf deinem Desktop verwenden.

3. Was passiert, wenn ich das „x“ wieder entferne?
Der aktuelle Code verschiebt die Zeilen nur, wenn ein „x“ gesetzt wird. Du kannst den Code anpassen, um eine Rückverschiebung zu ermöglichen, wenn das „x“ entfernt wird.

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