nur Werte kopieren
01.11.2008 21:04:45
Pet
Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy()
Dim Schaltfläche As Button
Set Schaltfläche = ActiveSheet.Buttons.Add(250, 80, 150, 20)
With Schaltfläche
.Caption = "Copy Filter"
.OnAction = "Copy"
End With
Set Schaltfläche = Nothing
End Sub
Sub Copy()
Tabelle1.AutoFilter.Range.Copy Destination:=Tabelle5.Cells(4, 1)
End Sub
