Eingabe trotz Blattschutz
15.07.2006 21:45:05
Thorsten
Habe eine kleine Frage an euch.
Ich kann über CommandButten die Eingaben in der TextBox in die Zelle übertrage, nur leider geht dies nur wenn ich den Blattschutz aufheben.
Kann ich das auch ohne den Schutz aufzuheben machen.
Hier ist mein Makro:
Private Sub CommandButton2_Click()
Dim lngRow As Long
Dim intIndex As Integer
With ActiveSheet
For lngRow = 12 To .Rows.Count
If Trim$(.Cells(lngRow, 1).Text) = "" Then Exit For
Next
.Cells(lngRow, 1).Value = TextBox1.Text
.Cells(lngRow, 2).Value = TextBox2.Text
.Cells(lngRow, 3).Value = CDate(TextBox3)
.Cells(lngRow, 3).NumberFormat = "dd/mm/yyyy"
.Cells(lngRow, 8).Value = TextBox4.Text
.Cells(lngRow, 4).Value = CDbl(Me.TextBox6)
.Cells(lngRow, 4).NumberFormat = "0.00"
.Cells(lngRow, 10).Value = TextBox5.Text
End With
For intIndex = 1 To 6
Controls("TextBox" & CStr(intIndex)).Text = ""
Next
End Sub
Währe für jede Hilfe Dankbar
Gruß Torte