Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Ereignis - Wenn Wochenarbeitszeit sich ändert

VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
Carlo
Hallo Zusammen,
Ich habe folgendes Problem:
Ich habe eine Zelle mit der Summe der gesamten Arbeitsstunden pro Woche. Das Ereignis soll nun ausgelöst werden in VBA wenn sich diese Summe z. B. in der Zelle A16 verändert. Nun habe ich zusätzlich noch folgende Bedingungen:
Wenn die Summe der gesamten Woche (Formatierung der Zelle A16: hh:mm:ss, z. B 44:00:00) grösser wie 42h dann soll er die Differenz zwischen der Summe der gesamten Woche und den 42 Stunden in VBA berechnet werden. Es muss zwingend in VBA sein.
Vielen Dank für eure Hilfe.
Gruss
Carlo
AW: VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
15.10.2009 20:30:21
Gerd
Hallo Carlo,
die Summe in A16 wird per Code oder per Formel berechnet ?
Gruß
Gerd
AW: VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
15.10.2009 23:35:42
Carlo
Hallo Gerd
Die Summe der gesamten Wochenstunden wird mit der Excel-Formel SUMME(B10:B16) im Feld A16 berechnet und das Feld ist zudem noch mit hh:mm:ss formatiert, damit 42h möglich sind und es nicht nur bis 24h geht.
Gruss
Carlo
AW: VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
16.10.2009 21:52:19
Gerd
Hallo Carlo,
bin kein Anhänger von "Misch-Systemen" und verstehe deinen Zwang nicht.
Beispiel mit bedingter Ausgabe der Überstunden in A20 (Diese Zelle wäre noch zu
formatieren).
'Ins Modul der Tabelle 
Private Sub Worksheet_Calculate()
Dim OldCalc As Long
OldCalc = Application.Calculation
Application.Calculation = xlCalculationManual
If Cells(16, 1).Value > 1.75 Then
Cells(20, 1).Value = Cells(16, 1).Value - 1.75
Else
Cells(20, 1).Value = ""
End If
Application.Calculation = OldCalc
End Sub
Gruß Gerd
Anzeige
AW: VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
19.10.2009 22:53:20
Carlo
Hallo Gerd,
Danke für deine Hilfe. Nun habe ich das Problem, dass ich mehrere Zellen mit verschiedenen Bedingungen habe. Zusätzlich zu A16 noch D16,G16 und I16 und wenn sich eine dieser Summe verändert, gibt es verschiedene Bedingungen.
Nun weiss ich nicht wie ich diese verschiedenen Summenfelder in deine Formel einfüge:
Private Sub Worksheet_Calculate()
Dim OldCalc As Long
OldCalc = Application.Calculation
Application.Calculation = xlCalculationManual
If Cells(16, 1).Value > 1.75 Then
Cells(20, 1).Value = Cells(16, 1).Value - 1.75
ElseIf
Weitere Bedingung Then
ElseIf
Weitere Bedingung Then
End If
Application.Calculation = OldCalc
If Cells(16, 4).Value > 1.6 Then
Cells(20, 4).Value = Cells(16, 4).Value - 1.6
ElseIf
Weitere Bedingung Then
ElseIf
Weiter Bedingung Then
End If
Application.Calculation = OldCalc
usw. für G16 und I16
End Sub
Wenn ich dies so mache, hängt sich das Excel auf. Weisst du wo der Wurm liegt? Wie muss ich die Formel anpassen?
Danke und Gruss
Carlo
Anzeige
AW: VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
20.10.2009 00:23:06
Gerd
Hallo Carlo,
beschreibe bitte die weiteren Bedingungen, evtl. für A16 u. jedenfalls die drei weiteren Zellen.
Gruß Gerd
AW: VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
20.10.2009 00:59:05
Carlo
Hallo Gerd,
Ein weiteres Probelm, war wenn ich dies Formel so geschrieben habe, dass die Formeln in den Excel Sheets nicht mehr auotmatisch gerechnet wurden, sondern auf manuell blieben.
Hier der detaillierte Code:
Private Sub Worksheet_Calculate()
Dim OldCalc As Long
OldCalc = Application.Calculation
Application.Calculation = xlCalculationManual
If Cells(16, 1).Value > 1.6 Then
Cells(20, 1).Value = Cells(16, 1).Value - 1.6
ElseIf
Cells(16, 1).Value  1.4 And Cells(16, 1).Value  1.6 Then
Cells(20, 4).Value = Cells(16, 4).Value - 1.6
ElseIf
Cells(16, 4).Value  1.4 And Cells(16, 4).Value

Der Code für G16 und I16 ist derselbe wie bei A16 und D16.
Danke und Gruss
Carlo
Anzeige
AW: VBA Ereignis - Wenn Wochenarbeitszeit sich ändert
20.10.2009 20:30:15
Gerd
Hallo Carlo,
"Berechnung auf manuell gestellt" - Dies ist für die Laufzeit der Prozedur Absicht.
Wenn Du den Code zur Laufzeit ausbesserst oder dieser hängen bleibt, kann es
passieren, dass die Berechnung auf "manuell" stehen bleibt.
Deine IF - Bedingungen waren nicht ganz schlüssig sortiert.
Ich hoffe, Du hast keine flüchtigen Formeln mit HEUTE() oder JETZT() . 
Private Sub Worksheet_Calculate()
Dim OldCalc As Long
OldCalc = Application.Calculation
Application.Calculation = xlCalculationManual
If Cells(16, 1).Value > 1.6 Then
Cells(20, 1).Value = Cells(16, 1).Value - 1.6
ElseIf Cells(16, 1).Value > 1.4 And Cells(16, 1).Value  1.6 Then
Cells(20, 4).Value = Cells(16, 4).Value - 1.6
ElseIf Cells(16, 4).Value > 1.4 And Cells(16, 4).Value
Gruß Gerd
Anzeige

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2