Schleife
25.11.2008 18:14:23
WOP
ich würde gerne eine Schleife über alle Worksheets ablaufen lassen, allerdings sollte er den Wert nicht immer die gleiche Zelle schreiben Cells(I, 3) => siehe unten. Hat jemand dazu eine Idee?
For Each WS In ActiveWorkbook.Worksheets
If WS.Name "Konsolidierung" Then
For I = 9 To 16 'Alle Aktiven Bilanzposten
WSKonsolid.Cells(I, 3).Value = Application.WorksheetFunction.VLookup(WSKonsolid.Cells(I, 1). _
_
Value, WS.Range("A9:C180"), 3, False)
Next I
For I = 21 To 32 ' Alle Passiven Bilanzposten
WSKonsolid.Cells(I, 3).Value = Application.WorksheetFunction.VLookup(WSKonsolid.Cells(I, 1). _
_
Value, WS.Range("A9:C180"), 3, False)
Next I
For I = 45 To 57 ' Für alle Aufwendungen
WSKonsolid.Cells(I, 3).Value = Application.WorksheetFunction.VLookup(WSKonsolid.Cells(I, 1). _
_
Value, WS.Range("A9:C180"), 3, False)
Next I
For I = 62 To 65 ' Für alle Erträge
WSKonsolid.Cells(I, 3).Value = Application.WorksheetFunction.VLookup(WSKonsolid.Cells(I, 1). _
_
Value, WS.Range("A9:C180"), 3, False)
Next I
End If
Next WS
Vielen Dank im Voraus
WOP