Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zahlen umwandeln

Text in Zahlen umwandeln
09.06.2008 12:12:00
Alexandra
Hallo,
ich habe folgendes Problem:
Es gibt eine Liste mit Produktnummern, die als Text formatiert ist. Die Laenge der einzelnen Nummern variiert von 6 zu 19 Stellen. Viele Nummern enthalten ausserdem solche Zeichen wie " ", "-" oder ".".
Da diese Liste spaeter als Grundlage fuer eine dependent data-validation dropdown-Liste verwendet werden wird, soll sie als Nummern formatiert und in aufsteigender Reihenfolge vorliegen. Ausserdem sollen alle doppelt vorkommenden Eintraege eliminiert werden.
Ich habe mit Suchen und Ersetzen die unerwuenschten Zeichen " ", "-", und "." entfernt und die Nummern danach sortiert. Das Problem: bei einer Nummer wie z.B. 65603122000100-001 (Original) wurde stattdessen 65603122000100000 eingesetzt. D.h. Excel aendert automatisch die letzte Ziffer ab.
Ausserdem zeigt Excel diese Nummern dann als 6,151E+16 an. Irgendwo spielt also der 1E Multiplikator noch mit rein.
Wie kann ich die Sonderzeichen entfernen und die Nummernliste normal formatieren?
Ich hoffe sehr auf Eure Hilfe.
Vielen Dank im Voraus!
Alexandra

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zahlen umwandeln
09.06.2008 12:29:00
Rudi
Hallo,
bei 15 Ziffern ist Schluss. Mehr geht nicht.
Gruß
Rudi

AW: Text in Zahlen umwandeln
09.06.2008 12:54:47
Reinhard
Hi Alexandra,
Alt+F11, Einfügen Modul, Code reinkopieren, Spalte anpassen, Editor schließen.
Über Extras--makro--Makro das makro tt ausführen lassen.
Spalte anpassen: In "Cells(Rows.Count, 1)" sowie "Cells(Zei,1)" steht die 1 für die 1te Spalte also A, für Spalte E demzufolge dort 5 eintragen.
Dann gleichfalls im Code in " Range("A1:A" & Zei - 1).Sort Key1:=Range("A1")" A durch E ersetzen.

Option Explicit
Sub tt()
Dim Zei As Long
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), "-", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), " ", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), ".", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), "'''", "")
Next Zei
Range("A1:A" & Zei - 1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub


Anzeige
AW: Text in Zahlen umwandeln
09.06.2008 14:16:00
Alexandra
Hallo Rudi und Reinhard,
vielen Dank fuer die schnellen Antworten. Dass es so eine Begrenzung in Excel gibt, habe ich gar nicht gewusst. Man lernt eben nie aus...
Vielen Dank fuer den VBA-Code - hat super funktioniert. Das einzige, was ich noch korrigieren musste war die Verschiebung um eine Zeile in der Spalte mit der Nummernliste, da in der ganz ersten Zeile die Ueberschrift war. Aber das habe ich ja vorher nicht beschrieben gehabt, selber schuld.
Das einzige, was jetzt noch fehlt, ist eine Filterung ohne Doppelteintraege. Wenn man die Liste als Nummern formatiert, kommt wieder die komische Schreibweise mit dem 1E-Multiplikator. Und wenn man die Liste als Text formatiert, dann funktioniert der Advanced Filter aus irgendeinem Grunde nicht. Dabei habe ich schon mit countif ueberprueft, ob und dass es hier Doppelteintraege gibt.

Anzeige
AW: Text in Zahlen umwandeln
09.06.2008 14:24:00
Reinhard
Hi Alexandra,

Option Explicit
Sub tt()
Dim Zei As Long, Z As Long
For Zei = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), "-", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), " ", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), ".", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), "'''", "")
Next Zei
Range("A2:A" & Zei - 1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For Z = Zei - 1 To 3 Step -1
If Cells(Zei, 1) = Cells(Zei - 1, 1) Then Cells(Zei, 1).EntireRow.Delete
Next Z
End Sub


Gruß
Reinhard

Anzeige
AW: Text in Zahlen umwandeln
09.06.2008 14:48:00
Alexandra
Hallo Reinhard,
der letzte Teil des VBA-Codes ist doch dafuer da, die ueberschuessigen Zeilen mit den Doppelteintraegen zu loeschen (bin ein absoluter VBA-noob)?
Das hat leider nicht geklappt. Ich nehme mal an, aus dem gleichen Grund, weshalb auch der Advanced Filter bei dieser Liste nicht klappt. Das ist das erste Mal, das so was vorkommt.
Gruesse,
Alexandra

AW: Text in Zahlen umwandeln
09.06.2008 15:06:00
Reinhard
Hallo Alexandra,
sorry, mein Fehler, mache das so:

Sub tt()
Dim Zei As Long, Z As Long
For Zei = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), "-", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), " ", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), ".", "")
Cells(Zei, 1) = "'" & Application.WorksheetFunction.Substitute(Cells(Zei, 1), "'''", "")
Next Zei
Range("A2:A" & Zei - 1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For Z = Zei - 1 To 3 Step -1
If Cells(Z, 1).Value = Cells(Z - 1, 1).Value Then Cells( _
Z, 1).EntireRow.Delete
Next Z
End Sub


Gruß
Reinhard

Anzeige
AW: Text in Zahlen umwandeln
09.06.2008 17:14:00
Alexandra
Hallo Reinhard,
super, vielen Dank!
Jetzt klappt alles.
Gruesse,
Alexandra

332 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige

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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4