Hallo,
ich brauche mal wieder einen kleinen Schubs in die richtige Richtung, und zwar kopiere ich Werte aus Tabelle 1 und füge diese in Tabelle 2 ein. Dort muss der Wert allerdings durch 1.000 geteilt werden.
Momentan sieht der Code für das Einfügen in Tabelle 2 wiefolgt aus:
Sheets("RohDetail").Select
'Spalte C (3) - Artikelnummer
Range("0, 3").Select
ActiveCell.Offset(0, 21).Activate
' Einfügen des Wertes
ActiveSheet.Paste
Application.CutCopyMode = False
' Tabelle 2 - Spalte J = 7 Spalten weiter, eingefügter Wert in Spalte X (21)
Range(0, 7).Select = Cells(0, 21) / 1000
Range(0, 7) = Range(0, 7).Value
Bis zum Einfügen macht er alles, wenn er den Wert durch 1.000 teilen und in die Spalte 7 einfügen soll, passiert leider nichts.
Könnt ihr mir einen Hinweis geben?
Danke. Susi