Leere Zeilen ausblenden und verbleibende Zeilen in die Zwischenablage kopieren

[Absoluter Anfänger]

Hallo, ich habe es nach einigen Fehlschlägen geschafft, dass ich ich auf Knopfdruck in einer Tabelle leere Zeilen ausgeblendet bekomme. 
Nun würde ich das ganze gern noch erweitern, indem die leeren Zeilen ausgeblendet werden UND die restlichen gefüllten Zeilen (Spalte C -L ) in die Zwischenablage kopiert werden.

Kann mir bitte jemand helfen? 

---

[Absoluter Anfänger]

Aktuell nutze ich folgendes zum Ausblenden der leeren Zellen: 


Public Sub Zeilen_ausblenden()
Application.ScreenUpdating = False ' Bildschirmaktualisierung stoppen für bessere Performance
For i = 3 To 100
If Cells(i, 3).Value = 0 Then
Rows(i).Hidden = True ' Zeile ausblenden, wenn die Zelle leer ist
End If
Next i
Application.ScreenUpdating = True ' Bildschirmaktualisierung wieder aktivieren
Range("A1").Select ' Zurück zur Zelle A1 springen
End Sub

[BigJane]

Hi,

erfüllen diese beiden Zeilen nicht schon deinen Zweck? Also ich meine deine Schleife und Co. kannst du dir vermutlich komplett sparen.

Code:

Sub Test()
Range("C1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Range(Range("C1"), Range("C1:L100").SpecialCells(xlCellTypeLastCell)).SpecialCells(xlCellTypeVisible).Copy
End Sub

[Klaus-Dieter]

Hallo,

da du dich ja selbst als Anfänger bezeichnest, mal der Hinweis, dass es in Listen keine leeren Zeilen geben darf. Von daher ist es der falsche Ansatz, diese auszublenden. Markiere den vollständigen Listenbereich und sortiere ihn nach irgend einem Kriterium, dann sind die leeren Zeilen weg, alles andere ist Murks.