Gruß
Friedhelm
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Tabelle1").Range("A1") = "" Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End Sub
Gruß Pierre
If Range("A1") = "" Then
...
Gruß Pierre