Blätter in Excel Datei hintereinander ansprechen
27.10.2004 09:05:29
Eva
mit folgendem Code lese ich Daten aus einer externen Excel Datei aus. Mein Problem liegt beim Definieren des automatischen Zugriffs auf hintereinander liegenden Blättern nach dem wsOverview. Es folgen etwa 44 weitere Blätter, die ich nach dem Muster ansprechen möchte.
wsOverview = tbl01
if ... then
tbl01=tbl01+ (1?)
end if
Wie müsste ich also vorgehen?
Danke,
Eva
Dim wsOverview As Object
Dim wsAuslesenBSC_Abt As Object
Dim ZeileActual As Long
Dim ZeileLower As Long
Dim ZeileUpper As Long
Dim ZeileAuslesen As Long
Dim wbStandortziele As Object
Set wsOverview = Workbooks("Template_IFD_Standortziele_04_05.xls").Worksheets("Overview")
Set wsAuslesenBSC_Abt = Workbooks("Risikoverfolgung07102004.xls").Worksheets("Auslesen BSC_Abt")
Set wbStandortziele = Workbooks("Template_IFD_Standortziele_04_05.xls")
ZeileAuslesen = 6
wbStandortziele.wsOverview = tbl01
For ZeileActual = 9 To 259 Step 5
ZeileLower = ZeileActual + 4
ZeileUpper = ZeileActual + 3
If wsOverview.Cells(ZeileUpper, 13) > wsOverview.Cells(ZeileLower, 13) Then
'rot
If wsOverview.Cells(ZeileActual, 13) wsOverview.Cells(ZeileActual, 13).Copy
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).PasteSpecial Paste:=xlValues
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).Select
Selection.FormatConditions.Delete
Selection.Interior.ColorIndex = 3
wsOverview.Range(wsOverview.Cells(ZeileActual, 2), wsOverview.Cells(ZeileActual, 3)).Copy
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 1).PasteSpecial Paste:=xlValues
wsOverview.Cells(ZeileActual, 5).Copy
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 3).PasteSpecial Paste:=xlValues
'Auslesen der sheets erst über Auflösung der Zellverbindung mgl.
ws9.Activate
ws9.Range("I36:R36").Select
With Selection
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ws9.Range("I36,M36,S36,T36").Copy
wsAuslesenBSC_Abt.Range("F6").PasteSpecial Paste:=xlValues
ZeileAuslesen = ZeileAuslesen + 1
End If