AW: Tabelle variabler Länge kopieren.
28.09.2015 11:50:14
matthias
Hallo Timo,
ich nenn die unübersichtliche Tabelle einfach mal Tabelle1, die neue Tabelle2.
Diese Formel in Tabelle2 in Zelle A1 einfügen:
=WENN(Tabelle1!A1"";Tabelle1!A1;"")
Damit wird dir in Tabelle2 der Wert aus Tabelle1 angezeigt. Die Spalte in der Formel kannst du natürlich anpassen, wenn du eine andere wiedergeben willst. In B1 wird wieder diese Formel eingefügt mit der nächsten Spalte welche du dir aus Tabelle1 holen willst.
Wenn du dies für alle benötigten Spalten getan hast, kannst du alle Zellen makieren und am Punkt rechts unten an der Markierung nach unten ziehen, natürlich soweit wie du Zeilen in Tabelle1 maximal erwartest (auch wenn diese noch nicht ausgefüllt seien sollten).
Sollte deine Erwartung die 1000 Zellen übersteigen, ziehst du dich damit aber dumm und dämlich. Eine schnellere Lösung wäre dann ein Makro:
Sub Autofill()
Dim rZelle As Range, rBereich As Range, wks As Worksheet
Set wks = Sheets("Tabelle2") 'Name der neuen Tabelle
Set rBereich = wks.Range("A1:B1") 'Zellen in denen deine Formel nach unten kopiert werden soll
For Each rZelle In rBereich
rZelle.Autofill Destination:=wks.Range(rZelle, wks.Cells(Rows.Count, rZelle.Column)), Type:= _
xlFillDefault
Next rZelle
End Sub
Vorher bitte Tabellenblatt-Name und den Bereich anpassen.
lg Matthias