Gibts jemanden, der mir einen Tipp geben kann?
Danke
j.
Sub Eintrage_stunden()
Dim kl As String
Dim irow, icol As Integer
irow = 8
icol = 10
Sheets("Tab1").Activate
ActiveSheet.Unprotect
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
last_row = ActiveCell.Row
last_column = ActiveCell.Column
Range(Cells(irow, 10), Cells(last_row, last_column)).Delete
'Scheife zur Abfage aller eingetragenen Werte in Spalte A ab A8 zur Aktivierung der jeweiligen Tabellenblätter
For irow = 8 To last_row - 2 Step 3 '3erSchritt, da A8:A10 verbundene Zellen sind
kl = Sheets("Tab1").Cells(irow, 1)
Cells(irow, icol).Activate
Sheets(kl).Activate
'Sollte hier auf das Tabellenblatt mit dem Namen aus "Tab1/A irow" wechseln, bringt aber im 2. Durchgang eine Fehlermeldung "Laufzeitfehler 9"
Range("J14").Activate
SucheInLehrerblatt
Sheets("Tab1").Activate
Next irow
Sheets("Tab1").Activate
ActiveSheet.Protect
End Sub