Zwei Quellen zusammenführen

[Klaus-Dieter]

Hallo,

ich bin an deinem Problem dran ... da ich nicht versiert bin, brauche ich noch etwas.

OK, dann bin ich raus, keinen Bock auf möglicherweise unnötige Arbeit.

[marose67]

Hallo Klaus - Dieter,

ich hätte eher gedacht, dass versierte Mitglieder weiter helfen. Also beschimpft mich einfach für diesen Code:

Option Explicit

Sub uebertrag()
    Dim i As Variant
    Dim loletzte As Long
    Application.ScreenUpdating = False
        loletzte = Worksheets("Zusammenfassung").Cells(Rows.Count).End(xlUp).Row + 1
        Worksheets("Quelle 1").UsedRange.Copy
        Worksheets("Zusammenfassung").Range("B" & loletzte).PasteSpecial
        Worksheets("Quelle 2").UsedRange.Copy
        loletzte = Worksheets("Zusammenfassung").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
        Worksheets("Zusammenfassung").Range("B" & loletzte).PasteSpecial
        Worksheets("Zusammenfassung").Rows(loletzte).Delete
    Application.ScreenUpdating = True
End Sub

Gruß
Marcus

[DieMarie]

Huhu,

sorry - aber ich musste nochmal eine zweite Beispieldatei bauen, da es doch nicht ganz so "einfach" war.


  Beispiel 1 .xlsx (Größe: 46,86 KB / Downloads: 20)


Es sollen nur die rot markierten Überschriften aus den Quellen gezogen werden. 

Bitte noch aufpassen - je nach dem, welche Einheit man auswählt auf dem Quellblatt muss es in der Zusammenfassung in unterschiedliche "Tabellen" eingetragen werden. 


Ich habe beispielhaft 2 verschiedene Einheiten eingepflegt - es gibt aber noch mehr.


PS: Wir nutzen hier alle Office 365. Die Datei wird aber an verschiedene Adressaten verteilt - es muss bei allen funktionieren ohne PQ extra zu aktivieren oder Add-Ons zu installieren.

[marose67]

dann wünsche ich dir für die Zukunft viel Glück. Ich bin jetzt raus. 1 Stunde für die Katze, denn solange habe ich für den Code gebraucht, da ich wieder alles neu erlernen muss.

[Klaus-Dieter]

Hallo Marie,

was ich da jetzt sehe, bestärkt mich in meiner ersten Aussage. Alle Daten sollten in einer Liste gepflegt werden. Daraus kann man dann Auswertungen nach optischen Gesichtspunkten erstellen, die ihre daten aus der Gesamtliste ziehen. Deine Listen "Quelle 1" und "Quelle 2" lassen sich aus meiner Sicht nicht mit vertretbarem Aufwand bearbeiten.

@ Markus:

1 Stunde für die Katze, denn solange habe ich für den Code gebraucht, da ich wieder alles neu erlernen muss.

das hättest du dir ersparen können, ich hatte unter #6 ja schon die Erstellung eines Makros angeboten. Niemand hatte dich genötigt, da einzusteigen.

[marose67]

@Klaus-Dieter,

ich schreibe aber nicht erst mal 4 Kommentare ohne eine Lösung anzubieten. Das sehe ich bei Dir ständig. Dass Du know how hast, dass weiß ich. Wenn aber nur Kommentare kommen, dann fange ich an zu arbeiten.

Gruß
Marcus

[DieMarie]

Ich baue gleich nochmal eine neue Beispieldatei, weil sich noch etwas geändert hat. 

Entschuldige marose67. Das wollte ich nicht. Allerdings habe ich bereits um 11:XX Uhr geshcrieben, dass sich noch etwas ändert.


Ich würde mich weiterhin freuen, wenn mir jemand helfen kann.
Zu sagen, dass man es doch gleich vorne eingeben soll ist dabei keine große Hilfe.

[marose67]

Danke, dass Du auf die Uhrzeit achtest. Habe ich also länger gebraucht. Schande über mich.
Du hast jetzt einen Ansatz und siehst wie es klappen könnte. Wie gesagt ... alles Gute!
Gruß
Marcus

[Kuwer]

Hallo Marcus,

1 Stunde für die Katze, denn solange habe ich für den Code gebraucht, da ich wieder alles neu erlernen muss.

Aber nur, wenn Du dabei nichts gelernt hast.

Gruß Uwe

[marose67]

Hallo Uwe ...
Das habe ich dadurch ...

Lg Marcus