Replace Funktion erweitern

[Kathrin Doppelbauer]

Hallo Stefan,

du hast absolut recht! Je kürzer desto besser!
Danke für den Tipp!

[Büroklammer]

Hallo meine Lieben,

ich habe im Büro folgendes Problem. Habe lange Textlisten in Excel.
Das Problem: in den einzelnen Zellen befinden sich links Leerzeichen,
mal einer, zwei , drei oder auch mehr. Der in den Textlisten stehende Text soll aber
linksbündig abschließen. Wie kriege ich so etwas hin?

[Steffl]

Hallo,

mal wieder ein RegEx-Versuch

Code:

re.Pattern = "^\s+"

[Kuwer]

Hallo,

dafür gibt es die Trim-Funktion.

Code:

Sub aaa()
  Dim strT As String
  strT = "  Test  Test "
  Debug.Print strT
  strT = Trim(strT)
  Debug.Print strT
End Sub

Gruß Uwe

[Büroklammer]

Lieber Uwe,

vielen Dank für Deine Hilfe.
Habs gerade ausprobiert und es klappt.
Was auch sonst!

[Wulfi]

Hallo VBA Experten,

ich möchte mein VBA Makro um folgende Funktionalität eines regulären Ausdruckes erweitern:
Wenn ich drei oder vier beliebige Buchstaben eingebe, soll es möglich sein, dass diese Buchstaben enthaltene
Wort durch ein Neues auszutauschen.

Wie müßte der Pattern eines solchen regulären Ausdrucks aussehen?
Kriege ein solches Suchmuster leider nicht hin.

[sotaros]

Hallo Leute,

ich möchte Zahlen die mit einem Punkt abschließen also 1. oder 23. oder 445. also mit beliebiger Länge durch
folgende Ausdrücke ersetzen: 1) bzw. 23) bzw. 445)

Dabei habe ich allerdings folgendes Problem ich kann nicht einfach die Replacementfunktion mit "einem Punkt" wählen,
da ich zusätzlich in meinen Listen ganze Sätze stehen habe, die mit einem Punkt abschließen. Hier würde sich
die Punkt dann ja bei Anwendung von Replace in eine Klammer verwandeln. Dort soll er aber stehen bleiben.


Wie macht man so etwas mit VBA Programmierung?

[WillWissen]

Hi,

mit VBA kann ich dir leider nicht helfen.

Ich hoffe die Makrospezialisten steinigen mich jetzt nicht, aber ich könnte mir vorstellen, dass du die folgende Formel irgendwie in deinen Code einbaust.

=WENN(ISTZAHL(LINKS(A1;FINDEN(".";A1)-1)*1);WECHSELN(A1;".";")");A1)

[sotaros]

Hallo Günter,
vielen Dank schon mal für deine Hilfe. Schon die Formel sieht ja gruselig aus!
Hoffe eine VBA Guru erbarmt sich meiner.

Dir einen schönen Abend.

[schauan]

Hallo Wulfi,

hier mal ein Ansatz für's Ersetzen von 3 Buchstaben - in dem Fall die ersten 3. Wenn Du das nur bei 3-stelligen Worten willst, lässt Du Dein Excel nur vor dem ersetzen die Läge des Wortes prüfen.

Code:

Sub prcTestRegex()
   Dim re As Object
   Set re = CreateObject("vbscript.regexp")
   re.Pattern = "[a-zA-Z]{3}"
   MsgBox re.Replace("ABCD", "")
End Sub