keine leere Zellen kopieren

[PapaVonZwei]

hallo an alle

ich versuche lücken aus C5:35 zu entfernen aber A5:35 sind alle belegt
in C5:35 ind lücken dann auch D und E
F5:35 alle belegt

nun will ich lückenlos in ein anders Arbeits Blatt in A11:E35 reincopiern.
ich bkomme das hin,das C lückenlos aber nicht das dann auch A,C,D,E, und F  mit copiert wird. und F43 auch in das andere Arbeitsblatt in E36.

ist das möglich was ich vorhabe ?
habe es im Modul unter copiere.
mein ArbeitsBlattnenne ich absence wo alles reincopiert werden soll 
hoffe ich habe es eieinigerrmasse gut beschrieben

mfg Thomas

[rate mit]

Hallo,

dann versuche es mal hiermit:

Spalte(n) mit Leerzellen ohne Lücken auflisten

[Andreas Killer]

Hallo Thomas,

die einfachste Variante ist einen Autofilter zu setzen und die leeren Zeilen wegzufiltern. Dann markierst Du einfach alle Zeilen, Copy & Paste in das andere Arbeitsblatt.

Bei gesetztem Autofilter übergeht Excel die ausgeblendeten Zeilen.

Andreas.

[RPP63]

Moin!
Alternativ ein kleines Makro:

Code:

Sub Versiv()
Dim i
Worksheets("Tabelle1").Copy after:=Worksheets(Worksheets.Count)
On Error Resume Next
For i = 1 To Range("XFD1").End(xlToLeft).Column
  Columns(i).SpecialCells(xlCellTypeBlanks).Delete xlUp
Next
End Sub

Gruß Ralf

[PapaVonZwei]

Hallo 
Danke erstmal für die Antworten

das ist nicht so wie ich es wollte , 
nur die Zellen in C die Inhalt haben sollen dann mit den anderen Zellen in das Arbeitsbltt copiert werden und wenn in Zell C leer dann nicht

gruss thomas

[schauan]

Hallöchen,

also, die Antwort von Andreas (#3) macht genau das, was Du beschrieben hast. Es werden nur die nach dem Filtern sichtbaren Zeilen kopiert und eingefügt.

[RPP63]

Schon erstaunlich, was ihr so alles aus dem Kauderwelsch herauslesen könnt:

aber A5:35 sind alle belegt
in C5:35 ind lücken dann auch D und E
F5:35 alle belegt

Was ist in Spalte B?
Muss wohl wegfallen, weil A, C, D, E, F (Blatt 1) sind 5 Spalten,
so wie im Ziel (Blatt 2) A:E

Jetzt wird es "schwieriger":
Die (gefüllten) 32 Zeilen (A5:A36) sollen in 25 Zeilen (A11:E35) gequetscht werden.

Und bei folgendem Satz hört mein Sprachverständnis auf:

nun will ich lückenlos in ein anders Arbeits Blatt in A11:E35 reincopiern.
ich bkomme das hin,das C lückenlos aber nicht das dann auch A,C,D,E, und F  mit copiert wird. und F43 auch in das andere Arbeitsblatt in E36.

@Thomas:
Musterdatei mit Soll und Ist?

Gruß Ralf

[PapaVonZwei]

guten Tag

sorry es ist schwer es so zu schreiben was ich will

in C5:35 sind lücken die weg sollen.
wenn in c5 was steht soll die komplette Zeile A ,C D,E und F in mein angelegtes Blatt absence copiert werden.
da habe ich eine Tabell A:11 bis E:35 wo die daten dann reinsollen.
mfg Thomas

[slowboarder]

Hi
so vielleicht.

Code:

Sub test()
Intersect(Sheets("Tabelle1").Range("A:A,C:F"), Sheets("Tabelle1").Range("C5:C35").SpecialCells(xlCellTypeConstants, 3).EntireRow).Copy
Sheets("Tabelle2").Range("A11").PasteSpecial xlPasteAll
End Sub

Gruß Daniel

[PapaVonZwei]

laufzeitfehler ´9´
index außerhalb des gültigen Bereichs
ps
habe 12 blätter gilt das immer für das aktuelle Blatt ? ws ich bearbeiten will
gruß Thomas