Laufzeitfehler 1004
20.06.2005 14:53:50
Schatti
ich habe leider ein Problem und ich weiss nicht woher der fehler kommt...und zwar werden die daten über ein formular in bestimmte textboxen eingegeben und anschließend in den spalten abgespeichert. bis spalte Z(26) läuft alles ok nur ab der spalte aa1 kommte bei mir die meldung laufzeitfehler 1004 (anwendungs- oder objektdefinierter fehler), ich weiß nicht wieso? wenn ich die textboxen lösche die ihre daten in den spalten ab aa schreiben möchte, läuft alles wieder.
wäre nett wenn einer von euch die lösung hat..........
danke gruß
---------------------------------------------------------------------------
Option Explicit
Private Sub CommandButton1_Click()
Dim liZeile As Integer
Dim lcTXTbox As Control, liSpalte As Integer
liZeile = 2
Do Until Sheets("Tabelle1").Range("A" & liZeile) = ""
liZeile = liZeile + 1
Loop
liSpalte = 65
For Each lcTXTbox In Controls
If TypeName(lcTXTbox) = "TextBox" Then
If IsNumeric(lcTXTbox) = True And Not IsDate(lcTXTbox) = True Then
Sheets("Tabelle1").Range(Chr(liSpalte) & liZeile).Value = Val(lcTXTbox)
Else
Sheets("Tabelle1").Range(Chr(liSpalte) & liZeile).Value = lcTXTbox
End If
lcTXTbox = ""
liSpalte = liSpalte + 1
End If
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub