AW: Zahl in Text umwandeln
20.10.2007 18:55:00
Original
Hi,
aus dem Archiv leicht angepasst. Die zu bearbeitenden Zellen müssen markiert werden:
''== Autor: K.Rola ==
''== Erstellt am: 03.11.2004 ==
''== Unterliegt dem Urheberrecht Deutschlands! ==
''== Verwendung ohne jegliche Garantie und Gewährleistung! ==
''== Code getestet unter Windows XP und VBA6 ==
Option Explicit
Sub versiv()
Const M1 As String = "Weise hin..."
Const E As String = ".00"
Const Stellen As Integer = 10
Dim s As String, c As Range, Counter As Long
If Selection.Columns.Count = 1 Then
If Application.CountA(Selection) 0 Then
For Each c In Selection
s = c.Text
If Len(s) > 0 Then
Counter = Counter + 1
If InStr(s, ",") > 0 Then
s = Replace(s, ",", ".")
Else
s = s & E
End If
If Stellen - Len(s) > -1 Then
s = String(Stellen - Len(s), "0") & s
End If
c.Offset(0, 1).NumberFormat = "@"
c.Offset(0, 1) = s
End If
Next
If Counter = 0 Then
MsgBox "Keine Zellen gefunden! ", 64, M1
Else
MsgBox Counter & " Zelle(n) bearbeitet! ", 64, M1
End If
Else
MsgBox "Die Auswahl enthält keine Daten! ", 64, M1
End If
Else
MsgBox "Bitte nur eine Spalte markieren! ", 64, M1
End If
End Sub
mfg Kurt