Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Replace Funktion erweitern
#31
Hallo Stefan,

du hast absolut recht! Je kürzer desto besser!
Danke für den Tipp!
Antworten Top
#32
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?
Antworten Top
#33
Hallo,

mal wieder ein RegEx-Versuch

Code:
re.Pattern = "^\s+"
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#34
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
Antworten Top
#35
Lieber Uwe,

vielen Dank für Deine Hilfe.
Habs gerade ausprobiert und es klappt.
Was auch sonst!
Antworten Top
#36
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.
Antworten Top
#37
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?
Antworten Top
#38
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.

Zitat:=WENN(ISTZAHL(LINKS(A1;FINDEN(".";A1)-1)*1);WECHSELN(A1;".";")");A1)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#39
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.
Antworten Top
#40
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste