Nichtleere Zei. einer format. Tab kop.
26.09.2020 17:11:23
Thomas
habe eine formatierte Tabelle, die einige gefüllte und einige Leerzeilen enthält. Die gefüllten Zeilen sollen in einer anderen formatierten Tabelle daneben angehängt werden.
Hier eine Musterdatei mit Makro. https://www.herber.de/bbs/user/140457.xlsm
Und hier auch nochmal das Makro zum Lesen.
Sub Kopieren()
Dim a
With Worksheets("Tabelle1")
With .ListObjects("q_1")
.DataBodyRange.Select
.Range.AutoFilter Field:=1, Criteria1:=""
a = .DataBodyRange.SpecialCells(xlCellTypeVisible)
Debug.Print LBound(a, 1), UBound(a, 1) 'Liefert 1 1
End With
End With
End Sub
Ich stehe an. Warum hat das Array a nur 1 Zeile?
Wie kann man die Aufgabe mit Zuweisen eines Arrays lösen, und wie mit range.copy? Beide Varianten sind für mich interessant.
Gruß, Thomas