VBA: einfügen ab teile 570

[Koma9]

es geht, keine frage aber er soll das nicht ab zeile a570 einfügen sondern ab zeile a57. kann mir jmd helfen?

'Datum kopieren

Worksheets("Schichtmeld").Activate 'Aktiviert 1. Datei

Worksheets("Schichtmeld").Range("B" + CStr(7 + lfdnr)).Select 'Wählt die zellen mit dem Datum aus

Selection.Copy 'kopiert sie

Workbooks("Stückzahlen.xls").Worksheets("csv").Activate 'aktiviert die ziel tabelle

Range("a57" + CStr(lfdnr * 4 - 3) + ":a57" + CStr(lfdnr * 4)).Select 'wählt bereich indem datum eingetragen werden soll

ActiveSheet.Paste 'fügt datum ein

Workbooks("Stückzahlen.xls").Worksheets("csv").Range("a" + CStr(lfdnr * 4 - 3) + ":a" + CStr(lfdnr * 4)).NumberFormat = "yyyy-mm-dd" 'in vier Zellen untereinander

[mmatz]

Hi,

Versuchs mal so:

Range("a"+Cstr(57 + (lfdnr * 4 - 3))+ ":a"+Cstr(57 + (lfdnr * 4)).Select

Dein Fehler lag darin, dass Du zwei Strings verknüpft hast, und nicht die Laufende Nummer zu 57 dazu addiert.

BSP:

"57"+Cstr(1) = "571"

Cstr(57+1) = 58