Schaltfläche löschen
13.12.2007 13:10:00
Heinz
Gibt es eine Möglichkeit,wenn ich die Daten mit "cmdUebertragen_Click()" übertragen habe,das sich die Schaltfläche38 dann löscht.
Gruß Heinz
Option Explicit
Private Sub cmdUebertragen_Click()
ActiveSheet.Unprotect
If txtA.Value "" Then
Cells(3, 2).Value = txtA.Value '[B3]= Name
End If
Unload Me
End If
ActiveSheet.Protect
End Sub
Anzeige