Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel oder VBA Lösung gesucht

Formel oder VBA Lösung gesucht
11.05.2005 09:33:33
Josef
Hallo!
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag
11.05.2005 09:36:38
josef
Hallo1
Diese Zahlenreihen können in einem Arbeitsblatt ca. 800 mal vorkommen.
Josef
AW: Nachtrag
11.05.2005 10:00:29
MichaV
Hi Josef,
kopiere in ein Modul diesen Code


      
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:
Tabelle1
 AB
1010203040506070809101112131415161718192001,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)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
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.
Anzeige
AW: Nachtrag
11.05.2005 10:51:59
Josef
Hallo Micha!
Danke für Das Stricken dieser Funktion.
Funktioniert bereits bestens.
Josef
Danke für Rückmeldung! :o) owT
11.05.2005 11:14:54
MichaV

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige