Hallo zusammen,
Ich bin gerade an folgendem Code, ich bin auch fest der Meinung das er schon so funktioniert hat.
Aus irgendeinem Grund bekommen ich bei diesen Zeile den Fehler: Anwendungs- oder objektdefinierter Fehler
Cells(n_1011, 4).Value = Text_1011
für mich macht das Sinn, aber VBA sagt nein :-/
Bitte um Hilfe
Gruß Dustin
If Übergabe_Kabel = 1011 Then
size_1011 = 2
ReDim Block_1011(size_1011)
For n_1011 = 1 To Anzahl_Zeilen
For i_1011 = 0 To UBound(Block_1011)
Block_1011(i_1011) = Cells(n_1011, i_1011 + 1).Value
Next i_1011
Text_1011 = Join(Block_1011, Chr(10)) 'Chr(10)
Cells(n_1011, 4).Value = Text_1011
Next n_1011
End If
Kann es daran liegen das ich für Variable "Text_1011" den falschen Datentyp deklariert habe (steht auf String)
Ich wüsste aber nicht welcher dann der richtige wäre
Ich bin gerade an folgendem Code, ich bin auch fest der Meinung das er schon so funktioniert hat.
Aus irgendeinem Grund bekommen ich bei diesen Zeile den Fehler: Anwendungs- oder objektdefinierter Fehler
Cells(n_1011, 4).Value = Text_1011
für mich macht das Sinn, aber VBA sagt nein :-/
Bitte um Hilfe
Gruß Dustin
If Übergabe_Kabel = 1011 Then
size_1011 = 2
ReDim Block_1011(size_1011)
For n_1011 = 1 To Anzahl_Zeilen
For i_1011 = 0 To UBound(Block_1011)
Block_1011(i_1011) = Cells(n_1011, i_1011 + 1).Value
Next i_1011
Text_1011 = Join(Block_1011, Chr(10)) 'Chr(10)
Cells(n_1011, 4).Value = Text_1011
Next n_1011
End If
Kann es daran liegen das ich für Variable "Text_1011" den falschen Datentyp deklariert habe (steht auf String)
Ich wüsste aber nicht welcher dann der richtige wäre
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dustin_VB“ ()