Datum

Titel

19.04.2024 14:04:05

PDF per VBA ausgeben - Seitenskalierung

19.04.2024 13:58:02

Set Worksheet geht im O365 aber im Excel 2016 nicht

19.04.2024 13:49:38

Per Kopfdruck als pdf speichern und Mail erstellen

19.04.2024 12:58:59

Daten einfügen aus anderem Sheet

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1192to1196

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Mehrere Blätter auswerten

Forumthread: Mehrere Blätter auswerten
5 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

kleinerfinger

Hallo und noch einen schönen Tag!
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.
Ich hoffe, ich konnte mich verständlich machen.
Danke für eure Bemühungen...

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Mehrere Blätter auswerten

mpb
AW: Mehrere Blätter auswerten

kleinerfinger
AW: Mehrere Blätter auswerten

mpb
AW: Mehrere Blätter auswerten

Gerd
Asche auf's Haupt...

mpb

AW: Mehrere Blätter auswerten

06.01.2011 18:45:07

mpb

Hallo,
versuche mal

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

Gruß
Martin

AW: Mehrere Blätter auswerten

07.01.2011 05:53:39

kleinerfinger

Danke für deine Antwort.
Funktioniert so nicht. Ich habe folgendes gemacht:
Eine Schaltfläche eingefügt und dieser das Makro eingefügt. Das sieht dann so aus:

Sub Schaltfläche2_KlickenSieAuf()
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.

AW: Mehrere Blätter auswerten

08.01.2011 12:43:45

mpb

Hallo,
ich habe das Makro getestet gehabt, es funktioniert. Deine Fehlermeldung kann ich nicht nachvollziehen. Ich sehe folgende Möglichkeiten:
1. Hast Du überhaupt ein 14. Tabellenblatt in der Datei, in das die Daten kopiert werden?
2. Wenn ja, teste den Code, ohne ihn einer Schaltfläche zuzuweisen.
3. Lade die Datei hoch, damit ich Deine Lösung überprüfen kann. Ansonsten ist das stochern im Nebel.
Gruß
Martin

AW: Mehrere Blätter auswerten

08.01.2011 13:19:49

Gerd

Hallo,
da war noch ein Flüchtigkeitsfehler drin.

Sub Schaltfläche2_KlickenSieAuf()
Dim Bereich As Range
For i = 1 To 12
 Set 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

Gruß Gerd

Asche auf's Haupt...

08.01.2011 13:35:27

mpb

... das war ein Übertragungsfehler von mir.
Danke Gerd!