Thema Datum  Von Nutzer Rating
Antwort
Rot Formel für variable Zellen hinterlegen
 19.11.2015 17:23:55 Christian
NotSolved

Ansicht des Beitrags:
Von:
Christian		 Datum:
19.11.2015 17:23:55		 Views:
1693		 Rating:
     
Antwort:
  Ja
Thema:
Formel für variable Zellen hinterlegen

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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Formel für variable Zellen hinterlegen
 19.11.2015 17:23:55 Christian
NotSolved