Zeilen anzeigen und löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zeilen anzeigen und löschen
von: Peter
Geschrieben am: 17.02.2005 11:13:03
Hallo,
ich hoffe mir kann einer helfen.
Wie kann mit VBA das folgende Problem gelöst werden.
In einer Tabelle sollen die Zeilen, in denen in der Spalte P ein größerer Wert als 9500000000 steht farbig angezeigt werden und nach einer Abfrage Ja/Nein gelöscht werden.
Danke
Peter

Bild

Betrifft: AW: Zeilen anzeigen und löschen
von: Roland Hochhäuser
Geschrieben am: 17.02.2005 12:20:47
Hallo Peter,
das müsste es tun:

Sub KennzeichnenUndLöschenMitAbfrage()
Dim i As Integer
For i = Range("P65536").End(xlUp).Row To 1 Step -1
    If Range("P" & i).Value > 9500000000# Then
        Rows(i).Interior.ColorIndex = 3
        If MsgBox("Soll die Zeile " & i & " gelöscht werden?", 1) = 1 Then
            Rows(i).Delete
        Else
            Rows(i).Interior.ColorIndex = xlNone
        End If
    End If
Next
End Sub

Feedback wäre nett :-)
Gruß Roland
Bild

Betrifft: AW: Zeilen anzeigen und löschen
von: Peter
Geschrieben am: 17.02.2005 12:31:43
Hallo Roland,
das Makro funktioniert, Drei Änderungen müssten vielleicht noch eingebaut werden.
1. Coursor sollte auf automatisch auf NEIN (muß noch rein) , springen
2. Dritter Auswahlbutton, zum Abbrechen des Makros.
3. Die entsprechende Zeile sollte angezeigt werden.
Danke erstmal
Peter
Bild

Betrifft: AW: Zeilen anzeigen und löschen
von: Roland Hochhäuser
Geschrieben am: 17.02.2005 13:04:03
Hallo Peter,
das sieht dann so aus:

Sub KennzeichnenUndLöschenMitAbfrage()
Dim i As Integer
For i = Range("P65536").End(xlUp).Row To 1 Step -1
    If Range("P" & i).Value > 9500000000# Then
        Range("P" & i).Select
        Rows(i).Interior.ColorIndex = 3
        If MsgBox("Soll die Zeile " & i & " gelöscht werden?", 259) = 2 Then
            Rows(i).Interior.ColorIndex = xlNone
            Exit Sub
        End If
        If MsgBox("Soll die Zeile " & i & " gelöscht werden?", 259) = 1 Then
            Rows(i).Delete
        Else
            Rows(i).Interior.ColorIndex = xlNone
        End If
    End If
Next
End Sub

Gruß Roland
Bild

Betrifft: AW: Zeilen anzeigen und löschen
von: peter
Geschrieben am: 17.02.2005 13:11:18
Roland,
funktioniert tadellos, nur müssten das Makro noch zu den Spalten A bis O rüber scrollen, da die Werte dann daß Löschen beinflussen.
Peter
Bild

Betrifft: Range("A" & i).Select owT
von: Roland Hochhäuser
Geschrieben am: 17.02.2005 13:45:58

Bild

Betrifft: Danke OT
von: Peter
Geschrieben am: 17.02.2005 14:10:36

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen anzeigen und löschen"