Textbox1.SetFocus Problem
03.12.2005 21:18:33
Alex
ich wende mich an euch mit folgendem Problem:
ich übertrage Daten per UF aus Textboxen, Comboboxen, etc. in eine Tabelle. Zum Abschluss des Makros werden die Felder alle wieder zurückgesetzt. Das funktioniert auch, aber ich erhalte, wenn der Cursor in bestimmten Feldern steht, einen Laufzeitfehler "Laufzeitfehler -2147467259(80004005)
In der Recherche findet sich der Fehler mehrmals aber ich kann damit einfach nichts anfangen. Bitte um Hilfe.
Das Makro sieht so aus:
Private Sub CommandButton3_Click()
'Achtung
'TypeName = Case Sensitiv !!
'Checkbox wird nicht erkannt
'CheckBox dagegen schon
Dim i As Integer
Dim cb As Control
i = 0
For Each cb In Me.Controls
Debug.Print TypeName(cb)
Select Case TypeName(cb)
Case "CheckBox"
cb = False
Case "OptionButton"
cb = False
Case "ComboBox"
cb = ""
Case "TextBox"
cb.Value = ""
End Select
Next
TextBox1.SetFocus
ActiveSheet.Protect
Sheets("Einleitung").Activate
Application.ScreenUpdating = True
End Sub
lg Alex