Supportnet / Forum / Tabellenkalkulation
Excel Laufzeitfehler 1004
Frage
Hallo, ich habe ein Problem mit meiner Excel Datei und zwar kommt die Fehlermeldung Laufzeitfehler 1004?!
Das Problem entstand erst als ich mit meinem VBA Script die Spalte "AA" erreicht habe! Kannmir jemand vielleicht helfen? Vielen Dank erst mal....
hier der code:
Private Sub CommandButton1_Click()
Dim liZeile As Integer
Dim lcTXTbox As Control, liSpalte As Integer
liZeile = 2
Do Until Sheets("Tabelle1").Range("" & 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
VIELEN DANK
Antwort 1 von Event
Hallo
Kanns nicht Testen, aber der CHR(91) ist ein " [ " und nicht "AA" ! "]"
Sheets("Tabelle1").Range(Chr(liSpalte) & liZeile).Value = Val(lcTXTbox)
Gruß
Kanns nicht Testen, aber der CHR(91) ist ein " [ " und nicht "AA" ! "]"
Sheets("Tabelle1").Range(Chr(liSpalte) & liZeile).Value = Val(lcTXTbox)
Gruß
Antwort 2 von Schattenmeister
Danke für die schnelle Antwort, aber ds funzt leider immer noch nicht! Hier mal der ganze code..
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
sobald die Spalte "AA" erreicht wird kommt die Fehlermeldung!!
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
sobald die Spalte "AA" erreicht wird kommt die Fehlermeldung!!
Gruß
Antwort 3 von Schattenmeister
wenn du magst kann ich dir gerne mal die datei zu schicken?! wenn du interesse hast1?
Gruß
Gruß