Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leerzeichen einfügen

Forumthread: Leerzeichen einfügen

Leerzeichen einfügen
15.01.2004 11:49:38
Herbert
Hallo,
ich muss in der Spalte B, bei allen belegten Zellen nach dem 4 Zeichen von rechts ein Leerzeichen einfügen. Da es ca. 2500 Zellen sind wäre ich euch für eine VBA-Lösung dankbar.
Schönen Tag
Herbert
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen einfügen
15.01.2004 12:03:45
Mac4
Hallo Herbert,
so müsste es gehen (Bsp. für Spalte A):

Sub test()
On Error Resume Next
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 1).Value = Left(Cells(i, 1), Len(Cells(i, 1)) - 4) & " " & Right(Cells(i, 1), 4)
Next
End Sub

Marc
Anzeige
AW: Leerzeichen einfügen
15.01.2004 12:09:37
Mac4
Hallo Herbert,
sorry, hatte ganz überlesen, dass Du die Spalte schon benannt hattest. Für Spalte B sieht es wie folgt aus:

Sub test()
On Error Resume Next
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(i, 2).Value = Left(Cells(i, 2), Len(Cells(i, 2)) - 4) & " " & Right(Cells(i, 2), 4)
Next
End Sub

Anzeige
AW: Leerzeichen einfügen
15.01.2004 15:30:30
Herbert
Mac4 1000Dank - klappt
Herbert
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige