Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1060to1064
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
Inhaltsverzeichnis

Zellenformatierung mit Leerzeichen

Zellenformatierung mit Leerzeichen
18.03.2009 17:21:32
uwe
Hallo,
ich habe 13-15stellige Artikelnummern.
z.B
087002405306001
098012405316001
1280056001160
143001600116102
Ich will die besser lessbar darstellen mit Leerzeichen.
Immer nach der 4. Stelle, der 7. Stelle und 11.Stelle eine Leerstelle.
Mit der Zahlenformatierung geht das. Aber mit
Text nicht. Wie kann man das darstellen?
so soll es dann aussehen
0870 024 0530 6001
0980 124 0531 6001
1280 056 0011 60
1430 016 0011 6102
Gruss
Uwe

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenformatierung mit Leerzeichen
18.03.2009 17:34:05
Hajo_Zi
Hallo Uwe,
das mit den Leerstellen bekommst Du nur hin wennn Du immer von rechts zählt.
Gruß Hajo
AW: Zellenformatierung mit Leerzeichen
18.03.2009 18:13:23
ransi
HAllo
das mit den Leerstellen bekommst Du nur hin wennn Du immer von rechts zählt.


Einen Text so zu formatieren geht nicht. Nicht von rechts und auch nicht von links...


Mit der Zahlenformatierung geht das. Aber mit
Text nicht.


Könntest du dich mit einer VBA-Funktion anfreunden die die Werte so darstellt ?
Tabelle1

 AB
1abcdefghijklmnopqrstabcd efg hijk lmnopqrst

Formeln der Tabelle
ZelleFormel
B1=machs(A1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
Korrektur
18.03.2009 18:19:03
ransi
HAllo
Muss natürlich so heißen:
Könntest du dich mit einer VBA-Funktion anfreunden die die Werte so umwandelt ?
ransi
AW: Korrektur
19.03.2009 08:20:24
uwe
Hallo,
danke für die Info.
VBA wäre natürlich elegant!
Gruss
Uwe
Benutzerdefinierte Funktion
19.03.2009 16:10:29
ransi
HAllo Uwe
Packe diesen Code mal in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Public Function machs(zelle As Range) As String
    Dim L As Long
    Redim arr(Len(zelle.Value)) As Variant
    For L = 1 To Len(zelle.Value)
        Select Case L
            Case 4, 7, 11: arr(L) = Mid(zelle.Value, L, 1) & " "
            Case Else: arr(L) = Mid(zelle.Value, L, 1)
        End Select
    Next
    machs = Join(arr, "")
End Function

Der Aufruf geht dann ganz einfach so:
Tabelle1

 AB
1abcdefghijklmnopqrstabcd efg hijk lmnopqrst
2  

Formeln der Tabelle
ZelleFormel
B1=machs(A1)
B2=machs(A2)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Die 4, 7, 11 werden von Links gezählt und sind noch erweiterbar.
ransi
Anzeige
AW: Benutzerdefinierte Funktion
20.03.2009 12:37:24
uwe
Danke ransi,
einen schönen Tag noch.
Gruss
Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige