copy and paste

Question

Hallo,

nach Ausführen des paste-Befehls ist der Bereich A1:E1 noch "markiert". Ich möchte den Curser aber nur ein Feld nach rechts auf F1 rücken. Habe das mit selection.offset(0,1).select versucht. Das fuktioniert aber nicht, weil dann der ganze vorher markierte Bereich nach rechts verschoben wird....??
Gruß Andreas

Answer 1

Hallo Andreas,

vielleichrt
Application.CutCopyMode = False

Gruß Hajo

Answer 2

Hallo Andreas,

Range("F1").select

müsste doch reichen?

Gruß
Rainer

Answer 3

Hallo ihr Beiden,

Application.CutCopyMode = False hatte ich schon versucht, reicht aber nicht.
Range("F1"). select würde gehen, aber ich brauch eine variable Formel, da der Befehl in einer Schleife steht und sich die Reihe nach jedem Durchlauf erhöht.
Ich möchte im Prinzip "variabel" eine Zelle nach rechts.
A.

Answer 4

variable.orffset(0,1)
mehr geht nicht, was wohl daran liegt das ich den Code nicht sehe.

Gruß Hajo

Answer 5

Hallo,

hier noch einmal der Code-Auszug zum besseren Verständnis:
...
For n = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If kname = Cells(n, 1) Then
Range(Cells(n, 1), Cells(n, 7)).Copy

Sheets("Trainingszeiten").Select

Selection.PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=True
Selection.Offset(0, 1).Select <----- das funktioniert nicht mehr
ActiveCell = Datei

Selection.Offset(1, 0).Select
End If
Sheets(Datei).Select
Next
....
wie gesagt, nach dem paste-Befehl bleibt der Einfügebereich markiert, so dass ich mit
Selection.Offset(0, 1).Select den ganzen Bereich nach rechts verschiebe anstatt den Cursor nur um eine Zelle nach rechts zu bewegen...??

Answer 6

warum offset?

Gruß Hajo

Answer 7

es muss nicht Offset sein....was ginge denn noch?

Answer 8

kein select

Gruß hajo

Answer 9

ermiitle die Letzte Zeile in Tabelle Sheets("Trainingszeiten") und bemnutze diese Information.

Gruß Hajo

Answer 10

der komplette Code sollte wohl so aussehen.

'Option Explicit

Sub Kopie()
Dim LoLetzte As Long
For n = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If kname = Cells(n, 1) Then
Range(Cells(n, 1), Cells(n, 7)).Copy
With Sheets("Trainingszeiten")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(LoLetzte, 1).PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=True
.Cells(LoLetzte, 1) = Datei
End With
End If
Next
End Sub

Gruß Hajo