Zellinhalt überprüfen
11.02.2009 10:42:00
Franz
ich möchte in Spalte B in meiner Exceltabelle, wenn die Zahlen in dieser
Spalte z.B. 3- sind das Minus vor der Zahl stellen also -3. Im Prinzip sollen nur
bei Zahlen wo das Minus hinter der Zahl steht vor der Zahl geschrieben werden. Bei
meinem Code (s.unten) wird die letzte Ziffer gelöscht. Wie muss ich den Code abändern
das es funktionert? Danke.
Gruss Franz
Sub Ziffer_minus_nach_vorne()
For a = 1 To Worksheets("tabelle1").Range("b65536").End(xlUp).Row
If Not Cells(a, 2).Value = "" Then
Cells(a, 2).Value = Left(Cells(a, 2).Value, Len(Cells(a, 2).Value) - 1)
End If
Next a
End Sub
Anzeige