Anhängen von .0 an einen Text wenn Lä

Computer: Software & Programmierung Visual Basic
#1

Hallo ihr Lieben,

ich brauche für eine Makroprogrammierung einen Code, der wenn in Spalte A die Textlänge= 5 ist, er mir immer an das Ende dieses Textes den Text hinzufügt: „.0“.

Wenn Textlänge ungleich 5 dann soll er eine Zeile weitergehen.

Kann mir einer weiterhelfen?

#2

ich brauche für eine Makroprogrammierung einen Code, der wenn
in Spalte A die Textlänge= 5 ist, er mir immer an das Ende
dieses Textes den Text hinzufügt: „.0“.
Wenn Textlänge ungleich 5 dann soll er eine Zeile weitergehen.

Hallo Tschejtx,

in ein Standardmodul:

Option Explicit

Sub tt()
Dim Zei As Long
Const Anhang As String = ".0"
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
 If Len(Cells(Zei, 1).Value) = 5 Then Cells(Zei, 1).Value = \_
 Cells(Zei, 1).Value & Anhang
Next Zei
End Sub

Gruß
Reinhard