Sichtbare Zellen mit Formeln von Bereich kopieren
13.08.2006 22:14:15
Bereich
ich möchte einen Bereich mit Namen "AUSWAHL" in ein 2. Sheet kopieren,
aber nur die sichtbaren Zellen und mit Formeln.
Folgendes Makro funktioniert bei mir nicht:
Sub GefilterteKopieren()
variable = Worksheets("Fragen").Range("E1").Value
Worksheets("Fragen").Range("D3:M" & variable).Name = "AUSWAHL"
Set rng = Range("AUSWAHL").SpecialCells(xlCellTypeVisible)
rng.SpecialCells(xlFormula).Copy Worksheets("FragenCopy").Range("A2")
End Sub
Kann mir jemand dabei helfen?
Für Antworten Dank im voraus
Klaus