Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Kommentarfeld
#1
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.
Antworten Top
#2
Hallo, :19:

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


Code:
AutoSize 
Width
Height

Das sollte schon in die richtige Richtung gehen. :05:
________
Servus
Case
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste