Rechnen und Ausblenden mit Monatsbezug

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Matthias,
erklär ich gerne. Aber nochmals dank für die Ausblend Sache !
In der Tabelle steht in P6 die bis heute abgenommene Menge. In D6 - o6 stehen jeweils die Mengen die er zusammengezählt ( jan + feb + März usw. ) hätte abnehmen sollen. Will ich jetzt in Q6 prozentual rechnen wie hoch mein Absatz ist muss ich doch in Q6 sagen :
(P6/G6)*100. Das gilt dann aber nur für April. Im Mai muss die Formel in Q6 dann lauten (p6/H6)*100. Das hat mit dem Ausblenden nichts zu tun, jedoch such ich eine Formel oder etwas anderes, die sich auf den aktuellen Monat bezieht. D.h die in Q6 den Zelle P6 fixiert und nur den aktuellen Monat verändert.
Ich hoffe das war jetzt klarer, weil ich mir gut vorstellen kann wie schwer sowas manchmal nachzuvollziehen ist. Ich hoffe ja das sowas überhaupt machbar ist
Gruss jan

Hallo Jan,
folgende Funktion gibt die erste sichtbare Zelle im angegebenen Bereich zurück:


Function Sichtbar(ber As Range)
Dim z As Range
For Each z In ber
If z.EntireColumn.Hidden = False Then
Sichtbar = z.Value
Exit Function
End If
Next z
'keine sichtbar:
Sichtbar = "#NV"
End Function

Du kannst damit die Formel in Q6 ändern: statt:
=P6/G6
schreibe:
=P6/Sichtbar(D6:O6)
Ein Nachteil ist allerdings, dass Excel ein Ein-/Ausblenden der Zellen nicht als Grund nimmt, die Formel neu zu berechnen. Du musst also entweder nach dem Ein-/Ausblenden Excel mit Strg-Alt-F9 zur Neuberechnung zwingen, oder du ergänzt meine Prozeduren wie folgt:


Sub NurAktMonat()
Dim i As Integer
Application.ScreenUpdating = False
For i = 4 To 15
Monat = i - 3
Cells(1, i).EntireColumn.Hidden = (Month(Date) <> Monat)
Next i
Application.ScreenUpdating = True
Application.CalculateFull '<<<<<<<<<<<<<
End Sub


Sub AlleMonate()
Columns("D:O").Hidden = False
Application.CalculateFull '<<<<<<<<<<<<<
End Sub

Ein manuelles Aus-/Einblenden der Spalten muss immer mit Strg-Alt-Entf abgeschlossen werden!
Ich hoffe, Du kannst damit was anfangen und freue mich auf deine Rückmeldung.
Viele Grüße,
Matthias

Sub NurAktMonat() Dim i As Integer Application.ScreenUpdating = False For i = 4 To 15 Monat = i - 3 Cells(1, i).EntireColumn.Hidden = (Month(Date) <> Monat) Next i Application.ScreenUpdating = True [z1].Value = [z1].Value + 1 '<<<<<<<<<<<<<<<<<< End Sub

Beliebteste Forumthreads (12 Monate)

Rechnen und Ausblenden mit Monatsbezug

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread