Wenn-Dann

[Django 48]

Hallo und guten Tag,


DANKE
habe mal wieder ein Problem und finde keine Lösung, ist aber bestimmt einfach.

Es steht in der Zelle  zb.  555 s. Wenn da s steht, möchte ich -555 als Ergebnis haben, also das s weg und die Zahl negativ.

DANKE

[chris-ka]

hi,

Code:

Option Explicit

Sub minusChange()
'wandelt 1234s
'in -1234 um
Dim IntSearchCol As Integer
Dim objFound As Object, strFirstMatch As String
IntSearchCol = 1 'Spalte in welcher gesucht werden sollte, ggf anpassen!!!!
With Columns(IntSearchCol)
    Set objFound = .Find("*s", lookat:=xlPart)
    If Not objFound Is Nothing Then
        strFirstMatch = objFound.Address
        Do
            If objFound.Value Like "*s" Then
                If IsNumeric(Trim(Replace(objFound, "s", ""))) Then
                    objFound.Value = Trim(Replace(objFound, "s", "")) * -1
                Else
                    MsgBox objFound.Value & " in Zelle " & objFound.Address & " kann nicht in eine Zahl konvertiert werden!" & Chr(10) & "Bitte korr."
                    strFirstMatch = objFound.Address
                End If
            End If
            Set objFound = .FindNext(objFound)
        LoopWhile Not objFound Is Nothing And strFirstMatch <> objFound.Address
    End If
End With
End Sub

[Dieter63]

Hallo

Es steht in der Zelle  zb.  555 s.

 und  was  kann da sonst noch  drinstehen

 nur  eine Zahl / ein  Text /  nix /

[WillWissen]

Hi,

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B
2	555 s	-555

Zelle	Formel
B2	=GLÄTTEN(WECHSELN(A2;"s";""))*-1

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Dieter63]

Hallo

wenn s dann Minus  ansonsten der Wert der drin steht

B2 = WENN(RECHTS(A2;1)="S";LINKS(A2;LÄNGE(A2)-1)*-1;A2)

[WillWissen]

Hi Dieter,

funktioniert aber nur, wenn das "s" nach den Ziffern steht. Falls Django bei seinem Beispiel geschludert haben  sollte, z.B s 555, geht dein Vorschlag nicht.

[Jockel]

Hi Günter, schau mal vor dein Haus... Was passiert, bei deiner Formel, wenn es kein "s" gibt..?

PHP-Code:

=WENNFEHLER(ERSETZEN(A2;SUCHEN("s";A2);1;"")*-1;A2) 


könnte (auch) mit einem "s" vor oder hinter der Zahl umgehen...

[LCohen]

"Honig-unter-Leertaste" (neugetauft: Space Honey) mittlerweile bei: Dieter63, Django 48, Elex ;)

[Dieter63]

Hallo

ich hab ja schon erwähnt

und  was  kann da sonst noch  drinstehen [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

aber leider noch keine Antwort gekriegt

[Jockel]

+++ off topic +++


Hi Dieter, bei Space Honey ging's wohl um die Autoren... !!! Obwohl das bei dir zuweilen ja Honey Tab hätte heißen müssen... (^_-)