Office: Bestimmte Zeichen einer Zeichenfolge löschen

Hallo,

ich möchte unter der Bedingung, dass die Zeichenfolge mit einer runden Klammer beginnt, jeweils das erste und die letzten beiden Zeichen löschen.
Also (0,2345)F zu 0,2345 verändern.

Welche VBA-Befehle kann ich hierfür verwenden?

Gruß,
Sebastian

:)

 

If Left(Variable,1)="(" then

 

Hallo Sebastian,

Du willst also die Zahl innerhalb der Klammern auslesen?

Probier mal:
Code:

Grüße
EarlFred

 

Der Code ist wie unten dargestellt. Problem ist, dass Zahlen, die keine Null vor dem Komma haben nicht korrekt ausgelesen werden. Aus (3,3444)F wird 33444. Kein Fehler bei Zahlen mit Null beginnend. ?


Do While Range("betrag").Offset(i, 0) ""
If Left(Range("betrag").Offset(i, 0), 1) = "(" Then
Range("d1").Offset(i, 0) = "X"
Range("betrag").Offset(i, 0) = Mid(Range("betrag").Offset(i, 0), 2, 6)
End If
i = i + 1
Loop

 

Hallo basti182

unter der Voraussetzung daß in der Zelle so wie von Dir beschrieben (0,2345)F steht und daß diese dann auch keine negative Zahl ist, versuchs mal mit der nachstehenden Formel. In A1 deine Zahl die Formel in B1.
Code:

Diese liefert Dir aber einen String zurück. Mußt Du damit weiterrechnen, dann füge einfach ein *1 an
Code:

 

Hallo Sebastian,

Versuche es mal.

Code:

 

Hallo, dazu hab ich auch ne Frage,

ich hab circa 1134 Kundennummern, die z. B. so angezeigt werden: [11111]
ich möchte, das sie jedoch so angezeigt werden: 11111

bis jetzt hab ichs über den Makrorecorder versucht, der bringt nichts hilfreiches zustande und über die Anweisung trimstar trimend, was jedoch auch nur zu einer Fehlermeldung führt. Was mache ich falsch?

 

=TEIL(A2;2;LÄNGE(A2)-2) bzw. Mid(KdNr, 2, Len(KdNr) - 2)

 

Moin auch von mir!

Zunächst: Respekt für die Schätzung! *wink.gif*
"Angezeigt werden" kann natürlich auch ein benutzerdefiniertes Zahlenformat sein.
Dann würde ein =A2 im Standard-Format reichen …

Aber Lupo wird wohl richtig liegen.

Gruß Ralf

 

Soweit so gut, , funktioniert soweit, doch wie kann ich die Kundenummern durch die Nummer ohne geschweifte Klammer ersetzen?

Edit: Handelt sich leider um kein Format, wurde so aus unserem Programm exportiert.

 

SUCHEN und ERSETZEN

Spalte markieren dann zuerst linke Klammer suchen und durch nichts ersetzen und danach rechte Klammer suchen und durch nichts ersetzen.

 

Wie schön.

Was funktionierte denn dann eben genau?

Wo geht es hier um geschweifte Klammern?