Ich habe eine lange Nummernreihe
0102030405060708091011121314151617181920
Ich möchte nun immer nach zwei Stellen ein Komma setzen:
01,02,03,04,05,06,07,08,09,10 usw
Gäbe es hier bitte hierfür eine Lösung?
Danke
Josef
Public Function Kommas(Target As Range) As String
Dim i As Integer
Dim txt As String
Dim ktxt As String
txt = Target.Text
For i = 1 To Len(txt) Step 2
ktxt = ktxt & Mid(txt, i, 2) & ","
Next i
Kommas = Left(ktxt, Len(ktxt) - 1)
End Function
Dann würde es so gehen:Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Tabelle1
A B 1 0102030405060708091011121314151617181920 01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20
Formeln der Tabelle B1 : =kommas(A1)
Oder Du verwendest einen Code, der alle Zellen abfragt (Recherche) und wandelst bei Bedarf die Werte mit der Funktion "Kommas()" um.
Gruß- Micha
PS: Rückmeldung wäre nett.