Range("C9:C21").Value
09.02.2014 04:07:46
Benedikt
Kann mir bitte jemand helfen
Mit
Range("C9:C21").Copy
wksOfferte.Cells(iRowT, 3).PasteSpecial Paste:=xlValues
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row
wird der kopierte Bereich C9:C21 ins Arbeitsblatt Offerte eingefügt. Funktioniert.(Danke an Hans Herber)
Da ich immer noch auf der Suche zum Unterbinden des Bildschirmzuckeln bin, möchte ich es so versuchen (Dank an Ransi):
wksOfferte.Cells(iRowT, 3) = Range("C9:C21").Value
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row
Hier wird leider nur der Inhalt von C9 eingefügt, von C10 bis C21 will niemand etwas wissen. Was funktioniert nicht?
Nachfolgend noch grösserer Codeausschnitt
Sub Test()
Dim wkb As Workbook
Dim wksOfferte As Worksheet, wksTitle As Worksheet
Dim iRowT As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
Set wkb = Workbooks("Tempoff.xlsm")
Set wksOfferte = wkb.Worksheets("Offerte")
Set wksTitle = wkb.Worksheets("Titel")
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row + 2
If iRowT Grüsse Benedikt