Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

führende Null bei Text

führende Null bei Text
12.08.2008 14:49:00
Petra
Schönen Tag allerseits.
ich habe eine Spalte mit Text. Dieser Text besteht entweder nur aus Ziffern oder Ziffern/Buchstaben.
Bei vielen Zellen beginnt der Text mit einer oder mehreren Nullen (0). Diese führenden (Text)Nullen sollen nun durch "Blanks" ersetzt werden, sodaß die ursprüngliche Textlänge erhalten bleibt. Wie könnte man das "Problem" per VBA in den Griff kriegen?
Liebe Grüße Petra

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: führende Null bei Text
12.08.2008 15:13:40
Rudi
Hallo,
können auch mitten im Text Nullen sein?
Gruß
Rudi

AW: führende Null bei Text
12.08.2008 15:33:00
Petra
Hallo Rudi
Ja, aber die müssen erhalten bleiben, also nur die führenden!!
Grüße Petra

AW: führende Null bei Text
12.08.2008 15:36:00
Petra
Hi Rudi
vielleicht eine Erleichterung, alle Texte sind/müssen 6-stellig sein.
Gruß Petra

AW: führende Null bei Text
12.08.2008 15:49:41
Rudi
Hallo,

Function NullToBlank(ByVal sText As String)
Dim i As Integer
i = 1
Do While Asc(Mid(sText, i, 1)) = 48
Mid(sText, i, 1) = " "
i = i + 1
Loop
NullToBlank = sText
End Function




Sub tt()
Dim rngC As Range
For Each rngC In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
rngC = NullToBlank(rngC)
Next
End Sub


Gruß
Rudi

Anzeige
AW: führende Null bei Text
12.08.2008 15:58:00
Petra
Hi Rudi
Klappt, DANKE
Lieben Gruß Petra

AW: führende Null bei Text
12.08.2008 15:34:00
Reinhard
Hi Petra,
probier mal dieses:

Sub tt()
Dim Zei As Long, Pos As Integer
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
Pos = 1
While Mid(Cells(Zei, 1), Pos, 1) = "0"
Mid(Cells(Zei, 1), Pos, 1) = " "
Pos = Pos + 1
Wend
Next Zei
End Sub


Gruß
reinhard

AW: führende Null bei Text
12.08.2008 15:43:00
Petra
Hi Reinhard
Makro mozt cells an!(Variable erforderlich)
Trotzdem Danke
Gruß Petra

AW: führende Null bei Text
12.08.2008 16:05:43
Daniel
Hi
das liegt daran, daß man mit der MID-Funktion nur lesen, aber nicht Werte in einem String vereändern kann.
dazu braucht man die Replace-Funktion.
probier mal diesen Code, damit sollte es funktionieren:

Sub tt()
Dim Zei As Long, Pos As Integer
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
Pos = 1
While Mid(Cells(Zei, 1), Pos, 1) = "0"
Cells(Zei, 1) = WorksheetFunction.Replace(Cells(Zei, 1), Pos, 1, " ")
Pos = Pos + 1
Wend
Next Zei
End
End Sub


Gruß, Daniel

Anzeige
AW: führende Null bei Text
12.08.2008 16:22:00
Rudi
Hallo,

das liegt daran, daß man mit der MID-Funktion nur lesen, aber nicht Werte in einem String vereändern kann.


Und warum funzt dann meine Function?
Gruß
Rudi

AW: führende Null bei Text
12.08.2008 16:37:00
Daniel
Hi
weil du die MID-ANWEISUNG auf eine STRING-Variable anwendest,
und Reinhard auf ein RANGE-Objekt.
der erste fall geht, der 2. Fall funktioniert nicht, von daher muss ich meine Aussage etwas korrigieren:
die MID-Anweisung zum Verändern von Textteilen funktioniert nicht bei Range-Objekten.
Gruß, Daniel

AW: führende Null bei Text
12.08.2008 16:25:00
Petra
Hi Daniel
dein Code ist zu radikal, er löscht auch Nullen in der Mitte und am Ende, so wird z.B. aus 000100 die 1
Trotzdem Danke
Gruß Petra

Anzeige
AW: führende Null bei Text
12.08.2008 17:01:00
Daniel
Hi
das liegt an der automatischen Typumwandlung von Excel, die bei Eingabe in Zellen aus Textstrings Zahlen macht, sobald dies möglich ist, dann verändert sich der Zellinhalt (die Blanks am Anfang verschwinden, der Inhalt wird kürzer und die POS-Variable zeigt auf eine Falsche Stelle.
sobald sich ein Buchstabe in dem Wert befindet, läuft das Makro einwandfrei.
folgende Abhilfen sind möglich:
Variante 1.
die Spalte wird vorab mit dem Zahlenformat "Text" formatiert. Hier der Code dazu:

Sub tt1()
Dim Zei As Long, Pos As Integer
Columns(1).NumberFormat = "@"
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
Pos = 1
While Mid(Cells(Zei, 1), Pos, 1) = "0"
Cells(Zei, 1) = "'" & WorksheetFunction.Replace(Cells(Zei, 1), Pos, 1, " ")
Pos = Pos + 1
Wend
Next Zei
End
End Sub


Variante 2.
beim Zurückschreiben des Zellwerts legen wir fest, daß keine Typumwandlung stattfinden soll.
(das Hochkomma gehört nicht zum Zellinhalt, es ist für Excel nur das Zeichen, diesen Text auf keinen Fall in eine Zahl oder Formel umzuwandeln)


Sub tt2()
Dim Zei As Long, Pos As Integer
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
Pos = 1
While Mid(Cells(Zei, 1), Pos, 1) = "0"
Cells(Zei, 1) = "'" & WorksheetFunction.Replace(Cells(Zei, 1), Pos, 1, " ")
Pos = Pos + 1
Wend
Next Zei
End
End Sub


Gruß, Daniel

Anzeige

299 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
3
3
7
3
1
10
15
3
7
2
10
2
3
2
4
9
1
20
9
13
5
2
8
5