wie kann ich meine arbeitsblätter schützen, so dass keine eingabe direkt in den
zellen erfolgen kann
daten dürfen nu per uf eingegeben werden
lg
Wolferl
Private Sub CommandButton2_Click()
' Übertragen der Daten in die Tabelle
' auf der Eigenschaft Tag der Steuerelmente steht die Tabelle und die Spalte in die die Daten _
_
geschrieben werden
' Der Datensatz wird immer nach der letzten Zeile geschrieben
Dim ObCb As Object
Dim LoLetzte As Long
' Letzte Zeile in Tabelle01 feststellen
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) + 1
If LoLetzte "" Then
Range(ObCb.Tag & LoLetzte) = ObCb.Value
End If
Next ObCb
Else
MsgBox "Es ist keine Zeile mehr frei"
End If
Unload Me
End Sub
Private Sub CommandButton2_Click()
' Übertragen der Daten in die Tabelle
' auf der Eigenschaft Tag der Steuerelmente steht die Tabelle und die Spalte in die die Daten _
_
'_
'geschrieben werden
' Der Datensatz wird immer nach der letzten Zeile geschrieben
Dim ObCb As Object
Dim LoLetzte As Long
' Letzte Zeile in Tabelle01 feststellen
ActiveSheet.Unprotect "deinpasswort"
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) + 1
If LoLetzte "" Then
Range(ObCb.Tag & LoLetzte) = ObCb.Value
End If
Next ObCb
Else
MsgBox "Es ist keine Zeile mehr frei"
End If
Unload Me
ActiveSheet.protect "deinpasswort"
End Sub
Klappts ?
gruß Chris