aus mehreren Blättern in eins kopieren, Zielbereich autom. festlegen
13.11.2020 19:11:46
Dorit
Ich arbeite immer noch an meiner Vegetationstabelle und habe nun versucht, ein Makro zu schreiben, mit der ich aus jedem angelegten, nummerierten Tabellenblatt (mit Ausnahmen) jeweils die gleichen 2 Zellen auslesen kann und deren Inhalte in eine Sammeltabelle (Tabelle2) kopieren kann. Dort sollen sie jeweils in Spalte F und G auftauchen. Die Zeile dagegen soll durch die Nummer, die das Tabellenblatt trägt, aus dem sie ursprünglich rauskopiert sind, bestimmt werden.
So sieht mein kläglicher Versuch aus:
Sub WstUn()
Dim wks As Worksheet
For Each wks In Worksheets
Worksheets(wks.Name).Activate
If wks.Name "Tabelle1" And wks.Name "Arten" _
And wks.Name "AGs & VFs" And wks.Name "blank" _
And wks.Name "Übersicht" Then
Range("B70,C70").Select
Selection.Copy
Sheets("Tabelle2").Select
wks.Cells ("F, Name")
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next wks
Er funktioniert nicht.
Hier habe ich die Tabelle mal hochgeladen: https://www.herber.de/bbs/user/141541.xlsm
Ich würde mich voll über eine Korrektur freuen.
Liebe Grüße,
Dorit