laufzeitfehler 91
17.12.2013 11:02:11
Marc
Ich habe eine Problem mit dem "laufzeitfehler 91 objektvariable oder with-blockvariable nicht festgelegt"
Dazu habe ich mir folgende Code zusammen gebastelt, der ja eigentlich auch soweit funktioniert. Nur bringt er diesen Fehler... und leider verstehe ich nicht warum.
In den Zellen f5:j5 stehen die Namen und von f6:j6 stehen die Personalnr. Wenn die Userform gestartet wird, sollen die Textbox bereits ausgefüllte zellen anzeigen.
Wenn die Userform geschlossen wird sollen die änderungen übernommen werden.
Wäre echt schön wenn mir jemand helfen könnte!! Schon mal viele Dank im vorraus!!!
Option Explicit
Private Sub UserForm_initialize()
'Werte aus Zelle in Textbox übertragen
Dim i As Byte
For i = 1 To 5
Me.Controls("Textbox" & i) = Sheets("Tabelle1").Cells(5, 5 + i).Value
Next
For i = 6 To 10
Me.Controls("Textbox" & i) = Sheets("Tabelle1").Cells(6, i).Value
Next
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
'Werte aus Textbox in Zelle übertragen
Dim i As Byte
For i = 1 To 5
Sheets("Tabelle1").Cells(5, 5 + i).Value = Me.Controls("Textbox" & i)
Next
For i = 6 To 10
Sheets("Tabelle1").Cells(6, i).Value = Me.Controls("Textbox" & i)
Next
Unload Me
End Sub