Anzeige
Archiv - Navigation
1336to1340
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
Inhaltsverzeichnis

Suchen und Ersetzen nur bei erster Fundstelle

Suchen und Ersetzen nur bei erster Fundstelle
18.11.2013 17:22:07
Thomas
Hallo,
folgendes Problem möchte ich per VBA lösen.
Der String in der Zelle ist folgendermaßen aufgebaut: ABC/DEF/GHI/JKL. Per VBA Lösung soll nur der erste gefundene Schrägstrich durch einen Bindestrich ersetzt werden-also dann soll es so aussehen: ABC-DEF/GHI/JKL.
Wie kann man das lösen?
Thomas

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

Betreff
Datum
Anwender
Anzeige
VBA? das geht doch auch mit einer Formel ...
18.11.2013 17:35:59
Matthias
Hallo
Tabelle1

 AB
1 ABC/DEF/GHI/JKL ABC-DEF/GHI/JKL

Formeln der Tabelle
ZelleFormel
B1=ERSETZEN(A1;FINDEN("/";A1);1;"-")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
AW: VBA? das geht doch auch mit einer Formel ...
18.11.2013 17:56:33
Thomas
Hallo,
danke für die Formel. Ich schrieb deshalb mit VBA, da die zu bearbeitende Tabelle ca. 4000 Zeilen hat.
Aber da kann mal sicher FormulaLocal nutzen.
Thomas

Soll das ein Scherz sein?
18.11.2013 18:02:39
EtoPHG
Hallo Thomas,
Was hat den das mit 4000 Zeilen zu tun?
VBA wird auf jeden Fall langsamer sein als die einfache Formel: =WECHSELN(A1;"/";"-";1) auf 4000 Zeilen kopiert!
Oder was glaubst du macht VBA schneller?
Gruess Hansueli

ok ... , wechseln ist besser/kürzer als Ersetzen
18.11.2013 18:13:03
Matthias
Hallo
mit VBA kann er es dann so machen:
With Application.WorksheetFunction Range("B1") = .Substitute(Range("A1"), "/", "-", 1) End With Gruß Matthias

Anzeige
mit VBA -> Replace & Find ...
18.11.2013 18:05:35
Matthias
Hallo
Dann kannst Du es auch so machen.
Dein Dtring steht in A1
With Application.WorksheetFunction
Range("B1") = .Replace(Range("A1"), .Find("/", Range("A1")), 1, "-")
End With
Gruß Matthias

AW: mit VBA -> Replace & Find ...
18.11.2013 22:44:38
Thomas
Hallo,
danke für die Tipps.
Gruß Thomas

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige