Office: Excel Macro durch Sheets springen und informationen sammeln?

Frohes Neues Liebe Leute,


Vielleicht kann mir wer helfen, ich komm hier einfach nicht mehr weiter.. L


Ich versuche aktuell ein Macro zu schreiben das durch die offenen Sheets in einem Workbook looped und informationen sammelt und sie auf der ersten seite ausgibt. (sowas wie ein inhaltsverzeichnis...)


Meine erste Seite heißt immer „Collection“ und die letzte „Last“ (wobei diese ausgelassen werden sollte).


Aktuell komm ich soweit, hier werden nun alle in A1 abgelegt, aber wirklich das Gelbe vom Ei ist das jetzt nicht.


Bräuchte es eher so „D9“ – „D10“ – „G9“ – „G10“ - „D12“ – „D11“ und das in „Collection“ ab „C16“ untereinander .. also C17. C18 usw..


Hoffe jemand kann mich hier unterstützen, ich glaub sonst wird das nichts mit mir.. J


Sub Button1_Click()


Dim wkst As Worksheet

Dim row As Long

row = 1

For Each wkst In ActiveWorkbook.Worksheets

If wkst.Name <> "COLLECTION" Then

Worksheets("COLLECTION").Cells(row, 1) = wkst.Range("D9")

row = row + 1

End If

Next


End Sub

 

Ich konnte den Wunsch in Deiner Datei nicht sehern.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Worksheets("REPORT COLLECTION").Cells(row, 1) = wkst.Range("D9").Value & " - " & wkst.Range("D10").Value & " - " & wkst.Range("G9").Value & " - " & wkst.Range("G10").Value & " - " & wkst.Range("D12").Value & " - " & wkst.Range("D11").Value

 

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Bitte entschuldige Hajo, fühl dich bitte nicht angegriffen, das hatte sich nur total überschnitten.

Ich hatte nur den Code schnippsel gepostet das es so zumindest mit der Sammlung funktioniert, hab jetzt erst deinen Text gesehen, aber verstehe natürlich das du von solchen unerfahrenen Posts genervt bist, bekomm es hier ja tatsächlich nicht mal hier einen Code ordentlich zu Posten

Code:

..

Anbei die Ausgangs Situation, soweit klappt es..

Was ich jetzt noch nicht hin bekommen hab ist das er "LAST" überspringt bzw. auslässt und das er dann das ganze ab "C16" und nicht "A1" kopiert. In einer Perfekten Welt werde ich noch versuchen Verlinkungen zu den Taps zu machen, das man also wie ein Hyperlink drauf klicken kann und das Tap gewechselt wird. Die Namen der Sheets sind immer unterschiedlich außer "Collection" & "Last"..

 

Code:

Dim wkst As Worksheet
Dim row As Long
row = 20

For Each wkst In ActiveWorkbook.Worksheets

   If wkst.Name <> "COLLECTION" Then
      Worksheets("COLLECTION").Cells(row, 1) = wkst.Range("D9").Value & " - " & wkst.Range("D10").Value & " - " & wkst.Range("G9").Value & " - " & wkst.Range("G10").Value & " - " & wkst.Range("D12").Value & " - " & wkst.Range("D11").Value

      row = row + 2
   
   End If
Next