VBA Lösung gesucht

Bild

Betrifft: VBA Lösung gesucht
von: Josef
Geschrieben am: 07.04.2005 07:04:05
Guten Morgen!
Ich würde bitte folgende VBA Lösung suchen:
Wenn in einer Zeile in Spalte I das Wort NEIN steht, das soll diese Zeile gelöscht oder markiert werden.

Danke

Josef

Bild

Betrifft: AW: VBA Lösung gesucht
von: Marcus Rose
Geschrieben am: 07.04.2005 07:15:53
Hallo,
möchtest Du das so ungefähr haben?


      
Sub loesche()
    
Dim Loletzte As Long
    
Dim i As Integer
    Loletzte = IIf(IsEmpty(Range(
"i65536")), Range("i65536").End(xlUp).Row, 65536)
    
For i = 1 To Loletzte
    
If Cells(i, 9) = "nein" Then
    Cells(i, 9).EntireRow.Delete
    
End If
    
Next i
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
Marcus
http://xltreff.de
Bild

Betrifft: AW: VBA Lösung gesucht
von: Josef
Geschrieben am: 07.04.2005 08:59:21
Hallo Marcus!
Danke für Deine Lösung.

Schönen Tag noch

Josef
Bild

Betrifft: AW: VBA Lösung gesucht
von: WernerB.
Geschrieben am: 07.04.2005 07:33:02
Hallo Josef,
wie gefällt Dir das?

Sub Josef()
Dim i As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 9).End(xlUp).Row
    For i = laR To 1 Step -1
      If Cells(i, 9).Text = "NEIN" Then
        Rows(i).Delete
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: AW: VBA Lösung gesucht
von: Josef
Geschrieben am: 07.04.2005 09:00:42
Hallo Werner!
Danke für Deine Lösung funktioniert bereits bestens.

Josef
 Bild

Beiträge aus den Excel-Beispielen zum Thema "datumsformat in wenn formel"