Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmten Text aus Zelle entfernen

Bestimmten Text aus Zelle entfernen
25.07.2017 14:46:43
Blue
Servus,
bräuchte mal wieder Hilfe bei einem Makro.
Möchte in Tabelle1 in Spalte A wenn in der Zelle am Anfang S_ steht dieses löschen.
Beispiel: Vorher S_1400 Danach 1400.
mfg Blue Bird

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmten Text aus Zelle entfernen
25.07.2017 14:52:42
MatthiasG
Hallo Bluebird,
probiere mal:

Sub Entf_test()
Dim r0 As Range, r As Range
Dim sh As Worksheet
Set sh = ActiveSheet
Set r0 = Intersect(sh.Columns(1), sh.UsedRange)
For Each r In r0
If Left(r.Value, 2) = "S_" Then r.Value = Mid(r.Value, 3)
Next r
End Sub

Gruß Matthias
etwas schmuddeliger
25.07.2017 15:18:10
lupo1

Sub Entf_Leading_S_(): [XFD1:XFD99999].FormulaR1C1 = "=MID(RC1,2*(LEFT(RC1,2)=""S_"")+1,999)"
[A1:A99999] = [XFD1:XFD99999].Value: [XFD:XFD].Delete: End Sub

Nee, richtig schön dreckig... ;-) Gruß owT
25.07.2017 18:30:43
Luc:-?
:-?
AW: Bestimmten Text aus Zelle entfernen
25.07.2017 15:18:50
Blue
Servus Matthias,
danke erstmal vielmals!
Wie müsste man es anpassen das die Horizontale Lage = linksbündig und die Vertikale Lage = Mittig der Zellen wird.
mfg Blue Bird
Anzeige
Die Augen geradeaus
25.07.2017 15:23:46
lupo1

Sub RichtEuch()
Columns("A:A").VerticalAlignment = xlCenter
Columns("A:A").HorizontalAlignment = xlLeft
End Sub

Vielen Dank
25.07.2017 16:03:22
Blue
Servus,
danke an euch beide, habt mir super weiter geholfen!
mfg Blue Bird

269 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige