Wochenwechsel in Programmierter Tabelle
15.09.2018 10:13:39
Stephan
ich habe eine Tabelle Programmiert für meine Arbeit und komme nun an einer Stelle nicht weiter, da ich nicht genau weiß welche Informationen benötigt werden. Schildere ich erst die Situation und gebe euch dann den Auszug des Makros ,die Excel Tabelle (bitte nicht lachen, ist meine erste VBA Tabelle).
Ich habe eine Auslastungsprogrammierung für Auftrage gemacht. Dieser bezieht die eingegeben Daten auf einen Bereich von -4 wochen bis + 1 Jahr. Sobald in einer Woche mehr als 80 Einheiten gezählt werden geht eine Pop-up als Warnung raus.
Dies Funktioniert super, wenn jetzt aber sich das Datum wechselt, ändern sich die KW´s eins weiter und alle Zeilen welche den Wert von 80 überschritten haben machen Meldung. Dies soll über eine einfache Abfrage zwischen alter und neuer Kalenderwoche geregelt werden.
Auszug Makro:
Option Explicit
Dim h As String
Private Sub Worksheet_Calculate()
Static x As Double
Dim h As Integer
For h = 43 To 99
'If Range("AI3") Range("AI4") Then
' Call wochenwechsel
'End If
If Cells(14, h).Value Cells(1, h) Then
Call MSG(h)
End If
Next h
End Sub
Private Sub wochenwechsel()
'Wochenwechsel
'keine Pop-up Nachricht!
'Dim k As Integer
'For k = 43 To 99
'Cells(1, k) = Cells(14, k).Value
'Next k
'Range("AF4").Value = Range("AD4")
'End
End Sub
Private Sub MSG(h)
If Application.Sum(Range(Cells(16, h), Cells(1000, h))) > 80 Then 'Auslastungsgrenze 80 _
festgelegt!
MsgBox "Achtung: Auslastungsgrenze in der " & Sheets("Anfragen & Angebote 2018").Cells(12, _
h).Value & " erreicht! " & vbNewLine & vbNewLine & _
"Der Wochenwert ist " & Sheets("Anfragen & Angebote 2018").Cells(14, h).Value & " Balkone _
und somit um " & _
Sheets("Anfragen & Angebote 2018").Cells(2, h).Value & " Balkone überschritten.", _
vbCritical, "Warnung"
Cells(1, h) = Cells(14, h).Value
Else
Cells(1, h) = Cells(14, h).Value
End If
End Sub
Laufzeitfehler `28`:
Nicht genügend Stapelfehler
Hier die Datei:
https://www.herber.de/bbs/user/123966.xlsm
Vielen Dank an alle welche mir Ihre Hilfe anbieten.
MFG Stephan