VBA Laufzeitfehler bei For über Cells
04.05.2021 11:18:52
PiaLüdemann
ich versuche bei Änderung einer Zelle, denselben Wert dann in einige andere Zellen zu schreiben. Aber VBA wirft dann den Laufzeitfehler '-2147417848 (80010108)' "Die Methode 'Cells' für das Object '_Worksheet' ist fehlgeschlagen".
Ich habe das Makro direkt in der Tabelle eingefügt. Es ruft sich auch auf, wenn ich dann eine der betroffenen Zellen ändere. Aber nach dem Fehler kann ich zwar auf Debuggen drücken und mir die Werte anschauen (die auch alle sind, was ich erwartet habe) aber auch bei Beenden des Debuggens, ist die Excel Tabelle abgestürzt und muss geschlossen werden.
Option Explicit
Option Base 1
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 1 And Target.Column Mod 7 = 3 Then
Dim neuePerson As String
neuePerson = Target.Value
Dim i As Integer
Dim Column As Integer
For i = 0 To 1
Column = 3 + i * 7
Worksheets("Essensplan").Cells(1, Column) = neuePerson
Next i
End If
End Sub