Ich brauche eine Excel-Liste mit Eingabemaske, in welcher Daten eingegeben werden und diese ins Arbeitsblatt geschrieben werden.
Besondertheit, die USer dürfen im Arbeitsblatt nicht mehr ändern.
Kann mit jemand helfen !?
DANKE!!!
lg leo
Private Sub CommandButton1_Click()
Dim LRow As Long
With Tabelle1
LRow = .Range("A:D").Find("*", , xlValues, 2, 1, 2, False, False).Row + 1
.Cells(LRow, 1).Value = TextBox1.Value
.Cells(LRow, 2).Value = TextBox2.Value
.Cells(LRow, 3).Value = TextBox3.Value
.Cells(LRow, 4).Value = TextBox4.Value
End With
End Sub
Gruß Tino
Private Sub CommandButton1_Click()
Dim LRow As Long
With Tabelle1
On Error Resume Next
LRow = .Range("A5:D" & .Rows.Count).Find("*", , xlValues, 2, 1, 2, False, False).Row + 1
On Error GoTo 0
If LRow = 0 Then LRow = 5
.Cells(LRow, 1).Value = TextBox1.Value
.Cells(LRow, 2).Value = TextBox2.Value
.Cells(LRow, 3).Value = TextBox3.Value
.Cells(LRow, 4).Value = TextBox4.Value
End With
End Sub
Gruß Tino