Textfeld in VBA bearbeiten (VBA)

Karsten Zechel @, Remptendorf, Donnerstag, 15.10.2020, 19:55 (vor 11 Tagen)

Hallo ich habe eine Liste wobei in Spalte B 12 wenn ich die Zelle anklicke eine Textbox angezeigt wird und bearbeitet werden kann. Nun möchte ich in allen Zellen der Spalte B das diese Textbox sich öffnet und man sie bearbeiten kann wenn ich die jeweilige Zelle anklicke.
Kann mir jemand einen Tipp geben?

Hier mein Code:

private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

Textfeld in VBA bearbeiten

Martin Asal @, Donnerstag, 15.10.2020, 21:35 (vor 11 Tagen) @ Karsten Zechel

Hallo Karsten,

du musst nur im Code "B12" durch "B:B" ersetzen.

Martin

Textfeld in VBA bearbeiten

Karsten Zechel @, Remptendorf, Freitag, 16.10.2020, 15:33 (vor 10 Tagen) @ Martin Asal

Hallo Martin,

das geht zwar, es wird aber immer der gleiche Text im Textfeld angezeigt.
Ich wollte das jede Zelle in der Spalte extra aufgerufen werden kann mit dem Textfeld und dem entsprechendem Inhalt.
Würde das auch irgendwie gehen?
Für Vorschläge bin ich sehr dankbar.

Mit freundlichen Grüßen

Karsten

Textfeld in VBA bearbeiten

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

RSS-Feed dieser Diskussion
powered by my little forum