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