|
Hallo,
ich habe folgendes Szenario: Ich habe ein Formular mit 2 Buttons. Beim Drücken des eines Buttons kann ein Kommentar über ein neues Formular Kommentartext eingegeben werden, beim Drücken des anderen Buttons soll der zuvor gesetzte Kommentar bearbeitet werden können.
Ich habe bis jetzt folgendes für die Buttons:
Private Sub cmd_Kommentar_setzen_Click()
'Auswahl der Zelle, die kommentiert werden soll und Eingabe des Kommentars in ein Textfeld. Kommentierte Zelle wird gelblich eingefärbt.
ActiveSheet.Unprotect Password:=""
frm_Tabellenkonfiguration.Hide
Dim rngAuswahl As Range
On Error GoTo LeaveSub
Set rngAuswahl = Application.InputBox("Bitte die Zelle auswählen, die kommentiert werden soll.", Type:=8)
If rngAuswahl.Count > 1 Then
MsgBox "Bitte nur eine Zelle auswählen.", vbCritical
frm_Tabellenkonfiguration.Show
Exit Sub
End If
If rngAuswahl.Row < 8 Then
MsgBox "Bitte eine gültige Auswahl verwenden.", vbCritical
Exit Sub
End If
rngAuswahl.Select
rngAuswahl.AddComment
frm_Kommentartext.Show
LeaveSub:
frm_Tabellenkonfiguration.Show
ActiveSheet.Protect Password:="", AllowFiltering:=True
End Sub
Private Sub cmd_Kommentar_bearbeiten_Click()
'Auswahl der Zelle, bei der der Kommentar bearbeitet werden soll
ActiveSheet.Unprotect Password:=""
frm_Tabellenkonfiguration.Hide
Dim rngAuswahl As Range
On Error GoTo LeaveSub
Set rngAuswahl = Application.InputBox("Bitte den Kommentar auswählen, der bearbeitet werden soll.", Type:=8)
If rngAuswahl.Comment Is Nothing Then
MsgBox "Bitte nur kommentierte Zellen auswählen.", vbCritical
frm_Tabellenkonfiguration.Show
Exit Sub
End If
rngAuswahl.Select
LeaveSub:
frm_Tabellenkonfiguration.Show
ActiveSheet.Protect Password:="", AllowFiltering:=True
End Sub
Und folgendes für das Textbox wo der Kommentar eingegeben wird:
Private Sub cmd_Kommentar_bearbeiten_Click()
'Auswahl der Zelle, bei der der Kommentar bearbeitet werden soll
ActiveSheet.Unprotect Password:=""
frm_Tabellenkonfiguration.Hide
Dim rngAuswahl As Range
On Error GoTo LeaveSub
Set rngAuswahl = Application.InputBox("Bitte den Kommentar auswählen, der bearbeitet werden soll.", Type:=8)
If rngAuswahl.Comment Is Nothing Then
MsgBox "Bitte nur kommentierte Zellen auswählen.", vbCritical
frm_Tabellenkonfiguration.Show
Exit Sub
End If
rngAuswahl.Select
LeaveSub:
frm_Tabellenkonfiguration.Show
ActiveSheet.Protect Password:="", AllowFiltering:=True
End Sub
Kann mir vielleicht jemand weiterhelfen?
Vielen Dank
|