Textfeld in VBA bearbeiten (VBA)

Martin Asal @, Freitag, 16.10.2020, 16:37 (vor 10 Tagen) @ Karsten Zechel

Du musst dich nur ein klein wenig mit der Hilfe befassen, dann findest du die Lösung:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Count = 1 Then
    Tabelle1.Shapes("Textfeld 2").TextFrame.Characters.Text = ActiveCell
    Tabelle1.Shapes("Textfeld 2").Visible = True
Else
    Tabelle1.Shapes("Textfeld 2").Visible = False
End If
End Sub

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum