Supportnet Computer
Planet of Tech

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ß

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ß

Antwort 3 von Schattenmeister

wenn du magst kann ich dir gerne mal die datei zu schicken?! wenn du interesse hast1?

Gruß

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: