Office: Zeichen in einer Zeile finden mit VBA

Hallo,

ich möchte in einer Zelle Prüfen ob das erste Zeichen ein Minus ist "-". Und diese Zeile dann löschen.
Wenn ich die Zeile so komplett in die IF Formel einsetze klappt alles wunderbar, aber die Zeile ist ja Variabel.

Code mit Eingesetzter Formel:

Code:

For Zeile = lng To 3 Step -1
    If Cells(Zeile, 5) = "- STD.     MENGE =         3" Then
    Rows(Zeile).Delete
    End If
Next Zeile

So irgendwie sollte es aber aussehen:
Wenn in cells(Zeile,5) das erste Zeichen ein Minus ist, dann lösche diese Zeile.

Jemand eine Idee?
Ich benutze Excel 2000.

Danke

 

Hi Marius,

Code:

If Left(Cells(Zeile, 5), 1) = "-" Then

Bis später,
Karin

 

Danke, genau das hab ich gesucht!!!

 

Ich hab doch noch mal eine Frage.
Ich möchte die gefundene Zeile nicht löschen sondern die Cells( Zeile, 4) mit -1 Multiplizieren:
So ungefähr:

Code:

For Zeile = lng To 3 Step -1
    If Left(Cells(Zeile, 5), 1) = "-" Then
    Cells(Zeile,4)* -1
    End If
Next Zeile

Leider kommt immer ein Fehler.

 

Ich hab die Lösung:

Code:

For Zeile = lng To 3 Step -1
    If Left(Cells(Zeile, 5), 1) = "-" Then
    Cells(Zeile, 4) = Cells(Zeile, 4) * (-1)
    End If
Next Zeile

 

Hi Marius,

die Klammern um die -1 kannst du weglassen, wenn du die Zeile so schreibst:

Code:

Cells(Zeile, 4) = -1 * Cells(Zeile, 4)

Bis später,
Karin