kann mir jemand sagen warum beim folgenden code ich meine variable nicht mit dem wert belegt kriege bzw. meinwert in der zelle gelöscht wird?
ich muß ein paar zellen öfters kopieren und kriege den wert aus der tabelle nicht ins vba...
Sub kopieren()
Dim i As Integer
Worksheets("tabelle2").Range("C1").Copy
ActiveSheet.Paste Destination:=Worksheets("tabelle1").Range("A2")
Worksheets("tabelle").Range("A1").Value = i
i = i / 2
Worksheets("tabelle1").Activate
Range("A1:B7").Copy
wert = 9
For i = 3 To 1 Step -1
Cells(wert, 1).Select
ActiveSheet.Paste
wert = wert + 8
Next i
wert = 1
For i = 4 To 1 Step -1
Cells(wert, 3).Select
ActiveSheet.Paste
wert = wert + 8
Next i
End Sub
also ich muß aus a1 den wert auslesen und als i übernehmen. dann soll i geteilt werden und soll kopien auf einem blatt erstellen.
merci
henning