Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA: Löschen von Nr. mit Eigenschaft "Wahr"

Forumthread: Excel VBA: Löschen von Nr. mit Eigenschaft "Wahr"

Excel VBA: Löschen von Nr. mit Eigenschaft "Wahr"
11.10.2023 14:24:04
Uli
Hallo,

ich habe folgendes Problem:

Ich habe 2 Tabellen und im ersten Schritt sollen alle Nr. deren Bemerkung in der Zeile daneben "WAHR" ist rausgelöscht werden. Anschließend sollen die übriggebliebenen Nr. neu sortiert werden, da es sein kann, dass Nr. mittendrin gelöscht werden. ( einfach so, dass keine leeren Zellen dazwischen sind. Die Reihenfolge sollte aber eingehalten werden). Der nächste und letzte Schritt wäre dann, dass unter der letzten Nr. von Tabelle 1 Nr. deren Bemerkung daneben "FALSCH" ist auch in der richtigen Reihenfolge (von oben nach unten) eingefügt werden sollen.

Beispieldatei:
https://www.herber.de/bbs/user/163338.xlsm

Vielen Dank für eure Hilfe.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA: Löschen von Nr. mit Eigenschaft "Wahr"
11.10.2023 15:47:26
Piet
Hallo

diesen Code in ein normales Modul kopieren und mit normalem CommandButton starten (KEIN ActiveXSteuerelement)
Die "Falsch" Daten aus Spalte G-I werden nicht gelöscht. Falls gewünscht muss das noch programmiert werden.
Dazu kannst du den oberen Teil nehmen, unter die 2. For Next Schleife kopieren, und die Spalten Nummer anpassen.
Hinweis: Kopieren kann man mit Vorwärts Schleife, gelöscht werden muss mit Rückwärts Schleife!

mfg Piet

  • Option Explicit
    Dim j As Long, z As Long
    Dim lz1 As Long



    Sub Löschen_und_Einfügen()
    lz1 = Cells(Rows.Count, 1).End(xlUp).Row
    For j = lz1 To 3 Step -1
    If Cells(j, 3) = True Then
    Cells(j, 1).Resize(1, 3).Delete shift:=xlUp
    End If
    Next j

    z = Cells(Rows.Count, 1).End(xlUp).Row + 1
    lz1 = Cells(Rows.Count, 7).End(xlUp).Row
    For j = 3 To lz1
    If Cells(j, 9) = False Then
    Cells(j, 7).Resize(1, 3).Copy Cells(z, 1)
    z = z + 1
    End If
    Next j
    End Sub
    • Anzeige
    AW: Excel VBA: Löschen von Nr. mit Eigenschaft "Wahr"
    13.10.2023 10:26:47
    Herbert Grom
    Hallo Piet,

    warum machst du die Dims außerhalb des Makros?

    Servus
    ;

    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