Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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.
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

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige