HERBERS Excel-Forum - die Beispiele

Thema: Weiteren Verlauf prognostizieren

Home

Gruppe

Funktion

Problem

In B2:B12 befinden sich die jeweiligen Auftragseingänge des Vorjahres, in C2:C10 die des aktuellen Jahres. Aufgrund der Monatsverteilung aus Spalte B soll für die restlichen Monate des laufenden Jahres (C11:C13) eine Prognose erstellt werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
ClassModule: Tabelle3

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim intRow As Integer
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   If Target.Column = 2 Then
      With Worksheets(Target.Offset(0, -1).Value)
         intRow = .Cells(Rows.Count, 3).End(xlUp).Row + 1
         .Cells(intRow, 4) = Target
         .Cells(intRow, 3) = Target.Parent.Name
      End With
   ElseIf Target.Column = 4 Then
      With Worksheets(Target.Offset(0, -1))
         intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(intRow, 2) = Target
         .Cells(intRow, 1) = Target.Parent.Name
      End With
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim iRow As Integer
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   If Target.Column = 2 Then
      With Worksheets(Target.Offset(0, -1).Value)
         iRow = .Cells(Rows.Count, 3).End(xlUp).Row + 1
         .Cells(iRow, 4) = Target
         .Cells(iRow, 3) = Target.Parent.Name
      End With
   ElseIf Target.Column = 4 Then
      With Worksheets(Target.Offset(0, -1).Value)
         iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(iRow, 2) = Target
         .Cells(iRow, 1) = Target.Parent.Name
      End With
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und MITTELWERT

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
MITTELWERTWENN ohne die aktuelle Zeile Mittelwert über mehrere Blätter ohne Null-Werte
VBA-Code funktioniert nicht mit anderem Office Hilfe bei der INDEX Funktion
Zelladressen von FunktionsParametern ermitteln Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis Makro funktioniert nach Beenden von Excel nicht
VLOOKUP auf Links funktioniert offline @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Mit vba Funktionen in Excel Zellen Mittelwert/ StabW in Spalte mit definierten Zeilen
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung Benutzerdefinierte Funktion
Userform mit Löschfunktion Frage zu Wenn Dann Funktion
Wenn-Funktion Frage zur Funktion DISAGIO
Mittelwert in Abhängigkeit von anderer Spalte Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Makro funktioniert nicht richtig zählenwenn-funktion mit mehreren kriterien
Sverweis mit Mittelwert ungefähr finden Sverweis mit Mittelwert ungefähr finden
Funktion SVERWEIS Benutzerdefinierte Funktion in Open Office
Funktion Dezimal -> Zeit/ Variablen-Deklaration Probleme mit Textfunktionen
Fehler, wenn Variable in Funktion VBA-Funktion analog =ZELLE("Zeile")
Gültigkeit funktioniert nicht! Mittelwert mit Bedingung
Zellausrichtung funktioniert nicht WENN-Funktion
Hide-Funktion in einem Frame Mittelwert Anzeigen