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!
|