VBA multiplizieren mit 1
23.09.2020 00:11:10
Norbert
folgendes Makro läuft eigentlich einwandfrei
Sub Artikelnummer_mit_1_multiplzieren()
' Artikelnummer_mit_1_multiplzieren Makro
Range("k2").Select
ActiveCell.FormulaR1C1 = "1"
Range("k2").Select
Selection.Copy
Range("K3:K50").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("y3:y50").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("am3:am50").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("am2").Select
End Sub
in den Spalten die mit 1 multipliziert werden stehen nicht immer die gleiche Anzahl an Werten. So habe ich nach dem ausführen des Makros etliche "Nullen" dastehen.
für die Optik wäre es schön wenn nur Zellen mit werten mit 1 multipliziert würden.
hoffe Ihr könnt mi helfen
Gruß
Norbert