Kommentarfeld

[Perspektive]

Hallo allerseits,

ich habe eine bestimmt lösbare Aufgabe:

Habe ein VBA Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing And Target.Count = 1 Then
Tabelle1.TextBox1.Visible = True
Else
Tabelle1.TextBox1.Visible = False
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Not Intersect(Target, Range("B12")) Is Nothing And Target.Count = 1 Then
Tabelle1.Shapes("Textfeld 2").Visible = True
Else
Tabelle1.Shapes("Textfeld 2").Visible = False
End If
End Sub


heißt wenn ich in Zelle B2 klicke erscheint ein Kommentar. Nun die Frage ob man das Makro so schreiben kann, dass man auch den Kommentar erweitern kann und das Kommentarfenster sich dynamisch anpasst.
Hat jemand eine Idee?

Vielen Dank schon mal im Voraus.

[00202]

Hallo, :19:

eine TextBox hat verschiedenen Eigenschaften - z. B.: :21:

Code:

AutoSize 
Width
Height

Das sollte schon in die richtige Richtung gehen. :05: