Ich habe da noch eine Frage zur Textbox.
In einer Tabellenliste blende ich mit Doppelklick eine Textbox ein und verweise auf den Inhalt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
TextBox1.Top = ActiveCell.Offset(1, 0).Top ‘Position
TextBox1.Left = ActiveCell.Offset(1, 0).Left ‘Position
ActiveSheet.TextBox1.LinkedCell = "N" & Target.Row ‘ Lese Inhalt aus Spalte N
ActiveSheet.Shapes("TextBox1").Visible = True ‘Einblenden
End Sub
Private Sub TextBox1_LostFocus()
ActiveSheet.Shapes("TextBox1").Visible = False ‘Ausblenden
End Sub
Wähle ich mit Doppelklick eine andere Zelle aus, blendet sich die alte Textbox aus und bei der neuen Zelle ein.
Jetzt das Problem:
Schreibe ich etwas in die Textbox hinein, dann wird es automatisch in die Zelle übernommen. Was ja erwünscht ist.
Bei einer neuerlichen Zellenauswahl mit Doppelklick wird aber "TextBox1_LostFocus()" scheinbar ignoriert.
Da die, bestehende Textbox nicht ausgeblendet wird und als Rest stehen bleibt.
Was ist dabei falsch?
Danke für euer Bemühen
Eugen