Index ausserhalb... nach Workbook.add
09.02.2009 16:51:42
TimoG
ich habe in einem Modul folgende Sub, mit welcher ich ein neues Angebot anlege:
(Variablen sind in separatem Modul als öffentlich deklariert)
Public Sub Angebot_Neu()
Dim wkb As Workbook
Set wkb = Workbooks.Add(Template:=conPfadVorlage)
strPfadDatei = strAngebotOrdner & strAngebot & ".xls"
strAngebotXLS = strAngebot & ".xls"
With wkb
.RunAutoMacros Which:=xlAutoOpen
.SaveAs strPfadDatei
End With
ActiveWorkbook.Close
End Sub
Mit dieser zweiten Prozedur öffne ich das Angebot anschließend.
Public Sub Angebot_oeffnen()
Workbooks.Open(Filename:=strPfadDatei, UpdateLinks:=3).RunAutoMacros Which:=xlAutoOpen
strAngebotXLS = ActiveWorkbook.Name
End Sub
Bei der nächsten Prozedur
Private Sub PosDatenfelder_eintragen()
Dim wkb As Object
' HilfsVariablen deklarieren
Dim iMEL As Integer
Dim iPVC As Integer
Dim iPP As Integer
Dim iABS As Integer
iMEL = 0
iPVC = 0
iPP = 0
iABS = 0
Set wkb = Worksheets(strAngebotXLS).Sheets("A_Eingabe")
End Sub
steigt Excel dann mit der Fehlermeldung aus, "index außerhalb des gültigen bereichs". - Wieso?
Die Werte der Variablen sind so, wie sie von den anderen Programmteilen ohne Probleme genutzt wurden und auch die Arbeitsmappe ist geöffnet.
Vielen Dank und Gruß
TimoG