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
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
Hallo
Zitat:Es steht in der Zelle zb. 555 s.
und was kann da sonst noch drinstehen
nur eine Zahl / ein Text / nix /
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 |
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)
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.
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...
"Honig-unter-Leertaste" (neugetauft: Space Honey) mittlerweile bei: Dieter63, Django 48, Elex ;)
Hallo
ich hab ja schon erwähnt
Zitat:und was kann da sonst noch drinstehen [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
aber leider noch keine Antwort gekriegt
+++ 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... (^_-)