Automatisches Einfügen der Werte
10.09.2005 11:21:14
Gottschi
zerbreche mir schon seit einer Weile den Kopf. Wie kann ich diesen Code abändern, damit in der Zieltabelle nur die kopierten Werte eingefügt werden?
Läuft alles über eine normale Schaltfläche...
Sub Dateneingabe_Schaltfläche7_BeiKlick()
Dim Z1 As Integer, Z2 As Integer
Z2 = 5
For Z1 = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(Z1, 21) = "1. Herren" Then
Range(Cells(Z1, 2), Cells(Z1, 4)).Copy Destination:=Sheets("Druck1").Cells(Z2, 1)
Range(Cells(Z1, 35), Cells(Z1, 58)).Copy Destination:=Sheets("Druck1").Cells(Z2, 4)
Z2 = Z2 + 1
End If
Next Z1
End Sub
Danke schonmal im Voraus
Gruß Gottschi
Anzeige