Vorzeichen wechsel DIE DRITTE

Bild

Betrifft: Vorzeichen wechsel DIE DRITTE
von: Wolfi
Geschrieben am: 18.11.2003 11:11:53

Hallo ich muß nochmals um Eure Hilfe bitten,

ich hab gerade entdeckt das es in meinen 40000 Zeilen noch eine 3 Form der Darstellung gibt:
1. .1000 ich brauch 1000
2. 1000- ich brauch 1000
3. .1000- ich brauch 1000

möchte das jetzt mit dem folgenden Macro lösen (die Formel wird wohl jetzt etwas zu lang ), welches ich von Euch bekommen habe. Ich hab es angepasst, aber leider, hab ich keine Ahnung wie Bedingungen für die jeweilige Umwandlung sein müssen (.....)


Sub PlusMinus()
  Dim rng As Range
  For Each rng In Selection.Cells
    
    If Left(rng, 1) = "." And Right(rng, 1) = "-" Then
            rng = ......
    ElseIf Right(rng, 1) = "-" Then _
      rng = 0 - Left(rng, Len(rng) - 1)
  
        ElseIf Left(rng, 1) = "." Then
        rng = .......
      
            
     
    End If
  Next
End Sub


Gruß und Danke
Bild


Betrifft: AW: Vorzeichen wechsel DIE DRITTE
von: Holger Levetzow
Geschrieben am: 18.11.2003 11:16:28

versuche:

Sub PlusMinus()
  Dim rng As Range
  For Each rng In Selection.Cells
    If Left(rng, 1) = "." Then rng = Right(rng, Len(rng) - 1)
    If Right(rng, 1) = "-" Then rng = 0 - Left(rng, Len(rng) - 1)
  Next
End Sub

Holger


Bild


Betrifft: AW: Vorzeichen wechsel DIE DRITTE
von: Karl-Otto Reimann
Geschrieben am: 18.11.2003 11:20:37

Hallo Wolfi

1.: Filtert Zahlen


Function ZahlStr(Text As String)
Dim t As Integer
  For t = 1 To Len(Text)
    If IsNumeric(Mid(Text, t, 1)) Then
      ZahlStr = ZahlStr & Mid(Text, t, 1)
    End If
  Next t
End Function


2.: Filtert Text


Function TextStr(Text As String)
Dim t As Integer
  For t = 1 To Len(Text)
    If Not IsNumeric(Mid(Text, t, 1)) Then
      TextStr = TextStr & Mid(Text, t, 1)
    End If
  Next t
End Function


(z.B.: In A2 steht "=TextStr(A1)")

mfG KO


Bild


Betrifft: Danke
von: Wolfi
Geschrieben am: 18.11.2003 13:16:59

So jetzt klappt es wie ich mir das vorstelle.

Danke nochmals!!!!!!!!!!!!

Gruß Wolfi


Bild

Beiträge aus den Excel-Beispielen zum Thema " Vorzeichen wechsel DIE DRITTE"