Office: (Office 2010) Typen unverträglich Fehler 2023

Hallo,

ich bekomme beim "Button Klick" imm die o.g. Fehlermeldung und das bei folgendem Code:

Private Sub CommandButton1_Click()

Dim Exportdatei As String
Dim Zellbereich As Range
Dim Zeile As Object
Dim Zelle As Object
Dim BisZeile As String
Dim TempZeile As String
Dim ff As Integer

'Exportdatei = ThisWorkbook.Path & Application.PathSeparator & "API41MOD.txt"
'BisZeile = ThisWorkbook.Worksheets("Übernahmedaten").Range("E4").Value
'Set Zellbereich = ThisWorkbook.Worksheets("API41MOD-Daten").Range(ThisWorkbook.Worksheets("API41MOD-Daten").Cells(1, 1), ThisWorkbook.Worksheets("API41MOD-Daten").Cells(BisZeile, 1))
'Open Exportdatei For Output As #1
' For Each Zeile In Zellbereich.Rows
' For Each Zelle In Zeile.Cells
' TempZeile = Zelle
' Next Zelle
' Print #1, TempZeile
' TempZeile = ""
' Next Zeile
'Close #1
'MsgBox ("Die Datei API31MOD.txt wurde im Programmordner erstellt!")

' Und nun binär
'Exportdatei = ThisWorkbook.Path & Application.PathSeparator & "API41MOD.bin"
Exportdatei = "Y:\API41MOD.BIN"
BisZeile = ThisWorkbook.Worksheets("Übernahmedaten").Range("E4").Value
Set Zellbereich = ThisWorkbook.Worksheets("API41MOD-Daten").Range(ThisWorkbook.Worksheets("API41MOD-Daten").Cells(1, 1), ThisWorkbook.Worksheets("API41MOD-Daten").Cells(BisZeile, 1))
ff = FreeFile
Open Exportdatei For Output As #ff
For Each Zeile In Zellbereich.Rows
For Each Zelle In Zeile.Cells
TempZeile = Zelle
Next Zelle
TempZeile = Replace(TempZeile, "$", Chr(&O0), 1, 9999, vbBinaryCompare)
Print #1, TempZeile
TempZeile = ""
Next Zeile
Close ff
MsgBox ("Die Datei API41MOD.BIN wurde auf dem Laufwerk Y:\ erstellt!")

End Sub





Kann aber auf Teufel komm raus nicht heraus finden, woran das liegt.
Sehr ihr vielleicht den Auslöser?

Vielen Dank im Voraus.
HO

:)

 

Hi,

bei welchem Befehl genau tritt denn der Fehler auf (wo springt der Debugger hin)?

Was genau bezweckst du eigentlich mit der Schleife:
Code:

?

Gruß,
JBond

EDIT:
Die vereinfachte Version
Code:

läuft bei mir fehlerfrei - also liegt der Fehler vermutlich irgendwo in den Werten, die du aus deiner Tabelle ausliest.

 

Hallo HO,

BisZeile ist zu dem Zeitpunkt ungefüllt, also "". Erwartet wird aber eine Zahl.

 

BisZeile wird direkt in der Zeile davor befüllt...wenn in E4 eine Zahl steht *wink.gif*

 

Klar; - und bei Dir ist es sogar ein Integer. Aber im oberen Codeblock des TS ist das nicht so. Vermutlich hat er die entsprechende Zeile nur versehentlich nicht mit auskommentiert.

 

Hallo,
ich habe den Fehler gefunden. Auf der Seite prufliste hat der Bezug nicht gestimmt und darum kam es auch zu dem Fehler.

Vielen Dank für eure Tipps.
Gruß ho