Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Saarbauer vom 19.05.2022, 21:01 Options

Bindestrich im Text suchen und löschen

Hallo,

ich möchte per Makro einen Bindestrich in einem Text suchen und anschliessend löschen.

In Exel geht es mit der Funktion Wechseln(), englisch SUBSTITUTE(), jedoch für ein Makro habe ich diese Funktion nicht gefunden.

Kann mir da jemand weiterhelfen

Gruß

Helmut

Antwort schreiben

Antwort 1 von Massaraksch vom 19.05.2022, 21:55 Options

Replace(expression, find, replace[, start[, count[, compare]]])

Weitere Erläuterung in der VBA-Hilfe.

mfg, Massaraksch

Antwort 2 von Massaraksch vom 19.05.2022, 21:59 OptionsLösung

Obige Replace-Funktion wird auf String-Variablen (-> expression) angewendet.

Es gibt auch eine Replace-Methode für Ranges (Zellbereiche):

Ausdruck.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

mfg, Massaraksch

Antwort 3 von Saarbauer vom 21.05.2022, 11:54 Options

Hallo,

besten Dank, war das was ich suchte

Gruß

Helmut

Antwort 4 von rainberg vom 21.05.2022, 14:20 Options

Hallo Helmut,

mit Wechseln() geht das so.

Option Explicit

Sub Bindestrich_weg()
    Dim rngC As Range
    Application.EnableEvents = False
    For Each rngC In Range("A1:A10")
        rngC.Value = WorksheetFunction.Substitute(rngC.Value, "-", "")
    Next
    Application.EnableEvents = True
End Sub

Dieser Code entfernt den Strich im Bereich A1:A10

Gruss
Rainer

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken