Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Eine Zelle nach unten kopieren
14.01.2008 12:22:03
Herbert
Hallo Forum
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


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eine Zelle nach unten kopieren
14.01.2008 12:31:00
Rudi
Hallo,
Cells(iRow, 3).FormulaR1C1 = Cells(iRow - 1, 3).FormulaR1C1
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Eine Zelle nach unten kopieren
14.01.2008 12:40:49
Alex
oder so:

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) = UserForm1.Controls("TextBox" & iCol).Text
Next iCol
.Cells(iRow, 3).FormulaR1C1 = .Cells(iRow - 1, 3).FormulaR1C1
Application.CutCopyMode = False
End With
End Sub


Anzeige
Vielen Dank Euch Beiden das wars o.T.
14.01.2008 13:02:30
Herbert

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige