Re: Verschiedene Daten aus mehreren Workbooks holen
15.04.2003 20:21:51
geht anscheinend net
das scheint nicht zu funktionieren der debugger bricht immer abo. mach ich da irgendwas falsch
hier mal ein ausschnitt aus dem makro
'***********Aktuell geöffnet*****************
Sub StdListe()
Depfah = 7
mas_1schicht = Cells(35, 4)
mas_2schicht = Cells(35, 7)
mas_gesamt = Cells(35, 12)
'********************************************
'++++++++++soll geöffnet werden um die Werte in die variablen
'++++++++++ aufzunehmen++++++++++++++++++++++
Windows("DepotsApr.xls").Activate
depot1 = Cells(8, 4)
If Cells(8, 4) = Empty Then
depot1 = Empty
End If
depot1 = Cells(9, 4)
If Cells(9, 4) = Empty Then
depot2 = Empty
End If
depot1 = Cells(10, 4)
If Cells(10, 4) = Empty Then
depot3 = Empty
End If
'++++++++++++++++++++++++++++++++++++++++++++
'************soll auch für die Variablen geöffnet
'************ werden****************************
Windows("Leihar~1.xls").Activate
leihar_1schicht = Cells(8, 4)
If leihar_1schicht = Empty Then
leihar_1schicht = Empty
End If
leihar_2schicht = Cells(8, 7)
If leihar_2schicht = Empty Then
leihar_2schicht = Empty
End If
leihar_ges = Cells(8, 8)
If leihar_ges = Empty Then
leihar_ges = Empty
End If
gesstd = leihar_ges + mas_gesamt + depot1 + depot2 + depot3
'***********************************************
'++++++++++hier sollen die Variablen in die Tabelle
'++++++++++++geschriben werden
Windows("StdListe.xls").Activate
End Sub
habs auch schon anstatt mit Windows("----").Activate
mit Workbooks.Open Filename:"-----" probiert
ergebnis war das selbe
ich hoffe das mir noch jemand helfen kann
u bedanke mich schonmal