Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Index ausserhalb... nach Workbook.add

Index ausserhalb... nach Workbook.add
09.02.2009 16:51:42
TimoG
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sorry, Doppelpost durch Serverprob. o.T.
09.02.2009 16:53:13
TimoG
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige