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"