14.07.2015, 18:27
Hallo,
ich ziehe mir die Daten für eine Tabelle aus mehreren Tabellen mit folgenden Code. Klappt wunderbar.
Ist es möglich das auch die Formatierung der einzelnen Zellen mit übernommen wird?
Also wenn ich z. B. in Tabelle 1 eine Zelle gelb markiert habe, dass diese dann auch gelb in der Zieltabelle erscheint?
Ich hab mir schon aus diversen Foren Schnipsel rauskopiert und ausprobiert, aber das lief alles nicht so wirklich.
Vielleicht könnt Ihr mir helfen.
Gruß
Thomas
ich ziehe mir die Daten für eine Tabelle aus mehreren Tabellen mit folgenden Code. Klappt wunderbar.
Ist es möglich das auch die Formatierung der einzelnen Zellen mit übernommen wird?
Also wenn ich z. B. in Tabelle 1 eine Zelle gelb markiert habe, dass diese dann auch gelb in der Zieltabelle erscheint?
Ich hab mir schon aus diversen Foren Schnipsel rauskopiert und ausprobiert, aber das lief alles nicht so wirklich.
Vielleicht könnt Ihr mir helfen.
Gruß
Thomas
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Long
Dim varQ As Variant
If Sh.Name = "Einteilung alle Ligen" Then
Sh.Range(Sh.Cells(5, 1), Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 10)) = ""
For i = 1 To 4
With Worksheets(i)
If Len(.Cells(3, 1)) Then
varQ = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 9).Value
Else
ReDim varQ(0)
End If
End With
If UBound(varQ) Then
With Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(varQ))
.Value = Worksheets(i).Name
.Offset(, 1).Resize(, UBound(varQ, 2)).Value = varQ
End With
End If
Next i
End If
End Sub