ich möchte mit meinem Code Daten aus anderen Tabellen in eine kopieren. Dazu nutze ich ExecuteExcel4Macro. Funktioniert sehr gut. Problem: ich würde gerne auch die Formatierungen mit kopieren. Geht das irgendwie ohne die Quell-Arbeitsmappen zu öffnen?
Sub Tabelle_fuellen()
Dim Adresse As String
Dim QuellZeile As Integer
Dim ZielZeile As Integer
Dim Spalte As Integer
Dim Wert As Variant
Dim QuellenNr As Integer
QuellenNr = 2
Adresse = Worksheets("Quellen").Cells(QuellenNr, 4).Value
Spalte = 2
QuellZeile = 7
ZielZeile = 7
'Loop durch Quelltabellen bis Adresse leer
Do Until Adresse = Empty
'Loop durch Quelltabelle bis "Eintrag" leer
Do Until Spalte = 3 And Wert = Empty
'Zelle aus Quelltabelle kopieren
Wert = ExecuteExcel4Macro(Adresse & Cells(QuellZeile, Spalte).Address(ReferenceStyle:= _
_
xlR1C1))
If Wert = Empty Then
Cells(ZielZeile, Spalte).Value = ""
Else
Cells(ZielZeile, Spalte).Value = Wert
End If
'nächste Zelle oder Zeile
If Spalte = 14 Then
Spalte = 2
QuellZeile = QuellZeile + 1
ZielZeile = ZielZeile + 1
Cells(ZielZeile, 1).EntireRow.Insert
Else
Spalte = Spalte + 1
End If
Loop
'nächste Quelle
QuellenNr = QuellenNr + 1
Adresse = Worksheets("Quellen").Cells(QuellenNr, 4).Value
QuellZeile = 7
Wert = "platzhalter"
Loop
'letzte hinzugefefügte (leere) Zeile löschen
Cells(ZielZeile, 1).EntireRow.Delete
End Sub
Danke für eure Hilfe!
Fabian