Daten aus Tabellenblättern auslesen
17.06.2008 13:11:00
Lars
um eine Zuammenfassung automatisch zu erstellen sollen aus beliebig vielen (nach der gleichen Vorlage erstellten) Tabellenblättern zunächst die Blattnamen und dann die Summen ausgelesen werden. Diese Daten sollen fix ab der Zelle A17 im Blatt "Monatsübersicht" nach unten eingetragen werden. Für eine rudimentäre Auswahlmöglichkeit wird zu Beginn das als Beginn zu nehmende Tabellenblatt erfragt.
Habe das folgendermaßen gelöst:
Sub SheetsAuslesen()
Dim l As Integer
On Error GoTo fehler
l = InputBox("Auslesen ab Blatt Nr.:")
For i = l To Worksheets.Count
Range("Monatsübersicht!A17").Offset(i - l, 0) = Worksheets(i).Name
Worksheets(i).Activate
Range("Monatsübersicht!A17").Offset(i - l, 1) = Application.WorksheetFunction.VLookup(" _
Summe", Range("B1:C100"), 2, False)
Next i
Worksheets(1).Activate
fehler:
Exit Sub
End Sub
Jetzt habe ich zwei Probleme:
- nach der ersten Iterationsschleife springt VBA wieder zum Anfang der Prozedur, so dass die Inputbox auch zweimal erscheint. Dieses Verhalten ist mir völlig unverständlich...
- damit der VLookup funktioniert habe ich keinen anderen Weg gefunden, als jedes Tabellenblatt vorher zu aktivieren. Ansonsten bringt excel einen Zuordnungsfehler, weil er nicht aus dem aktiven Tabellenblatt herausgeht und somit auch den Suchbegriff nicht findet. Mein Lösungsansatz war eigentlich
...
Range(...).Offset(...) = Worksheets(i).Application.WorksheetFunction.Vlookup(...)
...,
aber das funktioniert nicht. Gibt es eine Möglichkeit, das Aktivieren jedes Blattes zu vermeiden?
Vielen Dank für jede Hilfe!
Anzeige
