Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ersetzen mit Unix-RegExps .*

Ersetzen mit Unix-RegExps .*
29.05.2007 15:29:21
Chris
Hi,
ich weiß, dass es eigentlich nicht funktioniert, aber vielleicht kennt ja jemand ein Add-in oder ähnliches, damit ich trotzallem ein paar RegExp-Ersetzungen in VBA machen lassen kann. Mein Problem ist folgendes:
Ich habe csv-Dateien, in denen ich derzeit hintereinander 18 Ersetzungen machen muss, wobei fast alle ungefähr so aussehen: löschen. Ich denke, dass könnte schon irgendwie möglich gemacht werden in VBA, oder? Ist ja kein komplexer regulärer Ausdruck.
Für Hinweise wäre ich sehr dankbar.
Gruß,
Chris

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ersetzen mit Unix-RegExps .*
29.05.2007 15:36:37
Original
Hi,
setzt einen Verweis auf die Bibliothek:
Microsoft VBScript Regular Expressions x.x (x.x ist die Versionsnummer),
dann kannst du nach Herzenslust Reguläre Ausdrücke verwenden.
mfg Kurt

AW: Ersetzen mit Unix-RegExps .*
29.05.2007 15:41:56
chris
Vielen Dank. Und in welcher Form binde ich jetzt die RegEXPs in die Replace-Funktion ein. Funktioniert es mit Unix-Stil? Wenn ich What:="", dann funktioniert es nicht so, wie ich es mir vorstelle.
AW: Ersetzen mit Unix-RegExps .*
29.05.2007 15:45:00
c0bRa
Hio...
Hier mal ein Beispiel, wie ich es derzeit nutze:
Modul Modul1:
Option Explicit
Public Function test(ByVal s As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBscript.regexp")
    With objRegEx
        .IgnoreCase = True
        .Global = True
        .MultiLine = True
        .Pattern = "\[(.*?)\]"
    End With
    test = objRegEx.replace(s, "<$1>")
    Set objRegEx = Nothing
End Function

Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Anzeige
AW: Ersetzen mit Unix-RegExps .*
29.05.2007 15:55:00
chris
Danke,
ich habs jetzt versucht, aber ich komm nicht ganz zu Recht. Ich hab jetzt folgenden Code:

Public Function test(ByVal s As String) As String
Dim objRegEx As Object
Set objRegEx = CreateObject("VBscript.regexp")
With objRegEx
.IgnoreCase = True
.Global = True
.MultiLine = True
.Pattern = ""spitzeKlammer"file.*"spitzeKlammer""
End With
test = objRegEx.Replace(""spitzeKlammer"file.*"spitzeKlammer"", "")
Set objRegEx = Nothing
End Function




Private Sub gg()
Sheets(1).Activate
a = Cells(1, 1).Value
Call test(a)
End Sub


Und damit teste ich diesen String: "spitzeKlammer"filename666"spitzeKlammer"sdfasfdasdfasf zu durchlaufen. Es passiert aber nichts. Wo ist mein Fehler?

Anzeige
AW: Ersetzen mit Unix-RegExps .*
29.05.2007 15:58:52
c0bRa
Hio...
Probier mal statt Call eine Msgbox :)
Oder gleich als Zellfunktion =TEST(A1)
c0bRa

AW: Ersetzen mit Unix-RegExps .*
29.05.2007 16:06:42
chris
Perfekt!!!
So funktionierts:

Public Function test(ByVal s As String) As String
Dim objRegEx As Object
Set objRegEx = CreateObject("VBscript.regexp")
With objRegEx
.IgnoreCase = True
.Global = True
.MultiLine = True
.Pattern = "(file.*)"
End With
test = objRegEx.Replace(s, "")
Set objRegEx = Nothing
End Function




Private Sub gg()
Sheets(1).Activate
a = Cells(1, 1).Value
Cells(1, 2).Value = test(a)
End Sub


Anzeige

305 Forumthreads zu ähnlichen Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Anzeige
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Komma anstatt Punkt
Harald

Hallo
ich bekomme von einer Anwendung Zahlen die aber anstelle des bei uns üblichen Kommas einen Punkt haben. Ich habe mit folgendem Code versucht den Punkt mit einem Komma auszutauschen.
'Punkt zu Komma umwandeln
spalte = 4
ende = Cells(Rows.Count, spalte).End(xlUp).Row
Fo...
13.12.2008 16:42:57
Thread-ID: 1032657
7 Beiträge
Anzeige
internetseite Punkt ist ein komma
Michael

Hallo!
Ich versuche die internetseite http://www.ls-d.de/Kursabfragen.15.0.html die Daten auszuwerten. Jedoch gibt es nach der Aktualisierung immer wieder den Punkt aus. 23.203 damit kann man keine Rechenoperation ausführen. Gibt es eine Möglichkeit die Werte mit einem Komma darzustellen au...
28.01.2009 17:27:33
Thread-ID: 1044643
4 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
Till

Hallo Leute,
hab mal wieder ein (hoffentlich nicht zu kompliziertes) Problem.
In einer Datei gibt es Spalten mit Zahlen. D.h. hier kommen wirklich nur Zahlen vor, und interessieren einfach nicht.
Welches Makro kann man jetzt ablaufen lassen, um die Zellen zu finden wo "NUR Zahlen"...
26.02.2009 16:05:37
Thread-ID: 1054444
6 Beiträge
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
4 Beiträge
Nachname, Vorname umwandeln in Vorname.Nachname
Stefan

Hallo
hat jemand einen Tip wie ich aus einem Text in a1
Nachname, Vorname
in Zelle B1 Vorname.Nachname
via Formel "zaubern" kann?
Freu mich sehr auf einen Tip
Gruss Stefan
07.04.2009 20:34:22
Thread-ID: 1067520
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
2
6
2
3
2
5
3
4
7
6
6
3
5
2
5
2
3
3
3
5
4
8
2