Hi NG!
In meinem Code versuche ich einen Zellbereich (A1:A"letzer eintrag)mit dem Namen "Lehrerliste" zu benennen. Der Code hängt allerdings in der Zeile
Sheets("Lehrerliste").Range(Cells(1, 1), Cells(irowk, 1)).Select
Weiters bin ich mir noch unsicher über die Formulierung
ActiveWorkbook.Names.Add Name:="Lehrerliste", RefersToR1C1:="=Lehrerliste!R1C1:RrowkC1"
Kann man hier den Zellbezug für die letzte Zelle "RrowkC1" so formulieren??
Es ist eine Variation des Macrorecorders.
~beginn~
Sub KürzelfürLehrerliste()
Dim k As String
k = KürzelNeuerLehrer
Dim irowk As Integer
irowk = 1
Do Until IsEmpty(ActiveSheet.Cells(irowk, 1))
irowk = irowk + 1
Loop
Sheets("Lehrerliste").Unprotect
Sheets("Lehrerliste").Cells(irowk, 1) = k
Sheets("Lehrerliste").Range(Cells(1, 1), Cells(irowk, 1)).Select
ActiveWorkbook.Names.Add Name:="Lehrerliste", RefersToR1C1:="=Lehrerliste!R1C1:RrowkC1"
Sheets("Lehrer").Protect
End Sub
~end~
Danke für eure Tipps!
lg
jörg