Ein strukturelles Problem, was kommt wann
10.07.2006 21:40:47
Peter
Ich habe in meinem nachfolgenden Code ein strukturelles Problem, das ich nicht auf die Schnelle lösen kann und zwar läuft der Code bei
Select Case Sheet.Name
nicht mehr weiter.
Kann mir jemand sagen, wo das Problem liegt, resp. wie dieses zu lösen ist?
Danke, Peter
Sub Eingabeschutz()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim Sheet As Worksheet
Dim zNr As Long
Dim lrow As Long
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
Select Case Sheet.Name
Case "Verwendung", "Veränderung", "Übersicht", "Vermögen", "Anteile", "Erfolg"
With aSheet
Cells.Locked = False
lrow = aSheet.Range("k:m").SpecialCells(xlLastCell).Row
zNr = 1
Do While zNr <= lrow
If .Cells(zNr, 28) <> "" Then .Cells(zNr, 6).Locked = False
If .Cells(zNr, 29) <> "" Then .Cells(zNr, 8).Locked = False
If .Cells(zNr, 30) <> "" Then .Cells(zNr, 10).Locked = False
zNr = zNr + 1
Loop
End With
End Select
End Sub