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

Line Input #1 Probleme mit Zahlen

Line Input #1 Probleme mit Zahlen
19.01.2003 15:22:46
Wolfgang
Hallo,

ich hab da mal ein Problem mit dem "Komma". (lol)

Ich möchte eine Rechnung als Datei abspeichern und auch wieder einlesen können (vgl.a.Makro unten). Das Problem
hierbei ist allerdings, daß wenn die Beträge keine ganzen Zahlen sind, der Import nicht funktioniert. Die Zahlen werden
vermutlich nicht als solche erkannt. Der spaßige Teil ist, wenn man nach dem Einlesen unter "Bearbeiten-Ersetzen" ein
Komma ( , ) durch ein ( , ) ersetzen läßt funktioniert das ganze wieder.
Mit dem Makro:
Cells.Replace What:=",", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True
will es aber auch nicht.


Sub Ausgabe_Datei()
Open Cells(11, 3) For Output As #1 ' Datei zur Ausgabe öffnen, dabei ist C11 der Dateiname.
'
' Daten in Datei schreiben
'
Print #1, Cells(5, 1) ' Anrede
Print #1, Cells(6, 1) ' Name
Print #1, Cells(7, 1) ' Straße
Print #1, Cells(8, 1) ' Ort
Print #1, Cells(10, 2) ' Datum
Print #1, Cells(11, 2) ' Rg-Nummer
Print #1, Cells(12, 2) ' Kunden-Nummer
Print #1, Cells(13, 2) ' Zahlungsart
For I = 1 To 43
Print #1, Cells(15 + I, 1) ' Menge
Print #1, Cells(15 + I, 2) ' Artikel-Nummer
Print #1, Cells(15 + I, 3) ' Artikel
Print #1, Cells(15 + I, 4) ' Einzelpreis
Print #1, Cells(15 + I, 5) ' Gesamtpreis
Next I
Close #1 ' Datei schließen.
'
' Felder löschen
'
Cells(5, 1) = "" ' Anrede
Cells(6, 1) = "" ' Name
Cells(7, 1) = "" ' Straße
Cells(8, 1) = "" ' Ort
Cells(10, 2) = "" ' Datum
Cells(11, 2) = "" ' Rg-Nummer
Cells(12, 2) = "" ' Kunden-Nummer
Cells(13, 2) = "" ' Zahlungsart
For Z = 1 To 43
Cells(15 + Z, 1) = "" ' Menge
Cells(15 + Z, 2) = "" ' Artikel-Nummer
Cells(15 + Z, 3) = "" ' Artikel
Cells(15 + Z, 4) = "" ' Einzelpreis
Cells(15 + Z, 5) = "" ' Gesamtpreis
Next Z
End Sub


Sub Einlesen_Datei()
On Error GoTo Fehler ' um Fehler "Datei nicht vorhanden" abzufangen
'
Open Cells(11, 3) For Input As #1 ' Datei zur Eingabe öffnen.
'
' Daten aus der Datei lesen
Line Input #1, A
Cells(5, 1) = A ' Anrede
Line Input #1, B
Cells(6, 1) = B ' Name
Line Input #1, C
Cells(7, 1) = C ' Straße
Line Input #1, D
Cells(8, 1) = D ' Ort
Line Input #1, E
Cells(10, 2) = E ' Datum
Line Input #1, F
Cells(11, 2) = F ' Rg-Nummer
Line Input #1, G
Cells(12, 2) = G ' Kunden-Nummer
Line Input #1, H
Cells(13, 2) = H ' Zahlungsart
For I = 1 To 43
J = "" ' Variable löschen
Line Input #1, J
Cells(15 + I, 1) = J ' Menge
K = ""
Line Input #1, K
Cells(15 + I, 2) = K ' Artikel-Nummer
L = ""
Line Input #1, L
Cells(15 + I, 3) = L ' Artikel
M = ""
Line Input #1, M
Cells(15 + I, 4) = M ' Einzelpreis
N = ""
Line Input #1, N
Cells(15 + I, 5) = N ' Gesamtpreis
Next I
Close #1 ' Datei schließen.
GoTo Ende
Fehler:
A = MsgBox(" nicht vorhanden ! ", vbOKOnly)
Ende:
End Sub

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Line Input #1 Probleme mit Zahlen
19.01.2003 16:36:47
ich
Cells(15 + I, 4) = CDec(M) ' Einzelpreis
Re: Line Input #1 Probleme mit Zahlen
19.01.2003 16:50:14
Wolfgang
recht herzlichen Dank für die schnelle Antwort
- aber -
das löst nicht mein Problem.
Jetzt habe ich einen Laufzeitfehler'1004'

Re: Line Input #1 Probleme mit Zahlen
19.01.2003 17:49:59
L.Vira
Dass du auf die Deklaration von Variablen verzichtest, na ja...
Du kannst das so lösen:

dein Code ab der kritischen Stelle leicht modifiziert:

Line Input #1, M
Set rngM = Cells(15 + i, 4)
Cells(15 + i, 4) = M ' Einzelpreis
Line Input #1, N
Set rngN = Cells(15 + i, 5)
Cells(15 + i, 5) = N ' Gesamtpreis
Next i
''erst schließen
Close #1 ' Datei schließen.

''Dann Datentyp erzwingen
q = rngM.Value * 1
qq = rngN.Value * 1
rngM.Value = q
rngN.Value = qq

Exit Sub
Fehler:
A = MsgBox(" nicht vorhanden ! ", vbOKOnly)
Close #1 ' Datei schließen.

End Sub

Anzeige
Re: Line Input #1 Probleme mit Zahlen
19.01.2003 18:40:41
Wolfgang
Danke für die Antwort, L.Vira - aber das Problem ist immer noch da. Die Zahlen werden eingelesen und in die richtigen Zellen eingefügt, aber leider lassen sie sich (sofern es keine ganzen Zahlen sind) nicht weiterverarbeiten. Erst wenn man die Zelle anklickt und mit "Enter" bestätigt wird daraus eine Zahl.
Re: Line Input #1 Probleme mit Zahlen
19.01.2003 19:10:37
L.Vira
Schwer vorstellbar, warum das bei mir geht und bei dir nicht.
Hast du den Code von mir so eingebaut?
Re: Line Input #1 Probleme mit Zahlen
19.01.2003 19:26:24
Wolfgang
jo - Denke hab ich
Danke das Du mir hilfst!

Sub Einlesen_Datei()
On Error GoTo Fehler ' um Fehler "Datei nicht vorhanden" abzufangen
'
Open Cells(11, 3) For Input As #1 ' Datei zur Eingabe öffnen.
'
' Daten aus der Datei lesen
Line Input #1, A
Cells(5, 1) = A ' Anrede
Line Input #1, B
Cells(6, 1) = B ' Name
Line Input #1, C
Cells(7, 1) = C ' Straße
Line Input #1, D
Cells(8, 1) = D ' Ort
Line Input #1, E
Cells(10, 2) = E ' Datum
Line Input #1, F
Cells(11, 2) = F ' Rg-Nummer
Line Input #1, G
Cells(12, 2) = G ' Kunden-Nummer
Line Input #1, H
Cells(13, 2) = H ' Zahlungsart
For i = 1 To 43
J = "" ' Variable löschen
Line Input #1, J
Cells(15 + i, 1) = J ' Menge
K = ""
Line Input #1, K
Cells(15 + i, 2) = K ' Artikel-Nummer
L = ""
Line Input #1, L
Cells(15 + i, 3) = L ' Artikel
Line Input #1, M
Set rngM = Cells(15 + i, 4)
Cells(15 + i, 4) = M ' Einzelpreis
Line Input #1, N
Set rngN = Cells(15 + i, 5)
Cells(15 + i, 5) = N ' Gesamtpreis
Next i
''erst schließen
Close #1 ' Datei schließen.

''Dann Datentyp erzwingen
q = rngM.Value * 1
qq = rngN.Value * 1
rngM.Value = q
rngN.Value = qq

Exit Sub
Fehler:
A = MsgBox(" nicht vorhanden ! ", vbOKOnly)
Close #1 ' Datei schließen.

End Sub

Anzeige
Re: Line Input #1 Probleme mit Zahlen
19.01.2003 19:54:16
L.Vira
änder mal das Ende noch so, ansonsten habe ich keinen Plan mehr, denn bei mir gehts ohne Probleme!

''Dann Datentyp erzwingen
rngM.NumberFormat = "General"
rngN.NumberFormat = "General"
q = rngM.Value * 1
qq = rngN.Value * 1
rngM.Value = q
rngN.Value = qq

Exit Sub
Fehler:
A = MsgBox(" nicht vorhanden ! ", vbOKOnly)
Close #1 ' Datei schließen.

End Sub

Re: Line Input #1 Probleme mit Zahlen
19.01.2003 20:11:43
Wolfgang
Danke für Deine Hilfe aber es geht leider immer noch nicht.
Re: Line Input #1 Probleme mit Zahlen
19.01.2003 20:39:27
L.Vira
Wenn dein Projekt nicht geheim ist, kannst du es mailen:
softsmith@web.de Betreff: HerberWolfgang

Re: Line Input #1 Probleme mit Zahlen
20.01.2003 20:24:44
Wolfgang
Noch einmal Dank über Dank an L.Vira für die Lösung des Problems

Lösung:

Sub Einlesen_Datei()
If [b11] = "" Then
MsgBox "Die RG- Nr. fehlt!"
Exit Sub
End If
On Error GoTo Fehler ' um Fehler "Datei nicht vorhanden" abzufangen
Open Cells(11, 3) For Input As #1 ' Datei zur Eingabe öffnen.
'
' Daten aus der Datei lesen
Line Input #1, A
Cells(5, 1) = A ' Anrede
Line Input #1, b
Cells(6, 1) = b ' Name
Line Input #1, c
Cells(7, 1) = c ' Straße
Line Input #1, d
Cells(8, 1) = d ' Ort
Line Input #1, E
Cells(10, 2) = E ' Datum
Line Input #1, F
Cells(11, 2) = F ' Rg-Nummer
Line Input #1, G
Cells(12, 2) = G ' Kunden-Nummer
Line Input #1, H
Cells(13, 2) = H ' Zahlungsart
For i = 1 To 43
J = "" ' Variable löschen
Line Input #1, J
Cells(15 + i, 1) = J ' Menge
K = ""
Line Input #1, K
Cells(15 + i, 2) = K ' Artikel-Nummer
L = ""
Line Input #1, L
Cells(15 + i, 3) = L ' Artikel
Line Input #1, M
Cells(15 + i, 4) = M ' Einzelpreis
Line Input #1, N
Cells(15 + i, 5) = N ' Gesamtpreis
Next i
Close #1 ' Datei schließen.

''Leerzeichen entfernen
[a16:a58].Replace What:=Chr(32), Replacement:=""
[a16:a58].NumberFormat = "General"

[d16:e58].Replace What:=Chr(32), Replacement:=""
''In Werte umwandeln
For Each c In [d16:e58]
c.Value = c.Value * 1
Next
[d16:e58].NumberFormat = "#,##0.00 ""EUR"""
Exit Sub
Fehler:
MsgBox "Datei nicht vorhanden ! "
Close #1 ' Datei schließen.
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige