Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vornullen

Vornullen
28.07.2004 12:42:59
uwe0605
Hallo,
ich habe folgenden Effekt:
Ein Macro soll ein Textfile, das Semikolon-getrennte Werte in der Form
I/D ;;befristet;+00127750,78;-00027496,68;+00012061,22;+00167308,68;***;
beinhaltet, zur weiteren Bearbeitung öffnen.
Wird die nachfolgende Anweisung im Einzelschrittmodus ausgeführt, werden die Werte wie beabsichtigt in der Form 127759,78 -27496,68 12061,22 ... übernommen.
Lasse ich alles aber automatisch laufen, stehen die Werte mit VZ und Vornullen in der Excel-Tabelle:
+00127759,78 -00027496,68 +00012061,22 ...
Workbooks.OpenText FileName:="C:\AC\test.TXT",_
Origin:=xlWindows, StartRow:=1,_
DataType:=xlDelimited,_
TextQualifier:=xlDoubleQuote,,_
ConsecutiveDelimiter:=False, Tab:=False,_
Semicolon:=True, Comma:=False,_
Space:=False, Other:=False,_
FieldInfo:=Array(Array(1, 1), Array(2, 1),_
Array(3, 1), Array(4, 1), Array(5, 1),_
Array(6, 1), Array(7, 1), Array(8, 1),_
Array(9, 1), Array(10, 1), Array(11, 1),_
Array(12, 1), Array(13, 1))
Kann jemand weiterhelfen und mir sagen woran es liegt und ob es Abhilfe gibt, da sich die Felder auch im Anschluß nicht mehr unformatieren lassen, ich sie aber zum Einen als numerische Werte benötige und darüberhinaus auch der
ästhetische Anblick ohne Nullen besser ist.
Vielen Dank im Voraus
Gruß
uwe0605

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vornullen
28.07.2004 18:41:37
Bernd
Hallo Uwe!
Da Du keine Ahnung von VBA hast - ich ebenfalls nicht :-) - gehe ich davon aus, daß Du dieses makro aufgezeichnet hast. Wen dem so ist, mußt Du es nochmal aufzeichnen. Wenn Du eine TXT.Datei im Excel öffnet geht doch ein Assistent auf. Beim 2. oder 3. Schritten (weiß ich nicht mehr ganz genau) kannst Du jede Spalte formatieren (zur Auswahl stehen glaube ich Standard, Text, Datum) - hier würde ich alle Spalten als "Standard" formatieren, es sei denn Du hast natürlich auch Datumsfelder, die dann natürlich mit "Datum".
Ich hoffe Du weißt was ich meine, anders kann ich es nicht erklären.
Gruß Bernd
Anzeige
AW: Vornullen
28.07.2004 18:53:23
uwe
Hallo Bernd,
ganz so einfach ist es nicht. Wird der Text-Assistent innerhalb des
Macros automatisch ausgeführt, werden alle Werte anscheinend als
Texte in die Zellen übernommen.
Nur wenn der selbe Macro im Einzelschrittmodus läuft ist alles ok.
Aber inzwischen habe ich eine Lösung:
Auf jedes Feld F2 und Enter - dadurch werden alle Zellen mit den
Vorzeichen- und Vornullen behafteten Inhalten wieder zu Zahlen mit
denen weitergerechnet werden kann:
'Alle Werte in Zahlenwerte umwandeln
Sheets("Summen").Select
With Worksheets("Summen")
SumLZ = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
End With
Dim zelle2 As Object
Range("D2:H" & SumLZ).Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
Trotzdem Danke,
Gruß Uwe !!!
Anzeige
AW: Vornullen
28.07.2004 23:30:21
Otto
Hallo Uwe,
Meine Testumgebung: Excel 8.0 SR-2, unter Windows 2000 SP-2
CSV-Textimport ist extrem Excel-Level-abhängig, deswegen kann ich Dir erst jetzt die Lösung zeigen. Deine Beobachtung kann ich bestätigen.
Du wirst es nicht glauben, aber das Folgende funktioniert beim Makroaufruf, wenn alle Deine Zahlen mit Komma geschrieben werden.

Gruß Otto
AW: Vornullen
29.07.2004 14:49:10
uwe
Hi Otto,
ich danke Dir für Deine Unterstützung. Genauso mache ich es jetzt auch
Sheets("Summen").Select
With Worksheets("Summen")
SumLZ = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
End With
Dim zelle2 As Object
Range("G1:G" & SumLZ).Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
Durch das F2 und Enter holt er sich die jeweilige Zelle in die Bearbeitung und
durch das Enter werden die Werte auch ohne irgendwelche Änderungen als Zahl
gespeichert.
Vielen Dank nochmal.
Gruß Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige