zur zeit benutze ich folgendes macro:
Private Sub CommandButton1_Click()
Dim i
With Cells(Rows.Count, "ae").End(xlUp)
.Offset(-1, 0).Resize(2).EntireRow.Copy
For i = 0 To 8 Step 2
.Offset(1 + i, 1 - .Column).PasteSpecial xlPasteAll
Next i
End With
End Sub
kann mir jemand dabei helfen dieses macro so umzuschreiben das es immer ausgeführt wird wenn in spalte ae eine 10 steht? zur zeit wird es immer bei jeden wert in spalte ae ausgeführt.habt schon mal besten dank für euer Interesse.
mfg thomas