Laufzeitfehler 2185 beim auto leeren von Textboxen
Textboxen
ich habe ein Excel-Sheet mit bis zu 100 verschiedenen Textboxen. Jetzt habe ich einen Button erstellt, um damit den Inhalt der Textboxen zu leeren. Dem Button liegt folgender Code zu Grunde:
Private Sub CommandButton2_Click()
Dim o As OLEObject
For Each o In ActiveSheet.OLEObjects
If Left(o.Name, 7) = "TextBox" Then o.Object.Value = vbNullString
Next o
End Sub
Jetzt habe ich aber auch eine Textbox, in welcher ich die Anzahl der zu schreibenden Zeilen _ eingeschränkt habe. Folgender Code:
Private Sub TextBox9_Change()
Static strTXT1Save As String
If TextBox9.LineCount > 20 Then
MsgBox "Nur 20 Zeilen erlaubt!", , TextBox9.LineCount
TextBox9.Value = strTXT1Save
Else
strTXT1Save = TextBox9.Value
End If
End Sub
Wenn ich jetzt den Button betätige, um die Textboxen zu löschen, erscheint folgender Fehler:
Laufzeitfehler 2185: Eigenschaft LineCount konnte nicht abgerufen werden. Das Steuerelement muss den Fokus haben. Setzen Sie mit Hilfe der SetFocus-Methode den Fokus auf das Steuerelement, bevor Sie auf diese Eigenschaft oder Methode verweisen.
Wäre super wenn mir jemand erklären könnte, wie ich dieses Problem umgehen kann.
Vielen Dank im voraus.
Arno
Anzeige