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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen