Zitat:
wie kann ich das programmieren um diese eine zeile auszulassen ?
|
Entweder Range entsprechend anpassen und 2x Kopieren (oberhalb und unterhalb der Überschrift) oder alles Kopieren und dann in der Zielspalte die entsprechende Überschrift selektieren und mittels 'Selection.Delete Shift:=xlUp' löschen.
Edit: Blödsinn geschrieben, vergiss es. Mit z.b. 'Range("A1:A6,A8:A11").Select', 'Selection.Copy', ... gehts leichter.
Hint: Mach Makro->Aufzeichnen, führ die Aktionen durch, die du haben willst, Stoppe die Aufzeichnung und schau dir den Code im Visual Basic Editor an.