Rechnen mit Zahlen verschiedener Tabellenblätter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Public Function getLast3Month(Zelle As Range) As Double ' summiert die Zellen mit der Adresse von Zelle ' der 3 Vormonate aufgrund des Blattnamens der Form 'MMMn YYYY' Application.Volatile Dim iYear As Integer Dim iMonth As Integer, iM As Integer Dim sTyp As String Dim dDate As Double iYear = CInt(Right(Application.Caller.Worksheet.Name, 4)) iMonth = Month(DateValue("1." & Left(Application.Caller.Worksheet.Name, 3) & "." & iYear)) sTyp = Mid(Application.Caller.Worksheet.Name, 4, 1) For iM = 1 To 3 dDate = DateSerial(iYear, iMonth - iM, 1) getLast3Month = getLast3Month + ThisWorkbook.Worksheets( _ Format(dDate, "MMM") & sTyp & _ Format(dDate, " YYYY")).Range(Zelle.Address) Next iM End Function

Hallo Stephan,
Was für eine Formel hast du eingetragen ?
Der Fehler #WERT erscheint unter diesen Umständen:
1. Der Blattname auf dem die Formel eingetragen ist, entspricht nicht der Struktur 'MMMn YYYY'
2. Es gibt keine 3 Vormonat für das Blatt mit den Nammen 'MMM(-1..3)n YYYY'
3. In den angegebenen Zelleadressen der Formel findet die Funktion in den 3 Vormonatsblättern keine numerischen Werte, bzw. mind. 1 Wert ist nicht numerisch.
Fall du nicht weiterkommst, bitte beantworte folgende Fragen:
1. Ist die Struktur der Tabellennamen mit Sicherheit 'MMMn YYYY' ? wobei MMM die dt. Abkz. des Monatsnamens, n ein Zahl oder eine Buchstabe, der auch in den 'Vormonaten' wieder auftritt und YYYY einer Jahreszahl >1899 und 2. Befinden sich die 3 Zellen der Vormonate immer an der gleichen Stelle, oder sogar fix auf A1 ?
3. Gibt es noch andere Blattnamen in der Arbeitsmappe, ausser 'MMMn YYYY' Blättern?
4. Was soll die Prozedur für die ersten 3 Monaten (welche keine 3 Vormonate haben), zurückgeben ?
5. Kannst du eine anonymisierte Arbeitsmappe mit mind. 8 Blättern als Beispiel hochladen ?
GreetZ Renée

Public Function getLast3Month(Zelle As Range) As Double ' summiert die Zellen mit der Adresse von Zelle ' der 3 Vormonate aufgrund des Blattnamens der Form 'Output MMM JJ' Application.Volatile Dim iYear As Integer Dim iMonth As Integer, iM As Integer Dim dDate As Double iYear = CInt(Right(Application.Caller.Worksheet.Name, 2)) If iYear


Meinst du wirklich ;-))

Fast... :-)
Benötige das gleiche noch 12monatig, rollierend. Wäre das so korrekt oder hab ich etwas übersehen:
Public Function getLast12Month(Zelle As Range) As Double
' summiert die Zellen mit der Adresse von Zelle
' der 12 Vormonate aufgrund des Blattnamens der Form 'Output MMM JJ'
Application.Volatile
Dim iYear As Integer
Dim iMonth As Integer, iM As Integer
Dim dDate As Double
iYear = CInt(Right(Application.Caller.Worksheet.Name, 2))
If iYear iYear = iYear + 2000
Else
iYear = iYear + 1900
End If
iMonth = Month(DateValue("1." & _
Mid(Application.Caller.Worksheet.Name, 8, 3) & _
"." & iYear))
For iM = 1 To 12
dDate = DateSerial(iYear, iMonth - iM, 1)
getLast12Month = getLast12Month + ThisWorkbook.Worksheets("Output " & _
Format(dDate, "MMM") & _
Format(dDate, " YY")).Range(Zelle.Address)
Next iM
getLast12Month = getLast12Month / 12
End Function
Scheint in ersten Tests so zu funktionieren...
Grüße
Michael

Public Function getLastFigure(Zelle As Range, _ Monate As Integer, _ Optional Typ As Integer = 1) As Double ' Für Blattnamen der Form 'Output MMM JJ' ' Parameter 1 = Zellebezug für die 'Vormonats-Blätter' ' Parameter 2 = Anzahl Monate vor dem des Blattnamens ' Parameter 3 = 0 z.B. Summe der 3 Vormonate =getLastFigure(A1;3;0) ' 1 z.B. Mittelwert der 12 Vormonate =getLastFigure(A1;12) ' -1 z.B. Monat des Vorjahres =getLastFigure(A1;12;-1) Application.Volatile Dim iYear As Integer Dim iMonth As Integer, iM As Integer Dim dDate As Double iYear = CInt(Right(Application.Caller.Worksheet.Name, 2)) If iYear

Beliebteste Forumthreads (12 Monate)

Rechnen mit Zahlen verschiedener Tabellenblätter

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Rechnen mit Zahlen verschiedener Tabellenblätter

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread