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"