Formatierung in Makro einbauen
29.01.2014 16:39:50
Jochen
Ich habe folgendes Makro:
Sub CSV_Datei_ersellen()
Dim strg(1 To 11) As String
For i = 11 To 104
If i = 46 Or i = 82 Then
Else
'Mast
strg(2) = Sheets("L_RU 01 13").Range("B" & i)
Sheets("Zieldatei").Cells(i - 9, 2) = strg(2)
End If
Next
End Sub
Es wird hier eine Zahl ausgegeben die im Ursprung 1, 2, 3 oder 4 stellig sein kann, ausgeben werden soll aber immer eine 4-stellige Zahl oder Text.
Beispiel: Also 22 = 0022, 222 = 0222.
Wer hat für mich eine Lösung parat.
Danke im Voraus
Jochen