Hallo zusammen,

ich stehe vor folgender Herausforderung: Ich habe eine Forecast Datei in der ich auf der ersten Seite Projekte (mit den jeweiligen Informationen) erfasse. Auf dieser Übersicht werden Umsätze und Kosten ermittelt und in die jeweiligen Monate eingetragen. Das Makro sorgt nun dafür, dass ich mittels Button die Daten in die jeweiligen Jahre automatisch übertrage und unter dem jeweiligen Vertriebsmitarbeiter angezeigt wird, sobald das Projekt beginnt (Definiert über “100%“). Soweit so gut.Jetzt habe ich jedoch eine Variable im dem ganzen. Die Personalkosten variieren im laufenden Monat, da sie vom Call Schnitt abhängig sind. Ich kann jedoch nur eine feste Formel hinterlegen oder die Kosten mittels VBA ermitteln.

Was ich benötige ist der Teil, der sagt:

Wenn die Daten in die Matrix von Vertrieb´ler A übertragen werden, nimmst du die Beträge aus der (Bsp.: ) 5Zelle der ersten Zeile der Matrix „Vertrieb´ler A“ und dividierst sie durch die Beträge aus der (Bsp.: ) 6 Zelle der ersten Zeile.

Dies sollte jedoch als Formel hinterlegt sein, da bei jedem neuen Eintrag die Matrix die erste Zeile neu generiert und die Einträge eine Zeile nach unten wandern. Ich hoffe das war ausführlich genug und jemand kann mir helfen.

VG
Christian

 Dim vb As Variant
    Dim matrix As Variant
    Dim lastRowVB As Variant
    Dim oRange As Range
    Dim iColumns As Integer
    lastRow = ActiveSheet.UsedRange.Rows.Count
    For i = 1 To lastRow
    If Cells(i, 345).Value = "1" Then
        Dim startJahr As Variant
        Dim offsetCell As Variant
        startJahr = Year(Cells(i, 21))
        
        Select Case startJahr
                Case 2016
                    offsetCell = 0
                Case 2017
                    offsetCell = 64
                Case 2018
                    offsetCell = 128
                Case 2019
                    offsetCell = 192
                Case 2020
                    offsetCell = 256
        End Select
        
        vb = Cells(i, 347)
        matrix = "Matrix_" & vb

        Set oRange = Worksheets(CStr(startJahr)).Range(matrix)
        iColumns = oRange.Columns.Count
        Set oRange = Range(oRange.Cells(2, 1), oRange.Cells(2, iColumns))
        oRange.Insert Shift:=xlDown
                       
'------------------------------------------------------------------------------
'Grunddaten
                             
                Range(matrix).Cells(2, 2) = Cells(i, 3) 'Ausgeblendet Aktueller Monat
                Range(matrix).Cells(2, 3) = Cells(i, 4) 'Ausgeblendet Schnitt
                Range(matrix).Cells(2, 4) = Cells(i, 5) 'Kunde
                Range(matrix).Cells(2, 5) = Cells(i, 6) 'Calls
                Range(matrix).Cells(2, 6) = Cells(i, 7) 'Calls Monat
                Range(matrix).Cells(2, 7) = Cells(i, 8) '€/Call
                Range(matrix).Cells(2, 8) = Cells(i, 9) 'Termin CR
                Range(matrix).Cells(2, 9) = Cells(i, 10) '€/Termin
                Range(matrix).Cells(2, 10) = Cells(i, 11) 'Termine
                Range(matrix).Cells(2, 11) = Cells(i, 12) 'Termine Monat
                Range(matrix).Cells(2, 12) = Cells(i, 12) 'Umsatz
                Range(matrix).Cells(2, 13) = Cells(i, 14) 'Budget
                Range(matrix).Cells(2, 12) = Cells(i, 15) 'Personal
                Range(matrix).Cells(2, 13) = Cells(i, 16) 'Briefing
                Range(matrix).Cells(2, 14) = Cells(i, 17) 'Kosten
                Range(matrix).Cells(2, 15) = Cells(i, 18) 'Gewinn