Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textzahl umwandeln

Textzahl umwandeln
10.11.2008 11:12:00
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 eine Zahl umgewandelt werden soll. Kann mir da jemand vielleicht weiterhelfen? Vielen Dank! Grüße, Stephan
With Workbooks("Auswertung BDE.xls").Sheets("Lijn3")
zl = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:BT" & zl).Copy Destination:=Workbooks("Auswertung.xls").Sheets("Lijn3").Range("A1")
End With

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textzahl umwandeln
10.11.2008 11:19:24
David
Hallo Stephan,
Range(...).Formula = Range(...).Value wandelt Textzahlen in "richtige" Zahlen um
Gruß
David
AW: Textzahl umwandeln
10.11.2008 11:48:27
Stephan
Hallo David!
vielen Dank für deine schnelle Antwort! Ich habe es ausprobiert, aber das haut so nicht hin. Wenn ich die Zellen anschließend mit "Bearbeiten", "Gehe zu", "Inhalt", "Konstanten" und "Text" überprüfe, markiert er diese immer noch als Text.
With Workbooks("Auswertung BDE.xls").Sheets("Lijn3")
zl = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:BT" & zl).Copy Destination:=Workbooks("Auswertung.xls").Sheets("Lijn3").Range("A1")
Range("B2:B65535").Formula = Range("B2:B65535").Value
End With
Anzeige
AW: Textzahl umwandeln
10.11.2008 11:55:00
David
Weise dem Bereich vorher noch per
.Range(...).Numberformat = "General"
das Standardformat zu, oder alternativ halt das gewünschte Format (siehe Hilfe zu Numberformat).
Anschließend sollte das funzen, übrigens auch mit .Value = .Value
Beispiel:
Formatiere in einer leeren Datei den Bereich von A1:A5 als Text und gib dort Zahlen ein. Anschließend wandelt dieser Code diese "Textzahlen" in "richtige" Zahlen um:

Sub test()
With Range("A1:A5")
.NumberFormat = "General"
.Value = .Value
End With
End Sub


Gruß
David

Anzeige
AW: Textzahl umwandeln
10.11.2008 14:06:38
Stephan
Hallo David,
Danke für deinen Tipp!
Wenn ich aber denn folgenden Code verwende, kopiert er mir nicht die als Text formatierten Zellen aus der Quelldatei. Diese sollen aber natürlich mitkopiert werden, in eine Zahl umgewandelt werden, die aber in der Zieldatei wiederum im Datumsformat (nicht als Text) dargestellt werden sollen. Also ungefähr so: Quelldatei in Zelle B2: 10.11.2008 (das ist die Textzahl) Zieldatei Zelle B2: 10.11.2008 (Zahl im Datumsformat).
Hintergrund ist: In der Zieldatei wird eine Auswertung über den Autofilter gemacht. Dieser erkennt anscheinend keine Textzahlen. Ich habe es auch schon mit NumberFormat ="General" versucht. Das funktioniert aber auch nicht. Grüße, Stephan
With Workbooks("Auswertung BDE.xls").Sheets("Lijn3")
zl = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:BT" & zl).Copy Destination:=Workbooks("Auswertung.xls").Sheets("Lijn3").Range("A1")
.Range("B2:B65535").NumberFormat = "dd.MM.yyyy"
.Range("B2:B65535").Range("B2:B65535").Formula = Range("B2:B65535").Value
End With
Anzeige
AW: Textzahl umwandeln
10.11.2008 14:21:00
David
Lange Rede, kurzer Sinn:
Ladt doch mal ein Beispiel hoch, aus dem man deine Quelldaten und auch deine Zieldaten, so wie sie sein sollen, erkennen kann. Sonst ist das hier nur ein Aneinander-Vorbei-Reden und Rum-Rätseln.
Gruß
David
AW: Textzahl umwandeln
10.11.2008 15:16:44
Stephan
Hallo David,
lade ich morgen hoch, da ich jetzt nicht mehr an meinem Arbeitsplatz sitze.
Vielen Dank nochmals für deine Geduld!
Grüße, Stephan
AW: Textzahl umwandeln
11.11.2008 15:35:54
Stephan
Hallo David,
ich habe jetzt mal eine Beispieldatei hochgeladen. Wenn ich allerdings in der Quelldatei die Zelle mit dem als Text formatierten Datum mit F2 und anschließend Enter bearbeite, wird dieses Datum nachher im Autofilter auch berücksichtigt.
Hast du vielleicht einen Vorschlag, wie man die Zellen schon vorher als Zahl formatieren kann, allerdings so, dass sie noch als Datum angezeigt werden. Vielen Dank! Grüße, Stephan
https://www.herber.de/bbs/user/56678.xls
Anzeige
AW: Textzahl umwandeln
11.11.2008 15:46:42
David
Hallo Stephan,
in deinem Beispiel ist die Spalte B in beiden Blättern als Datum formatiert.
Ich erkenne das Problem nicht.
in dem Makro passt auf jeden Fall was nicht:
der Ausdruck Range("A1:D15" & zl) ergäbe bei zl = 14 den Ausdruck
Range("A1:D1514") was m. E. keinen Sinn ergibt.
Gruß
David
AW: Textzahl umwandeln
12.11.2008 08:36:46
Stephan
Hallo David,
das mit dem Ausdruck Range("A1:D15" & zl) funktioniert aber so weit.
Mein Problem liegt eher beim Datumsformat. Wenn du dir mal nach dem Daten abrufen mit "Bearbeiten" -"Gehe zu" - "Inhalte" - "Konstanten" markieren - Häkchen bei "Text" setzen das Format anzeigen lässt, wirst du sehen, das es sich bei den beiden Einträgen "06.11.2008" auf beiden Tabellenblättern um Text handelt. Und genau diese beiden Einträge werden vom Autofilter bei einer späteren, makrogesteuerten Filterung nicht berücksichtigt. Wähle ich den 06.11.2008 im Autofilter manuell aus, funktioniert es. Wenn du im Tabellenblatt "Lijn3" einen Eintrag "06.11.2008" mal markierst, F2 und anschließend Enter drückst und dir dann noch mal mit dem o. g. Weg die Formatierung anzeigen lässt, wirst du sehen, dass Excel das Datum nun als Zahl erkennt und logischerweise auch später bei der autom. Filterung berücksichtigt. Kann es sein, dass ich das Datum vorher vielleicht mit 1 multiplizieren muss, damit es von Excel als Zahl erkannt wird? Gruß, Stephan
Anzeige
AW: Textzahl umwandeln
12.11.2008 10:53:29
David
Hallo Stephan,
diese Tabelle ist wirklich kurios. Nachdem ich nun eine ganze Weile rumprobiert habe und fast verzweifelt bin, habe ich folgenden Lösungsansatz gefunden:

Sub test()
With Worksheets("Lijn3")
zl = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:D" & zl).Copy Destination:=Sheets("Lijn3.").Range("A1")
End With
For Each c In Worksheets("Lijn3.").Range("B1:B" & zl)
c.Value = CDate(c.Value)
Next
End Sub


Allerdings verstehe ich die Ursache des Problems nicht wirklich. Diese Zellen unterscheidet nichts von den anderen. Ich war schon der Meinung, es liegt an der Datei selbst, dass diese fehlerhaft ist. Vielleicht noch mal neu aufbauen und schauen, ob das immer noch so ist. Alternativ ist irgendwas an den zu Grunde liegenden Daten schräg.
Für weitergehende Recherchen habe ich nicht die Infos und außerdem bin ich da auch mit meinen VBA-Kenntnissen am Ende.
Hoffe, meine Lösung hilft dir trotzdem ein wenig weiter, auch wenn es ja nur ein "Workaround" ist.
Gruß
David

Anzeige
AW: Textzahl umwandeln
12.11.2008 11:48:00
Stephan
Hallo David,
das kannst du wohl laut sagen!
Aber erst einmal vielen Dank für deine Geduld und Mühe!
Ich werde deinen Ansatz testen und du bekommst natürlich ein Feedback.
Die beiden Einträge "06.11.2008" wurden durch ein Makro erstellt, die anderen hingegen mit der Formel "=HEUTE()". Ich vermute, dass Excel den 06.11.2008 als Text erkennt und die anderen halt als Wert (siehe: "Gehe zu" - "Inhalte" ....etc.). Über das Kontextmenü wird beides als Datum angezeigt, was aber anscheinend nicht richtig ist. Und der makrogesteuerte Autofilter findet diesen Text halt irgendwie nicht. Bei der manuellen Auswahl allerdings schon. Ist schon wirklich sehr merkwürdig. Grüße, Stephan
Anzeige
AW: Textzahl umwandeln
12.11.2008 11:55:49
David
mir ist noch aufgefallen:
wenn du die "sonderbaren" Einträge mit der Zeile
... = Format(Date, "dd.MM.yyyy")
erzeugst, ist das meines Wissens auf jeden Fall Text (Entspricht der Excel-Funktion =TEXT()). Wenn du das vermeiden kannst, indem du die Quelldaten per Cdate() ausliest, funzt es vielleicht ohne "Krücken".
Gruß
David
AW: Textzahl umwandeln
12.11.2008 14:57:43
Stephan
Hi David,
ich habe den Code angepasst und es funktioniert anscheinend. Allerdings dauert der Abrufvorgang _ jetzt ungefähr knapp 2 Minuten. Woran könnte das liegen?Das ist nur ein Code-Ausschnitt, darum kein 

Sub & End Sub


With Workbooks("Auswertung BDE.xls").Sheets("Lijn3")
zl = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:BT" & zl).Copy Destination:=Workbooks("Auswertung.xls").Sheets("Lijn3").Range("A1")
End With
For Each c In Workbooks("Auswertung.xls").Sheets("Lijn3").Range("B2:B" & zl)
c.Value = CDate(c.Value)
Next
.......usw.

Anzeige
AW: Textzahl umwandeln
12.11.2008 15:12:51
David
Da er die Spalte B nun Zeile für Zeile durchgehen muss, kann das abhängig von der Größe des Bereiches schon eine Weile dauern.
Die "üblichen" Beschleunigungsmöglichkeiten hast du schon eingebaut?
(Screenupdating & Co.)
Gruß
David
AW: Textzahl umwandeln
12.11.2008 15:34:00
Stephan
Hi David,
Application.ScreenUpdating=False am Anfang und True zum Schluß sind drin. Und was meinst du mit Co.?
Gruß, Stephan
AW: Textzahl umwandeln
12.11.2008 15:36:00
David
Application.Calculation = XlManual
Application.EnableEvents = False
am Schluß jeweils wieder "umdrehen"
Such mal hier im Forum nach "GetMoreSpeed".
Gruß
David
AW: Textzahl umwandeln
12.11.2008 16:08:00
Stephan
Die beiden hab ich nicht drin. Was bewirken die denn?
Anzeige
AW: Textzahl umwandeln
12.11.2008 16:10:49
David
Berechnung auf Manuell
Abschalten der Überwachung von Ereignissen
Hast du denn mal gesucht!?
Gruß
David
AW: Textzahl umwandeln
12.11.2008 16:21:00
Stephan
Setze ich die am Anfang auch direkt unter Application.ScreenUpdating=False und am Ende unter Application.ScreenUpdating=True?
AW: Textzahl umwandeln
12.11.2008 16:23:15
David
sorry, aber ich habe keine Lust, alles doppelt und dreifach zu erzählen.
Suche im Forum nach "GetMoreSpeed", da findest du fertigen (!) Code.
Gruß
David
AW: Textzahl umwandeln
12.11.2008 16:28:50
Stephan
Zu Application.Calculation = XlManual und Application.Calculation = XlAutomatic hatte ich auch schon was gefunden. Nur war daraus nicht ersichtlich, wo diese Funktionen im Code eingefügt werden. Trotzdem Danke für Deine Hilfe! Bin dadurch schon wieder ein Stück weiter gekommen. Grüße, Stephan

311 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
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Anzeige
Anzahl mit mehreren Kriterien berechnen
TobiasM

Hallo,
ich habe aus einer Datentabelle Summen über folgende Formel berechnet:
=SUMMENPRODUKT((Daten!$E$2:$E$571=2005)*(Daten!$B$2:$B$571="Mittelstand")*(Daten!$F$2:$F$571=50) *(Daten!$G$2:$G$571))
Enspricht Berechnung Summe Umsatz (Spalte G) mit folgenden Kriterien:
Jahr: 2005...
29.08.2008 12:07:00
Thread-ID: 1005786
2 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Zelle mit Zahl zerlegen
Karsten

Hallo Leute,
folgendes Problem:
ich habe in der Zelle N3 eine Versionsnummer stehen (Beispiel) 1.23.45.
Wobei die Position der Punkte nicht fest ist, also wären auch 12.3.45 oder 12.34.56 möglich.
Diese Versionsnummer möchte ich nun in VBA auf 3 Variablen verteilen, also X1, X...
18.09.2008 14:57:00
Thread-ID: 1010749
16 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 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
2
4
5
2
1
3
5
15
1
11
2
2
5
3
1
7
2
2
6
1
1
4
2
2