AW: Variante mit dem Spezialfilter
24.10.2014 16:11:05
Tino
Hallo,
ok. dann machen wir es mal so, der Code schreibt die Überschriften.
Sub Beispiel()
Dim rng As Range, rngHelp As Range
Dim QuellSh As Worksheet, ZielSh As Worksheet
Dim lngRowMax&, lngColMax&
'Tabelle Quelle, evtl. anpassen
Set QuellSh = Tabelle1
'Tabelle Ziel, evtl. anpassen
Set ZielSh = Tabelle2
'Datenbereich bestimmen
'Ab A1 (=Überschrift)
'bis letzte Zeile in Spalte H
'bis letzte Spalte in Zeile 1
With QuellSh
lngRowMax = .Cells(.Rows.Count, 8).End(xlUp).Row
lngColMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rng = .Range("A1", .Cells(lngRowMax, lngColMax))
'Hilfszelle neben Datenbereich
Set rngHelp = .Cells(1, lngColMax + 1).Resize(2, 1)
End With
'Spezialfilter mit Formel in Hilfsspalte
With rng
'Formel in zweite Zelle HilfsBereich "=$H80"
rngHelp.Cells(2, 1).FormulaR1C1 = "=RC80"
'Spezialfilter anwenden
ZielSh.Range("A1").Resize(, rng.Columns.Count).Value = rng.Rows(1).Value
.AdvancedFilter xlFilterCopy, rngHelp, ZielSh.Range("A1").Resize(, rng.Columns.Count)
End With
'Hilfszelle löschen
rngHelp.Clear
End Sub
Gruß Tino