Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
588to592
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
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen

Leerzeichen
21.03.2005 21:38:40
Jan
Hallo zusammen,
Ich hab folgendes Problem, dass ich per Makro lösen möchte:
Artikelnummern eines Herstellers sind zehnstellig, meistens mit einer Null vorne. Diese 10-stellige Artikelnummer soll bei uns in dem Format #### ### ### in die Datenbank eingelsen werden. Könnt ihr mir da weiterhelfen?
Jan

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

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen
22.03.2005 05:05:15
Rentner
Guten Morgen Jan,
Muß es unbedingt ein Makro sein?
Es geht doch auch mit Zellenformatieren.
Also Format Zelle, Benutzerdefiniert, 0000 000 000.
Ergebnis 1234 567 890
Gruß Walter
AW: Leerzeichen
22.03.2005 12:15:57
Jan
Hallo Walter,
die angesprochene Formatierung setzt ein Zahlenformat voraus (anscheinend jedenfalls), dabei würde jedoch die führende Null verschluckt werden. Die entsprechende Spalte hat deshalb auch ein vorangestelltes Apostroph. Deshalb geht es meiner Meinung nach nur mit einem Makro. Dafür bräuchte ich aber "externe" Hilfe von Euch.
Gruß Jan
AW: Leerzeichen
22.03.2005 14:14:01
WernerB.
Hallo Jan,
markiere den relevanten Bereich und starte dann dieses Makro:

Sub Jan()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
If Len(c.Text) = 10 Then
c.NumberFormat = "@"
c.Value = Left(c.Text, 4) & " " & Mid(c.Text, 5, 3) & " " & Right(c.Text, 3)
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Leerzeichen
23.03.2005 21:28:29
Jan
Hallo Werner,
ganz herzlichen Dank für Dein Makro, hat super funktioniert. Vielleicht kannst Du mir ja einen kurzen Crashkurs erteilen, weil das mit den Leerzeichen in der Lieferantenlisten kommt auch in anderer Form vor. Dann kann ich mir sowas vielleicht selber schreiben.
Viele Grüße und ganz herzlichen Dank nochmal!
Jan
AW: Leerzeichen
24.03.2005 08:25:46
WernerB.
Hallo Jan,
da braucht es wohl etwas mehr Eigeninitiative als einen "Crashkurs" per Forum.
Kernstück dieses Makros sind wohl die Befehle "Left", "Mid" und "Right"; diese entsprechen den Excel-Tabellenblatt-Funktionen "=LINKS()", "=TEIL()" und "=RECHTS()", die Du unter der Funktionskategorie "Text" findest. Vielleicht solltest Du Dich damit zuerst einmal befassen.
Diese Befehle sind in eine "For Each"-Schleife eingebunden; eine Erklärung über die Funktionsweise dieser oder anderer Schleifenarten führt aber hier m.E. zu weit.
Frohe Ostern wünscht
WernerB.
Anzeige
AW: Leerzeichen
25.03.2005 12:36:37
Jan
Hallo Werner,
kannst Du dann vielleicht ein gutes Buch für "beginners" empfehlen?
Gruß, Jan
AW: Leerzeichen
25.03.2005 12:39:32
Hajo_Zi
Hallo Jan,
benutze mal die Recheche, da gibt es schon so einiges zu diesem Problem.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Leerzeichen
25.03.2005 12:39:32
Hajo_Zi
Hallo Jan,
benutze mal die Recheche, da gibt es schon so einiges zu diesem Problem.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige