Hallo,

weis jemand wie/ob man in dem unten stehenden Code den "Multiplikator" auch ohen Selection aus einer Zelle übergeben kann.

Würde den Multipilkator gerne aus einem UserForm bzw Inputbox übergeben.

Generell hab ich mich für diese Variante entscheiden, weil sie einfach viel schneller ausgeführt wird als eine Variante mit Schleifen und Zähler.

Ich bekomme es nur leider nicht hin den Multiplikator zu übergeben.

Option Explicit

Const sWSName_Daten = "Consolidation"
Const sWSName_mal4 = "mal4"
Const nFirstCol_Date = 1

Sub mal4()

Dim lngSpalte As Long
Dim lngZeile As Long
Dim intErsteSpalte As Integer
Dim intErsteZeile As Integer
Dim intMultiplikator As Integer
Dim lngLastRow As Long
Dim lngLastColumn As Long

Dim oWS_Daten As Worksheet
Dim oWS_mal4 As Worksheet

Set oWS_Daten = ActiveWorkbook.Worksheets(sWSName_Daten)
Set oWS_mal4 = ActiveWorkbook.Worksheets(sWSName_mal4)

intErsteZeile = 3
intErsteSpalte = 1

lngSpalte = 0
lngZeile = 0
lngSpalte = oWS_mal4.UsedRange.Columns.Count
lngZeile = oWS_mal4.UsedRange.Rows.Count


'intMultiplikator = 4

oWS_mal4.Range("S1").Select
    Selection.Copy

oWS_mal4.Range(oWS_mal4.Cells(intErsteZeile, intErsteSpalte), oWS_mal4.Cells(lngZeile, lngSpalte)).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
    SkipBlanks:=False, Transpose:=False

End Sub

Danke schon mal!