Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen

Leerzeichen
26.06.2006 09:01:12
Heiko
Hallo,
ich habe eine Liste mit Telefonnummern und möchte aus der Liste alle Schrägstriche entfernen ohne das die führende Null verloren geht. Mit "Ersetzen" geht der Schrägstrich weg aber auch die führende Null.
Danke
Heiko

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

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen
26.06.2006 09:34:09
Werner
Hallo Heiko
Du kannst nicht den Schrägstrich durch nichts ersetzen.
Bei Ersetzen durch: musst du schon ein LEERSCHLAG eingeben.
Gruss Werner
AW: Leerzeichen
26.06.2006 09:37:15
Harald
Hallo Heiko,
nach dem Löschen der Schrägstriche erkennt Excel die Zelle als Zahl un unterdrückt daher führende Nullen. Man muss also Excel erst beibringen, die Zelle als TExt zu behandeln (Zahlenformat "Text" genügt leider nicht).
Folgendes Makro tut's:
---------------------------

Sub test()
Dim zelle As Range
For Each zelle In Selection
zelle = "'" & zelle.Text
zelle.Replace What:="/", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

---------------------------
Alle Zellen im selektierten Bereich werden entsprechend umgewandlet, also erst selektieren, dann Makro aufrufen.
Gruß Harald
Anzeige
@ Harald Kapp
26.06.2006 09:48:34
Heiko
Hallo Harald,
bei mir tuts auch nur das formatieren als Text, (XP und EXCEL 2002)

Sub Testen1()
Dim zelle As Range
For Each zelle In Selection
zelle.NumberFormat = "@"
zelle = Replace(zelle, "/", "")
Next
End Sub

Gruß Heiko (Nicht der Frager !!!)
AW: Leerzeichen
26.06.2006 09:49:35
Heiko
Hallo Harald,
vielen Dank für die Antwort, hat geklappt!
Gruß
Heiko Ewen

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige