Bemerkungen aus verschiedenen Tabellenblätter zusammenführen?

Hallo Freunde,

ist es möglich Texte aus verschiedenen Tabellenblättern in ein Tabellenblatt zusammenzuführen (Automatisch).

Tabellenblatt 1: Bemerkungen A40:45 und Tabellenblatt 2 : Bemerkungen A35:47 und A56:65 in Tabellenblatt 5: B95:.... .

Sind keine Bemerkungen im Tabellenblatt 1 sollen die Bemerkungen von dem Tabellenblatt 2 in Tabellenblatt 5 in B95 Kopiert werden (keine Leerzeile).

Danke im Voraus

Comments

[hannes1806]

Hallo, sind immer die selben Zellen betroffen, oder sind es immer andere Zellen, die bestimmte Bedingungen erfüllen müssen?

[86hesse]

Hallo hannes1806,

es sind immer die gleichen Zellen aber in unterschiedlichen Tabellenblätter.

mfg

Answer 1

[hannes1806]

Grundsätzlich lässt sich eine Kopierfunktion nicht mit Formeln, sondern nur mit Makros realisieren.
Die Zeilen 2-4 sind der Steuerbereich. Der sagt dem Makro welche Bereiche es durchsuchen soll.

Der Code geht so:

Sub Sammeln()

n = 7 'Startzeile für Ergebnis

Sheets("Zieltabelle").Range("A" & n & ":A100").ClearContents 'alte Ergebnisse löschen

For Zeile = 2 To 4 'Zeilen für die Steuerung

  If Sheets("Zieltabelle").Cells(Zeile, 2) <> 0 Then

    Tabelle = Sheets("Zieltabelle").Cells(Zeile, 2)

    Spalte = Sheets("Zieltabelle").Cells(Zeile, 3).Value

    von = Sheets("Zieltabelle").Cells(Zeile, 4).Value

    bis = Sheets("Zieltabelle").Cells(Zeile, 5).Value

    For y = von To bis

      Inhalt = Sheets(Tabelle).Cells(y, Spalte).Value

      If Inhalt <> 0 Then

        Sheets("Zieltabelle").Cells(n, 1) = Inhalt

        n = n + 1

      End If

    Next y

  End If

Next Zeile

End Sub

Woher ich das weiß: eigene Erfahrung – Faulheit >> Neugier >> Wissen

Comments

[86hesse]

Makros müssten auch gehen, bin in VBA noch nicht wirklich perfekt.

[hannes1806]

@86hesse

Hallo, ich habe meine Antwort ergänzt.