Hallo
, der Aufbau:
Im ersten Sheet gibt es mehrere Zeilen mit Inhalt. Hier werden dann die Daten ausgewählt. Es gibt 4 Themenbereiche und in jedem habe ich ein "Antwortmöglichkeit": ja, nein, teilweise, nicht zutreffend.
Und so habe ich mehrere Sheets.
Bsp.: 1-ja , 1-nein, 1-teilweise, 1-nichtzutreffen, 2-ja, 2-nein usw.
In diesen Sheets werden die entsprechenden Daten immer in die Spalte A ab Zeile 3 geschrieben, d.h. in A4 ist der erste Satz enthalten und werden dann fortlaufen weiter eingefügt (A5,A6 usw). Die Anzahl der Sätze variiert, anhand der Antwortmöglichkeiten. Weitere Daten sind nicht in den Sheets enthalten.
Mit dem foglendem Befehl markiere und kopiere ich nur die Zeilen in denen was enthalten ist, das meinte ich mit sichtbaren Bereich.
With Sheets("1").Range("A:A")
.Offset(0, 0).SpecialCells(xlCellTypeVisible).Copy
End With
|