kopieren ausgewählter Spalten ohne Leerz

Hallo erstmal an alle,
mein Name ist Thomas und ich erstelle immer mal wieder kleine Makros als Hilfe bei meiner Arbeit.
Jedoch habe ich keine "tiefen" Kenntnisse und nutze dabei dann meist den Makrorekorder. Ab und an komme ich dann da nicht weiter und finde dann in diesem Forum meine Antworten.
Nun ist es aber soweit, dass ich zu meinem aktuellen "Problem" keine Antwort finden kann..
Ich habe eine Tabelle mit verschiedenen Tabellenblätter, unteranderem ist hier eine "Basisdatenbank" gespeichert, aus der ich dann diverse Auswertungen bzw. Informationen heraushole.. Nun ist es so, dass beim kopieren von ausgewählten Spalten auch alle leeren Zeilen darunter mit kopiert werden! Dies möchte ich verhindern.... ich habe hier eine Möglichkeit gefunden dies in einem Bereich zu realisieren:
.Range("A1:S" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
Die Umsetzung in meinem Makro zu den ausgewählten Spalten, ist mir aber nicht gelungen...
Wer kann mir helfen?
Hier das aktuelle Makro

Sub auswertungzuliefern()
' auswertungzuliefern Makro
Sheets("Auswertungstabelle").Select
Columns("A:S").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Sheets("Basisdatenbank").Select
ActiveSheet.Range("$A$1:$R$502").AutoFilter Field:=16, Criteria1:="="
Range("A:A,B:B,C:C,D:D,F:F,I:I,J:J,K:K,L:L,N:N,O:O,Q:Q").Select
Selection.Copy
Sheets("Auswertungstabelle").Select
ActiveSheet.Paste
Cells.Columns.AutoFit
Sheets("Basisdatenbank").Select
ActiveSheet.Range("$A$1:$R$502").AutoFilter Field:=16
Range("A1").Select
Sheets("Aufgabenblatt").Select
Range("A1").Select
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro5() ' Makro5 Makro ActiveSheet.Range("$A$1:$S$5602").AutoFilter Field:=16, Criteria1:="=" Range("A:A,B:B,C:C,D:D,F:F,G:G,I:I,J:J,K:K,L:L,N:N,O:O,Q:Q,S:S").Select Range("S1").Activate Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets("Auswertungstabelle").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

Hallo Thomas,
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

kopieren ausgewählter Spalten ohne Leerz

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread