nur Werte übertragen
30.11.2002 08:40:35
Harald S
nun zu meinem Problem
Habe ein modul erstellt, um ein Tabellenblatt auf ein anderes zu übertragen(nur werte). dieses Modul überträgt mir leider nur
die Spalte A. kann mir jemand erklären was ich hier falsch mache?
Sub übertragen()
Dim tab1 As Worksheet
Dim tab2 As Worksheet
Dim i As Integer
Dim y As Integer
Set tab1 = Worksheets("liste")
Set tab2 = Worksheets("Werte")
For i = 1 To tab1.UsedRange.Rows.Count
y = y + 1
tab2.Cells(i, 1) = tab1.Cells(y, 1)
Next i
End Sub
Grüsse Harald S