Sorry, dass ich das Thema noch einmal einstelle. Ich hatte am 06. das Thema eingestellt und auch eine Antwort bekommen. Das Makro funktioniert leider nicht, sondern bringt eine Fehlermeldung.
Ich stelle noch einmal den kompletten Text ein, vielleicht hat ja jemand Zeit mal drüber zu schauen.
Folgendes Problem. Ich habe in einer Exceldatei 12 Blätter (Shett 1-12)
In allen Blättern stehen in folgenden Zellen, folgende Werte
B4:B48 = Name
C4:C48 = Vorname
F4:F48 = Zahl
G4:G48 = Zahl
Im Blatt 14 möchte ich beginnend ab der Zelle B2 alle diese Einträge haben, sortiert nach der Zahl welche im Bereich "G" steht, mit der größten beginnend.
Vorschlag:
Sub Sammeln()
For i = 1 To 12
Bereich = Union(Worksheets(i).Range("B4:C48"), Worksheets(i).Range("F4:G48"))
Bereich.Copy Destination:=Worksheets(14).Cells((i - 1) * 45 + 2, 2)
Next i
End Sub
Hier kommt dann ein Laufzeitfehler:
Bereich.Copy Destination:=Worksheets(14).Cells((i - 1) * 45 + 2, 2)
mit der Fehlermeldung Objekt fehlt.
Danke für eure Bemühungen...