Eine Zelle nach unten kopieren
14.01.2008 12:22:03
Herbert
Ich ergänze mit einer Userform Einträge in einer Liste (Spalte A:B), das klappt. Jetzt möchte ich nach dem Eintrag die Formel in der Spalte C der darüberliegenden Zeile nach unten kopieren und bekomme einen Fehler. Kann mir jemand helfen?
Danke im Voraus
Gruß Herbert
Private Sub cmdDazu_Click()
Dim wks As Worksheet, iRow As Integer, iCol As Integer
Set wks = ThisWorkbook.Worksheets("Liste")
With wks
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For iCol = 1 To 2
.Cells(iRow, iCol) = Controls("TextBox" & iCol).Text
Next iCol
End With
Range(iRow - 1, 3).Copy _
Destination:=Range(iRow, 3)
Application.CutCopyMode = False
End Sub