Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro zum Verschieben von Zeilen

Makro zum Verschieben von Zeilen
14.03.2022 08:55:00
Zeilen
Guten Morgen,
ich habe eine Bestell Liste, wo ich meine Bestellungen eintrage. In der Spalte G trage ich mit ja/nein ein, ob diese Bestellung erledigt ist oder nicht. Diese Liste wächst natürlich von Tag zu Tag und ich möchte nun mit einem Makro die erledigten Bestellungen auf ein 2. Tabellenblatt übertragen und dann am 1. Tabellenblatt nur mehr die offenen Bestellungen angezeigt bekommen.
Könnt Ihr mir dabei helfen, das irgendwie hinzubekommen?
Das ist die Datei:
https://www.herber.de/bbs/user/151753.xlsm
Vielen Dank!
Otto
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Verschieben von Zeilen
14.03.2022 21:08:33
Zeilen
Hallo Otto,
wenn Zeilen gelöscht werden, sollte man von unten anfangen, also als Vorschlag:

Private Sub CommandButton1_Click()
Dim lLastRow&, lRowIn&, a&
lLastRow = Cells(Rows.Count, "A").End(xlUp).Row
With Sheets("erledigte Bestellungen")
For a = lLastRow To 2 Step -1
If Range("G" & a) = "j" Then
lRowIn = .Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & a & ":G" & a).Copy
.Range("A" & lRowIn).PasteSpecial xlValues
Range("G" & a).EntireRow.Delete
End If
Next a
Application.CutCopyMode = False
End With
End Sub
Gruß der ALteDresdner
Anzeige
AW: Makro zum Verschieben von Zeilen
14.03.2022 17:27:53
Zeilen
Hallo Otto,
Du könntest mit einem Filter deine abgeschlossene Bestellung ausblenden. Oder sortieren und dann ausblenden.
Aber dieselbe Art von Daten an verschiedenen Stellen führt nicht selten zu komplikation, wenn man Auswertzung machen muss.
VG
Yal
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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