title image


Smiley Re: VBA Gefilterte Daten kopiern / Wechselnde Bereiche
Guten morgen,

das geht dann so:



Sub CopyFilter()



Dim I As Integer

Dim NaechsteLeereZeile As Long





NaechsteLeereZeile = Worksheets("Test").Cells(Rows.Count, 1).End(xlUp).Row

For I = 2 To 5

If Rows(I).Hidden = False Then

NaechsteLeereZeile = NaechsteLeereZeile + 1

Range("A" & I & ":D" & I).Copy Destination:=Worksheets("Test").Range("A" & NaechsteLeereZeile)

End If

Next I



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: