Supportnet / Forum / Tabellenkalkulation
Laufzeitfehler 1004
Frage
Hallo,
benutze das Range-Objekt. Dabei kommt der Laufzeitfehler 1004 vor.
Habe schon einiges ausprobiert. Die zu untersuchende Tabelle ist auch gefüllt.
der Code sieht so aus:
Sub Update_Pipeline_Sales()
Dim i As Variant
Dim a As Integer
Dim b As Integer
Dim Week As String
Dim Year As String
Dim Quartal As String
Week = Format(Now, "ww")
Dim Name As String
Name = "H:\Vertrieb\Sales Force Management\SFM Intern\Forecast\"
Name = Name + FY_Year(Year) + "\"
Name = Name + FY_Year(Year) + "-Q" + Quart_FY(Quartal) + "\"
' später wieder einkommentieren
' Name = Name + "KW" + Week + "\"
Name = Name + "KW17\"
Name = Name + "PipelineSales_080422.xls"
Workbooks.Open Filename:=Name
Windows("Daily_tracking_new.xls").Activate
Sheets("Pipeline_Sales").Select
a = 0
i = 1
Do While a = 0
If Cells(i, 1).Value <> "" Then
i = i + 1
Else
a = 1
End If
Loop
i = i - 1
a = 0
b = 1
Do While a = 0
If Cells(1, b).Value <> "" Then
b = b + 1
Else
a = 1
End If
Loop
b = b - 1
With Sheets("Pipeline_Sales")
.Range(.Cells(1, 1), .Cells(i, b)).ClearContents
End With
a = 0
i = 2
Do While a = 0
If Cells(i, 1).Value <> "" Then
i = i + 1
Else
a = 1
End If
Loop
i = i - 1
a = 0
b = 1
Do While a = 0
If Cells(4, b).Value <> "" Then
b = b + 1
Else
a = 1
End If
Loop
b = b - 1
Range(Cells(2, 1), Cells(i, b)).Select
Selection.Copy
Windows("Daily_tracking_new.xls").Activate
Sheets("Pipeline_Sales").Select
Range("A1").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Windows("PipelineSales_080422.xls").Activate
ActiveWorkbook.Close Savechanges:=False
Application.DisplayAlerts = False
End Sub
Antwort 1 von Saarbauer
hallo,
Txete werden normalerweise mit & verbunden
Name = "H:\Vertrieb\Sales Force Management\SFM Intern\Forecast\"
Name = Name & FY_Year(Year) & "\"
Name = Name & FY_Year(Year) & "-Q" & Quart_FY(Quartal) & "\"
' später wieder einkommentieren
' Name = Name & "KW" & Week & "\"
Name = Name & "KW17\"
Name = Name & "PipelineSales_080422.xls"
Hinzu kommt, dass du u.U. an die max. Läge des Dateinamen kommst (nach meinem Kenntisstand 255 Zeichen)
Gruß
Helmut
Txete werden normalerweise mit & verbunden
Name = "H:\Vertrieb\Sales Force Management\SFM Intern\Forecast\"
Name = Name & FY_Year(Year) & "\"
Name = Name & FY_Year(Year) & "-Q" & Quart_FY(Quartal) & "\"
' später wieder einkommentieren
' Name = Name & "KW" & Week & "\"
Name = Name & "KW17\"
Name = Name & "PipelineSales_080422.xls"
Hinzu kommt, dass du u.U. an die max. Läge des Dateinamen kommst (nach meinem Kenntisstand 255 Zeichen)
Gruß
Helmut
Antwort 2 von igrimm
Naja, die Datei öffnet er ja. Die Fehler kommen danach...
Antwort 3 von Saarbauer
hallo,
wo denn ?
Gruß
Helmut
wo denn ?
Gruß
Helmut
Antwort 4 von igrimm
eigentlich sofort danach.
Er sagt dann: Laufzeitfehler 1004, und markiert die Zeile
With Sheets("Pipeline_Sales")
.Range(.Cells(1, 1), .Cells(i, b)).ClearContents
End With
Er sagt dann: Laufzeitfehler 1004, und markiert die Zeile
With Sheets("Pipeline_Sales")
.Range(.Cells(1, 1), .Cells(i, b)).ClearContents
End With
Antwort 5 von nighty
hi all :-)
kontrolliere deine variablen und benutze eindeutige namen fuer die variablen
nutze den schrittweisen modus im vbed um die variablen zur laufzeit zu beobachten
gruss nighty
kontrolliere deine variablen und benutze eindeutige namen fuer die variablen
nutze den schrittweisen modus im vbed um die variablen zur laufzeit zu beobachten
gruss nighty