Subscript valt buiten bereik.

[HSV]

Heet het blad van 'Kwartaal 1' geen 'Blad1' misschien?

 

[Ravenlord]

Jawel

 

[HSV]

Ik moest even wat dingen nabootsen.

Probeer het zo eens.

Sub Export()
Dim A, B, C, D, E
   Workbooks.Open "D:\" & ThisWorkbook.Sheets("Blad1").Range("E12").Value & ".xls"

    Rows("1:1").Insert Shift:=xlUp
With Workbooks("Test.xls").Sheets("Blad1")
   A = .[B24]
   B = .[B26]
   C = .[G37]
   D = .[G35]
   E = .[G34]
End With

With Sheets("Blad1")
 [A1] = A
 [B1] = B
 [C1] = C
 [D1] = D
 [E1] = E
End With
 
   ActiveWorkbook.Close ThisWorkbook.Path & "\" & Sheets("Blad1").Range("E12").Value & ".xls"
 ActiveWorkbook.Close
End Sub

 

[Ravenlord]

Werkt niet,
Nu opent ie helemaal niets meer

Sub Export()
Dim A, B, C, D, E
Workbooks.Open "I:\Excel\" & ThisWorkbook.Path & "\" & Sheets("Gegevens").Range("E12").Value & ".xls"

Rows("1:1").Insert Shift:=xlUp
With Workbooks("Test.xls").Sheets("Factuur")
A = .[B24]
B = .[B26]
C = .[G37]
D = .[G35]
E = .[G34]
End With

With Sheets("Blad1")
[A1] = A
[B1] = B
[C1] = C
[D1] = D
[E1] = E
End With

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("Gegevens").Range("E12").Value & ".xls"
ActiveWorkbook.Close

End Sub

 

[HSV]

& ThisWorkbook.Path & "\"

Kan er uit.

 

[Ravenlord]

Subscript valt buiten bereik,
Sub Export()
Dim A, B, C, D, E
Workbooks.Open "I:\Excel\" & Sheets("Gegevens").Range("E12").Value & ".xls"

Rows("1:1").Insert Shift:=xlUp
With Workbooks("Test.xls").Sheets("Factuur")
A = .[B24]
B = .[B26]
C = .[G37]
D = .[G35]
E = .[G34]
End With

With Sheets("Blad1")
[A1] = A
[B1] = B
[C1] = C
[D1] = D
[E1] = E
End With

ActiveWorkbook.SaveAs "I:\Excel\" & Sheets("Gegevens").Range("E12").Value & ".xls"
ActiveWorkbook.Close

End Sub

 

[HSV]

ActiveWorkbook.SaveAs → ActiveWorkbook.Close

En op welke regel dan?

 

[Ravenlord]

Dat geeft ie niet aan

 

[HSV]

Wordt het niet geel gemarkeerd?

 

[Ravenlord]

Nee er wordt niets geel gemarkeerd,
Zodra Kwartaal 1.xls geopend is verschijnt er een pop up met Subscript valt buiten het bereik

 

[HSV]

En als je daarna dan klikt op 'foutopsporing'.
Dan zie je de code staan met een geel gemarkeerde regel.

 

[Ravenlord]

Heb met stap alles gecontroleerd, vast een makkelijkere manier
Bij
With Sheets("Blad1")
[A1] = A
[B1] = B
[C1] = C
[D1] = D
[E1] = E
End With

Fout 9 bij uitvoering
Het subscript valt buiten bereik

 

[HSV]

Ik ben een beetje door de mogelijkheden heen.
Het werkt bij mij uitstekend (alles wordt netjes weggeschreven).

Staat er misschien een spatie achter tabbladnaam 'Blad1_'. van workbooks 'Kwartaal 1.xls' (aangeduidt door de underscore)?

 

[Ravenlord]

Nee die staat er niet,

Bijgevoed beide bestanden, misschien dat u er zo uitkomt waar de fout zit.

 

[HSV]

He, he, nu moet het goed komen.

Haal de code uit ThisWorkbook, en plaats het in een gewone module (koppelen aan de knop).

Verander:

ActiveWorkbook.Close "I:\Excel\" & Workbooks("Test.xls").Sheets("Gegevens").Range("E12").Value & ".xls"

 

[Ravenlord]

Als ik die regel aan pas enmoet verplaatsen naar gewone module houdt dat dan in dat ik het in Blad 2 scherm zet ??
Want zoja, dan voegt ie het toe aan Test.xls en niet aan Kwartaal 1.xls

 

[HSV]

Nee,

Als volgt:
Alt+F11
ThisWorkbook → knip de code.
Menu Invoegen → Module → plak hierin de code.

 

[Ravenlord]

Ah weer wat geleerd,
Super bedankt voor alle hulp vandaag, ik moet wel vooruit komen nu denk ik.
Laatste wijzigingen en dan is het af.