Befehlschaltfläche funktioniert nicht wie sie soll
06.02.2016 14:18:38
Marco
kurz zu mir: Beschäftige mich seid längerem mit excel ,und habe mich Aufgaben bedingt jetzt mal an VBA ran gesetzt, einiges habe ich auch schon durch lesen und probieren hin bekommen allerdings scheitere ich jetzt an dieser Sache.
Zur Erläuterung,die Blatt sperre ist Aktiv und nur einige Zellen sind freigegeben.Der Command Button soll nun den Blattschutz aufheben ein Kommentar in die Active zelle einfügen, einen Wert eintragen in diesem Fall ein "X" und dann überprüfen ob die Zelle einen Wert enthält und diese dann Sperren und am Schluss den Blattschutz wieder aktievieren. Dies bekomme ich leider nicht hin ich scheitere jetzt seid 2 Tagen egal was ich probiere, das Makro hört immer nach dem Eintrag der Zelle mit dem "X" auf. Kann das Excel nicht ? oder bin ich einfach auf dem falschen Weg? Würde mich freuen wenn ihr mir als Anfänger ein paar Tipps geben könntet oder sogar ein Lösungsvorschlag.
hier noch mein bis jetzt zusammen gewürfelter Code. Wenn es nicht Optimal geschrieben ist, entschuldigt dieses bitte !
Gruß Marco
Private Sub Urlaub_planen_Click()
'Schreibschutz aufheben
ActiveSheet.Unprotect "elite"
'Kommentar zufügen
With ActiveCell
If Not .Comment Is Nothing Then
.Comment.Text .Comment.Text & vbLf & "Urlaub beantragt "
&CDate(Format(Now, " _dd.mm hh:mm:ss") & Environ("test"))
Else
.AddComment "Urlaub beantragt " & CDate(Format(Now, "dd.mm hh:mm:ss")
& Environ(" _test"))
End If
.Comment.Shape.DrawingObject.AutoSize = True
End With
'Wert eintragen
Selection.Value = "X" 'ActiveCell.Value = "X"
'Überprüfen ob Zelle gespert/PW setzen
If Target.Cells.Locked = False And Target.Cells "" Then
Target.Cells.Locked = True
ActiveSheet.Protect "elite"
End If
End Sub