---

ZeilenzusammenfassenmitBildern.zip

Hallo zusammen,

ich habe ein Frage, wie kann man verschiedene Exceltabellenblätter worin auch Bilder sind automatisch zusammenfassen  am besten mit Makro.

Vielen, vielen dank.

mfg

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo UGMANX,

geht bestimmt - nur nicht "mal eben schnell", mit Ausrichten usw. . Hast Du diesen Beitrag und - noch besser - den hier schon gesehen? Besonders im zweiten könnte was nützliches dabei sein...

Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

N'Abend zusammen,
weil ich nach Samstagsarbeit ein Erfolgserlebnis brauchte und außerdem so ungelöste threads nich mag, mal ins Unsaubere:

Code:

---

Option Explicit
Public Sub ZFS()
Dim i As Integer
Dim sht As Worksheet
i = 1
    Sheets.Add.Name = "ZFS"
    For Each sht In ThisWorkbook.Worksheets
        If sht.Index > 1 Then
            sht.Columns(1).Copy
            Sheets(1).Columns(i).Activate
            ActiveSheet.Paste
            i = i + 1
        End If
    Next
    Sheets(2).Activate
    Sheets(2).Rows("1:1000").Select
    Selection.Copy
    Sheets(1).Activate
    Sheets(1).Rows("1:1000").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

---

basierend auf Deiner bsp-mappe, heißt Daten werden nur aus den A-Spalten kopiert (von allen vorhandenen Blättern), Zeilenhöhenanpassung ist auf Zeilen 1:1000 beschränkt, keine Fehlerabfangung, und die Selektiererei ist auch noch nicht komplett beseitigt, aber das kannst Du ja alles selber hübsch machen ; )
Schönes WE !

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP