Thema Datum  Von Nutzer Rating
Antwort
24.11.2015 11:02:29 Kreso
NotSolved
Blau Wertentwicklung
 25.11.2015 01:01:00 BigBen
****
Solved
25.11.2015 11:26:19 Gast20504
NotSolved
25.11.2015 11:47:44 BigBen
***
NotSolved
25.11.2015 11:58:36 Gast14660
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
25.11.2015 01:01:00		 Views:
742		 Rating:
     
Antwort:
 Nein
Thema:
Wertentwicklung

Hallo,

für den Fall, dass die Daten in der ersten Tabelle vorliegen und die Ergebnisse mit den Referenz-Werten in die zweite Tabelle geschrieben werden sollen, kann folgender Code eingesetzt werden:

Sub RunAnalyse()
    CalcReference 80
End Sub

Sub CalcReference(Reference As Double)
    Dim rw As Range
    Dim rngNw As Range
    For Each rw In ActiveWorkbook.Worksheets(1).UsedRange.Cells
        Set rngNw = ActiveWorkbook.Worksheets(2).Cells(rw.Row, (rw.Column * 2) - 1)
        If rw.Row = 1 Then
            rngNw.Formula = rw.Value
        Else
            rngNw.Formula = rw.Value
            rngNw.Offset(0, 1).Formula = (rw.Value / Reference) * 100
        End If
    Next
End Sub

Der Befehl RunAnalyse startet die Berechnung der Referenze mit der Übergabe des Referenzwertes. Im Beispiel ist der Referenzwert mit 80 angegeben worden.

VG, BigBen

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:



  • 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
24.11.2015 11:02:29 Kreso
NotSolved
Blau Wertentwicklung
 25.11.2015 01:01:00 BigBen
****
Solved
25.11.2015 11:26:19 Gast20504
NotSolved
25.11.2015 11:47:44 BigBen
***
NotSolved
25.11.2015 11:58:36 Gast14660
NotSolved