Kommentar mit Hilfe eines Menüs bearbeiten
02.07.2018 12:41:54
DJRidoo
Ich möchte dies jedoch nur für einen bestimmten Bereich (L14:AP74) ermöglichen.
Es soll also so sein, dass man die Zelle anklickt, für welche der Kommentar hinzugefügt, bearbeitet oder gelöscht werden soll. Anschließend soll man über einen CommandButton die Userform "Kommentarmenü" öffnen. Nun soll im Label der aktuelle Kommentar der Zelle stehen. Wenn kein Kommentar vorhanden ist, dann soll das Label folgendes zeigen: kein Kommentar vorhanden. Nun Soll man in die TextBox den neuen Kommentar eingeben und diesen dann mittels des Buttons 1 speichern und den alten überschreiben.
Will man nur den Kommentar löschen so klickt mann einfach auf den Button 1.
Neben den Namen der Steuererlemente habe ich unten einmal meinen Ansatz gepostet. Es fehlt noch sehr viel. Mir fehlt aber die Idee zur Umsetzung.
In den Menü habe zwei Buttons, ein Label und eine Textbox:
Button 1: Kommentarmenü_Button_Kommentar_speichern
Button 2: Kommentarmenü_Button_Kommentar_löschen
Label: Kommentarmenü_Frame_Label_alterKommentar
TextBox: Kommentarmenü_TextBox_neuerKommentar
Private Sub UserForm_Activate()
End Sub
Private Sub Kommentarmenü_Button_Kommentar_speichern_Click()
' Start Variablen deklarieren
Dim Kommentar As String
' Ende Variablen deklarieren
' Start Blattschutz für Tabellenblatt "Jahresplan" aufheben
Worksheets("Jahresplan").Unprotect Password:="Dateiadmin"
' Ende Blattschutz für Tabellenblatt "Jahresplan" aufheben
' Start WENN Zelle einen Kommentar enthält DANN neuen Kommentar speichern SONST neuen _
Kommentar hinzufügen
Application.ScreenUpdating = False
Application.EnableEvents = False
'Kommentar = Kommentarmenü_TextBox_neuerKommentar.Text
'If .Comment Is Nothing Then
'.AddComment
'.Comment.Text Kommentar
'.Comment.Shape.TextFrame.AutoSize = True
'.Comment.Shape.TextFrame.HorizontalAlignment = xlCenter
'.Comment.Shape.TextFrame.VerticalAlignment = xlCenter
'Else
'.Comment.Text Kommentar
'.Comment.Shape.TextFrame.AutoSize = True
'.Comment.Shape.TextFrame.HorizontalAlignment = xlCenter
'.Comment.Shape.TextFrame.VerticalAlignment = xlCenter
'End If
Application.EnableEvents = True
Application.ScreenUpdating = True
' Ende WENN Zelle einen Kommentar enthält DANN neuen Kommentar speichern SONST neuen _
Kommentar hinzufügen
' Start Blattschutz für Tabellenblatt "Jahresplan" wieder herstellen
If Worksheets("Jahresplan").Range("G9").Value = "kein Blattschutz" Then
Call BlattschutzJahresplanUser
Else
If Worksheets("Jahresplan").Range("G9").Value = "User" Then
Call BlattschutzJahresplanPlaner
Else
Call BlattschutzJahresplanUser
End If
End If
' Ende Blattschutz für Tabellenblatt "Jahresplan" wieder herstellen
' Start UserForm "Kommentarmenü" schließen
Unload Kommentarmenü
' Ende UserForm "Kommentarmenü" schließen
End Sub
Ich danke Euch
DJRidoo