Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Makro ändern

Betrifft: Makro ändern von: Max M.
Geschrieben am: 28.08.2004 20:35:50

Hallo Leute,

was muss bei diesen Makro geändert werden, dass nicht von rechts, sondern von linke ein Leerzeichen eingefügt wird???
Zelleninhalte z.b. K12345 sollen in K 12345 geändert werden.

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


Max
  


Betrifft: AW: Makro ändern von: DieterB
Geschrieben am: 28.08.2004 21:17:52

Hallo Max,

bei deinem Beispiel musst Du aus:

Len(Cells(i, 5)) - 1)

Len(Cells(i, 5)) - 5) machen und aus

Right(Cells(i, 5), 1)

Right(Cells(i, 5), 5) machen.

Gruß

DieterB