Ich habe eine Multipage, auf deren Seiten sich diverse Textboxen befinden. Die in den Textboxen eingetragenen Werte ( Zahlen und Buchstaben) stehen anschließend in meinem Worksheet Rechungen
Da ich nicht möchte, dass der User das ganze Makro neu speichert, dachte ich mir, ich könnte die eingetragenen Werte als csv. speichern(commandbutton2).Diese Werte können dann, wenn das Makro das nächstemal benutzt wird, geladen werden (commandbutton1).
Für das Speichern benuzte ich folgende Sub:
Private Sub CommandButton2_Click()
Text = ""
dateiname = InputBox("Speichen unter (die Endung .csv wird ergänzt!):" & Chr(13) & "Existierende Dateien werden überschrieben!", "Dateinamen")
dateiname = dateiname & ".csv"
dateinr = FreeFile()
Open dateiname For Output As dateinr
With Worksheets("Rechnungen")
For Y = 5 To 68
For X = 5 To 18
Write #dateinr, .Cells(Y, X)
Next X
Next Y
End With
Close #dateinr
Exit Sub
fehlerroutine:
aw = MsgBox(Err.Description, , "Fehler beim Speichern!")
Err.Clear
End Sub
Und für das Laden:
Private Sub CommandButton1_Click()
On Error GoTo fehlerroutine
Text = ""
dateiname = InputBox("Laden (die Endung *.csv wird ergänzt)")
dateiname = dateiname & ".csv"
dateinr = FreeFile()
Open dateiname For Input As dateinr
With Worksheets("Rechnungen")
For Y = 5 To 68
For X = 5 To 18
Input #dateinr, eingabe
.Cells(Y, X) = eingabe
Next X
Next Y
End With
Close #dateinr
Exit Sub
fehlerroutine:
aw = MsgBox(Err.Description, , "Fehler beim Laden!")
Err.Clear
End Sub
Das klappt soweit auch ( keine Fehler Message), allerdings tauchen in meiner Mulitpage nur einige der Daten wieder (nur einige der Zahlenwerte) auf und nicht alle (überhaupt keine Texteingaben).
Was muss ich tun, damit alle eingetragenen Werte wieder zu sehen sind??