Eingabemaske... löschen in Abhängigkeit?
Peter
untenstehender Code öffnet in Abhängigkeit vom Wert der Zelle C8 in Tabelle1 den CmdB1 und per click öffnet sich die Eingabemaske in Tabelle1 mit den Werten der Tabelle2....soweit so gut.....funzt optimal.....
'....Code in DieseArbeitsmappe
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("Tabelle1").Cells(8, 3).Value = "100" Then
Worksheets("Tabelle1").CommandButton1.Visible = True
End Sub
'.....Code in Tabelle1
Private Sub CommandButton1_Click()
With Sheets("Tabelle2")
.Range("A2:E7").CurrentRegion.Name = "Tabelle1"
.ShowDataForm
End With
End Sub
...ich möchte nun aber, dass die bestehenden Werte per Eingabemaske nur dann gelöscht werden können, wenn C8 = 100 ist, in allen anderen Fälen sollen nur Neueingaben gemacht werden können....
Bitte um Unterstützung
Danke
Peter S.
Anzeige