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