Zellen "lückenlos" kopieren

Question

Hallo,
In Spalte A stehen z.B. nur in Zeile 1,4,7,13 Werte. Wie kann ich die automatisch per Formel untereinander in eine neue Spalte kopieren, ohne dass die leeren Zellen mitkopiert werden?
Danke,
Johannes

Answer 1

HAllo Johannes,

per Makro,
Option Explicit

Sub Makro3()
'
' Makro3 Makro
' Makro am 16.08.2009 von Salvatore Mariano aufgezeichnet
'

'
Columns("A:A").Copy
With Sheets("Sheet2")
.Range("A1").PasteSpecial Paste:=xlPasteValues
.Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End With
Application.CutCopyMode = False
End Sub

Gruß hajo

Answer 2

Hallo Hajo,
das ist schon sehr gut, aber ich würde die gerne in eine andere Spalte eingefügt haben, z.B. Spalte B.
Wie muss ich den Code ändern?
Danke,
Johannes

Answer 3

Hallo Johannes,

passe die Tabelle an und die Spalte, das dürfte ja nicht so schwierig sein.

Gruß Hajo

Answer 4

Hallo Hajo,

jetzt habe ich das Makro auch verstanden, dank deinem Tipp.

Vielen Dank,
Johannes

Answer 5

Hallo,
leider muss ich mich doch nochmal melden.
Es funktioniert zwar, wenn in den Zellen, die lückenlos kopiert werden sollen, direkt Werte stehen oder einfache Formeln, z.B.=B2. Ich habe eine Beispieldatei mit den Formeln, die ich verwende, hochgeladen, da funktioniert das Makro leider nicht.
Was kann man da machen?
Grüße,
Johannes

Answer 6

Hallo Johannes,

Der Dateiname sollte was mit dem Problem zu tun haben. Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test., Mappe.., Beispiel wird eine vorhandene überschrieben.

Gruß Hajo

Answer 7

Entschuldigung, hier ist sie umbenannt, und die andere gelöscht.
Grüße,
Johannes