Nahtlos aneinanderkopieren verzerrt Zellen
09.10.2006 16:36:38
Bernd
folgender Code zum nahtlosen aneinanderkopieren verzerrt mir die über mehrere Spalten gehende Überschrift von Gruppe2, d.h. die Überschrift steht anschließend nur noch in Spalte A, und nicht in der verschmelzten großen Zelle.
Woran kann das liegen?
Gruss
Bernd
-----------------C-O-D-E-----(A-U-S-Z-U-G)----------------
Sub Test()
' Filtert Liste nach Gruppe1 und fügt gefilterte Liste in Blatt "Meldung" nahtlos an
Sheets("Gesamtliste").Range("A1").AutoFilter Field:=8, Criteria1:="Gruppe1"
Sheets("Gesamtliste").Range("A2:E30001").Copy _
Destination:=Sheets("Meldung").Range("A65000").End(xlUp).Offset(1, 0)
' Fügt Überschrift Gruppe2 ein
Sheets("Legende").Range("Überschrift_Gruppe2").Copy _
Destination:=Sheets("Meldung").Range("A65000").End(xlUp).Offset(1, 0)
' Filtert Liste nach Gruppe2 und fügt gefilterte Liste in Blatt "Meldung" nahtlos an
Sheets("Gesamtliste").Range("A1").AutoFilter Field:=8, Criteria1:="Gruppe2"
Sheets("Gesamtliste").Range("A2:E30001").Copy _
Destination:=Sheets("Meldung").Range("A65000").End(xlUp).Offset(1, 0)
End Sub