ich habe hier ein Problem, dass sich mir nicht richtig erschließt.
Eine Tabelle ist folgendermaßen aufgebaut:
Eine Spalte sichtbar, die folgenden 7 ausgeblendet,
eine sichtbar, 7 ausgeblendet usw.
In Private Sub Workbook_SheetChange befindet sich
nachfolgender Code:
'Wenn G dann Schicht, Beginn und Ende in Referenztabelle übertragen
With Target
If (.Column - 2) Mod 8 = 0 And _
Sh.Cells(6, .Column) = "G" Then
Set Bereich_1 = _
Range(.Cells(7, .Column), .Cells(Anzahl_Mitarbeiter + 6, .Column + 2))
Arr_Temp_1() = Bereich_1.Value
End If
End With
Das Problem ist, ich kann in den ersten 16 sichtbaren Spalten
in Zeile 6 den Buchstaben "G" eintragen, ab der 17. sichtbaren Spalte,
das ist die Spalte DZ, kommt die Fehlermeldung "Anwendungs-oder objektorientierter Fehler"
und markiert ist die Anweisung Set Bereich_1
Hat jemand eine Ahnung, wie das zu erklären ist ?
Ich steh' völlig auf dem Schlauch.
Vielen Dank
Ingo