ich habe ein Problem mit einem Makro.
Das Makro trägt bei einem Doppelklick auf einen Artikel die Laufnummer dieses Artikels in ein zweites Tabellenblatt ein und färbt den ausgewählten Artikel. Bei einem zweiten Doppelklick wird diese Auswahl wieder rückgängig gemacht.
Das funktioniert alles ganz prima. Ich schaffe es allerdings nicht, das aktive Blatt, d.h. das Blatt in dem der Doppelklick ausgewählt wird nach der Aktion mit einem Blattschutz zu versehen.
Aufheben geht aber das Schützen klappt nicht. An welcher Stelle muß ich das "activesheet.protect" einfügen? Oder brauche ich dafür einen ganz anderen Aufruf???
Hier der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim artikel As String
Sheets("Kalkulation").Unprotect
Sheets("Kalkulation").Cells.EntireRow.Hidden = False
x = Target.Column
y = Target.Row
Cancel = True
Select Case Cells(y, x).Interior.ColorIndex
Case Is = xlNone
Cells(y, 1).Copy Destination:=Sheets("Kalkulation").Cells(Sheets("Kalkulation").Cells(65536, 1).End(xlUp).Row + 1, 1)
Range(Cells(y, 1), Cells(y, 18)).Interior.ColorIndex = 3
Case Is = 3
artikel = Cells(y, 1)
With Sheets("Kalkulation").Columns("A:A")
Set b = .Find(artikel, after:=Sheets("Kalkulation").Cells(1, 1), _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Not b Is Nothing Then
yy = b.Row
Sheets("Kalkulation").Cells(yy, 1).ClearContents
End If
End With
Range(Cells(y, 1), Cells(y, 18)).Interior.ColorIndex = xlNone
End Select
Exit Sub
End Sub
Danke
Gruß
Carsten