Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl / Zelle formatieren

Forumthread: Zahl / Zelle formatieren

Zahl / Zelle formatieren
30.11.2005 17:14:50
Kenjin
Hallo!
Ich habe eine Spalte in der 10stellige Zahlen stehen. Nun muss ich aber nach jeweils 4 Zahlen einen Punkt setzten.
Also aus: 1111222233 soll 1111.2222.33 werden.
Bisher verwende ich
Selection.NumberFormat = "0000"".""0000"".""00"
nur hilft mir das nicht wirklich weiter, da die Punkte ja verloren gehen, sobald ich die Kennzahlen woanders aufrufe. Z.B. per Makro in einer UserForm.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl / Zelle formatieren
30.11.2005 17:20:04
Dr.
Hi,
=TEIL(A1;1;4) & "." & TEIL(A1;5;4) & "." & TEIL(A1;9;2)
AW: Zahl / Zelle formatieren
30.11.2005 17:21:51
Reinhard
Hi Kenjin,
z=left(range("A1"),4) & "." & mid(range("A1"),5,4) & "." & right(range("a1"),2
range("A1")=z
Gruß
Reinhard
AW: Zahl / Zelle formatieren
30.11.2005 18:12:07
Kenjin
Funktioniert soweit wunderbar - Nur, ich bräuchte das für eine ganze Spalte. Meine Versuche das für eine Spalte abzuändern schlugen irgendwie fehl.
Anzeige
AW: Zahl / Zelle formatieren
30.11.2005 18:29:58
Reinhard
Hi Kenjin,

Sub tt()
letzte = Range("A65536").End(xlUp).Row
For zei = 1 To letzte
Cells(zei, 1) = CStr(Left(Cells(zei, 1), 4) & "." & Mid(Cells(zei, 1), 5))
Cells(zei, 1) = CStr(Left(Cells(zei, 1), 9) & "." & Mid(Cells(zei, 1), 10))
Next zei
End Sub

Das Cstr ist wegen Problemen mit der Formatierung von Spalte A, weil Excel dann ggfs das als Zahl ansehen kann.
Gruß
Reinhard
Anzeige
Da werden bei mir aber Zahlen draus...
30.11.2005 18:35:56
{Boris}
Hi Reinhard,
...falls das gewünscht ist: ok.
Falls nicht:
Option Explicit

Sub uu()
Dim C As Range
For Each C In Range("A:A").Cells.SpecialCells(xlCellTypeConstants)
C = Format(C, "0000\.0000\.00")
Next C
End Sub

Grüße Boris
AW: Da werden bei mir aber Zahlen draus...
30.11.2005 18:45:04
Reinhard
Hallo Boris,
tja, wer kennt schon alle geheimen Wünsche :-)
SpecialCells mag ich nicht so, hatte da schon ab und zu unerwartete Probleme, deshalb meide ich die tunlichst.

Sub tt()
letzte = Range("A65536").End(xlUp).Row
Range("A1" & letzte).NumberFormat = "@"
For zei = 1 To letzte
Cells(zei, 1) = CStr(Left(Cells(zei, 1), 4) & "." & Mid(Cells(zei, 1), 5))
Cells(zei, 1) = CStr(Left(Cells(zei, 1), 9) & "." & Mid(Cells(zei, 1), 10))
Next zei
End Sub

Getestet auf einer manuell als Zahl(en) formatierten Spalte A.
Gruß
Reinhard
Anzeige
Ob Special oder nicht....
30.11.2005 18:46:44
{Boris}
Hi Reinhard,
...ist ja auch egal. Ich fand das eben nur grad einfacher :-)
Grüße Boris
=TEXT(A1;"0000\.0000\.00")
30.11.2005 18:27:56
{Boris}
Grüße Boris
;

Beliebteste Forumthreads (12 Monate)

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