Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1968to1972
1968to1972
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Checkbox aktiviert Zeile kopieren und löschen

Forumthread: Checkbox aktiviert Zeile kopieren und löschen

Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 10:03:47
Beno297
Hallo @ All

könnte mal wieder ein wenig Hilfe gebrauchen.

würde gern bei aktivierter Checkbox in Tabelle 1 die Zeile in Tabelle 2 kopieren und aus Tabelle 1 löschen.

MFG Beno
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 10:49:39
RPP63
Moin!
Und nun?
Du wirst doch sicherlich mehr als eine Zeile haben.
Willst Du Dir wirklich 100te CBs antuen?
Mein Excel 365 kennt Einfügen, Kontrollkästchen:

Damit kann man schicke Sachen anstellen …

Zur Not tut es natürlich auch ein X, jedenfalls hält es den Code schlank.

Gruß Ralf
Anzeige
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 11:05:46
Beno297
Moin Ralf,

habe ca 30 Zeilen von A bis L
Beginne tut die Tabelle in Zeile 4 mit der Überschrift. nun würde ich gern wenn in L ein x oder eine Checkbox aktiv ist das die Zeile ich ein Tabellen Blatt "Erledigt" kopiert würd und aus Tabelle 1 gelöscht wird.

Mfg Beno
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 11:27:18
schauan
Hallöchen,

hier mal ein Ansatz für die Vorgehensweise: 

Sub Makro1()

    ActiveSheet.Range("$A$1:$L$31").AutoFilter Field:=12, Criteria1:=">"

    With Range("$A$2:$L$31").SpecialCells(xlCellTypeVisible)

      .Copy Sheets("Tabelle2").Range("A2")

      .Delete

    End With

End Sub


Hinweise:
- Du solltest prüfen, ob im Bereich auch ein x vorhanden ist, ansonsten bekommst Du eine Fehlermeldung. Kann man natürlich auch programmieren.
- der code löscht die ganze Blattzeile. Wenn das ok ist, kann man auch die Meldung unterdrücken. Wenn nicht, muss man beim Löschen anders vorgehen.
- der Code fügt immer in A2 ein, egal, ob dort schon was steht. Wenn Du die alten Daten behalten willst, müsste man die erste freie Zelle programmieren.
- der Code fügt immer in A2 ein, egal, ob dort schon was steht. Wenn Du die alten Daten überschreiben willst, sollte man sie besser löschen - es könnten mehr sein als die neuen.
Anzeige
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 11:35:51
schauan
.. und noch ein Hinweis - der code prüft auf irgendwas in der Zelle, für nur x also entsprechend anpassen.
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 11:36:40
Beno297
Hi schauan,

vielen Dank würde die daten in erledigt gern behalten.

mfg
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 11:48:37
schauan
Hallöchen,

dann so: 

Sub Makro2()

    ActiveSheet.Range("$A$1:$L$31").AutoFilter Field:=12, Criteria1:=">"

    With Range("$A$2:$L$31").SpecialCells(xlCellTypeVisible)

      .Copy Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1)

      .Delete

    End With

End Sub
Anzeige
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 12:06:13
Beno297
Hey Bekomme leider Laufzeit Fehler 

Sub Makro2()

    ActiveSheet.Range("$A$1:$L$31").AutoFilter Field:=12, Criteria1:="x"

    With Range("$A$5:$L$31").SpecialCells(xlCellTypeVisible)

      .Copy Sheets("Produziert").Cells(Rows.Count, 1).End(xlUp).Offset(1)

      .Delete

    End With

End Sub
Anzeige
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 12:08:21
schauan
Im Bereich gibt's auch das kleine x?
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 12:08:56
RPP63
Zeig mal die Datei per upload, in der der (welcher?) LZF auftritt.
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 14:16:49
daniel
Hi
der Fehler ist, dass du die Tabelle für den Autofilter nicht richtig addressierst.
ich würde es aber ohne den Autofilter machen
dieser Code ersetzt das "x" durch einen Wahrheitswert. Dadurch kann man dann mit den SpecialCells gezielt auf diese Zellen zugreifen. 
Sub Makro2()

With ActiveSheet.Columns(12)

    If WorksheetFunction.CountIf(.Cells, "x") > 0 Then

        .Replace "x", True

        With .SpecialCells(xlCellTypeConstants, 4)

            .Value = "x"

            .EntireRow.Copy Sheets("Produziert").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

            .EntireRow.Delete

        End With

    End If

End With

End Sub
Anzeige
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 14:50:43
Beno297
Hi Daniel

Funktioniert mit einem x super.
nur wenn ich mehrere an verschiedenen stellen setzte Laufzeitfehler bei EntireRow.Delete.
Kopie wird aus geführt nur löschen nicht.


mfg Beno
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 14:58:16
schauan
... nimm nur.delete
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 15:50:02
daniel
hi
naja, mehre "x" konnte ich nicht setzen.
das Problem ist, dass du ne Formatierte Tabelle hast.
machs mal so wie schauan sagt.
Gruß Daniel
Anzeige
AW: Checkbox aktiviert Zeile kopieren und löschen
14.03.2024 17:07:03
schauan
Hallöchen,

und hier dann meine Version nochmal verbessert: 

Sub Makro4()

    With ActiveSheet.ListObjects("Tabelle1")

      If WorksheetFunction.Count(.ListColumns(12).DataBodyRange, "x") > 0 Then

        .Range.AutoFilter Field:=12, Criteria1:="x"

        With .DataBodyRange.SpecialCells(xlCellTypeVisible)

          .Copy Sheets("Produziert").Cells(Rows.Count, 1).End(xlUp).Offset(1)

          .Delete

        End With

      Else

        MsgBox "Nix x gefunden"

      End If

    End With

End Sub


Erst wird die Tabelle gefiltert, und anschließend im Datenbereich die sichtbaren Zeilen kopiert und gelöscht.
Anzeige

Forumthreads zu verwandten Themen

ganze bestimmte Zeilen ausschneiden und löschen
Urmila

Hallo alle,
ich habe folgende Werte (siehe File)
Die Datei https://www.herber.de/bbs/user/55023.xls wurde aus Datenschutzgründen gelöscht
Ich will per Knopfdruck, dass wenn in irgendeiner Zelle in Spalte D ein Datum eingetragen wird, diese ganze Zeile (hier in dem Fall Zeile 5:5) a...
29.08.2008 15:11:45
Thread-ID: 1005853
4 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Zeile aus Tabelle und Listbox löschen
Andre

Hallo,
ich hatte ein Problem und hier wurde mir geholfen mit folgendem Code
Private Sub UserForm_Initialize() Private Sub UserForm_Initialize() Dim arr, l As Long, m As Long, n As Long, o As Long With Worksheets(2) arr = .Range(.Cells(1, 1), .Cells(62, 4)) End With For l = LBound(arr)...
10.11.2009 19:51:23
Thread-ID: 1115974
9 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Anzeige
Spaltenbereich ausschneiden und einfügen | Herbers Excel-Forum
Peter
Guten Tag
Ich möchte im ersten Sheet eines bestimmten Workbooks einen Spaltenbereich aus der Spalte P ausschneiden und in Spalte N einfügen.
Ich habe etwas Probleme mit der Syntax.
Wer hilft mir?
Vielen Dank, Peter
With ActiveWorkbook
.Sheets(1).range(cells(1,16),cells(zEnd,...
05.01.2010 10:58:08
Thread-ID: 1127228
7 Beiträge
Anzeige
Inhalt Ausschneiden und Löschen
Sascha

Hallo,
ich möchte manuell einige Inhalte aus einer Zelle ausschneiden und in Word einfügen. Der Inhalt der Zelle sollte auch mit dem Ausschneiden verschwinden in der Excel Tabelle, so dass ich nicht immer rechte Maustaste und "Inhalt Löschen" betätigen muss. Welche Einstellung muss ich dafü...
17.06.2010 22:03:25
Thread-ID: 1162596
6 Beiträge
Zeilen zählen und leere löschen
Andi

HAllo zusammen,
zu meinem Problem habe ich bereits mehrere Beiträge gesehen und Teile zusammen gefügt.
Im Grunde genommen möchte ich "nur" in einem Bereich die leeren Zeilen löschen lassen.
Dazu lasse ich die Anzahl Zeilen zählen (minus 1 da er sonst die leere Zeile unter dem letzte...
07.01.2011 12:53:19
Thread-ID: 1194425
3 Beiträge
Viele Zeilen ausschneiden und hinterher einfügen
Dino

Hi Leute,ich möchte mit rechte Maustaste (oder anders) vielen Zeilen ausschneiden und hinterher sie in biliebige Zeile untereinander einfügen.z.B.ich schneide Zeile 20, 23, 24, 28, 30, 33 aus und füge sie vor Zeile 10 ein.
Die Ausgeschnittenen Zeilen stehen dann untereinander.Vielen Dank im...
21.05.2002 20:04:08
Thread-ID: 122530
3 Beiträge
Anzeige
leere zeile finden und dann erst einfügen
Hoppe

Hallo,
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man...
24.06.2011 13:55:45
Thread-ID: 1219530
2 Beiträge
letzte gefüllte Zeile suchen und danach einfügen
Sandra

Hallo zusammen,
tja ... ich schon wieder. Ohne Eure Hilfe bekomm ich das nicht hin.
Ich habe ein Makro was auf ein Projekt zugeschnitten ist. Das läuft auch ganz prima. Eigentlich läuft es sogar so gut, dass ich es jetzt standardisieren muss. Und was das angeht wird es in meinen Augen...
12.07.2011 14:40:13
Thread-ID: 1221853
6 Beiträge
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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