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
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
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
Sub RichtEuch()
Columns("A:A").VerticalAlignment = xlCenter
Columns("A:A").HorizontalAlignment = xlLeft
End Sub