Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren

[jagga007]

Hallo,

bräuchte etwas Hilfe von Euch.

Ich habe in einer Zelle z. b. 12:15 stehen, und zu dieser Zeit möchte ich eine Halbe Stunde addieren. Irgendwo ist da der Wurm drin hier meine Zeilen.

Code: [Auswählen]

        If Range("B30") > 0 Then

            Range("A31") = Range("B30")
            Range("B31") = Range("A31") + (0.5 / 24)
            Range("A32") = Range("B31")

           
        End If
kann mir jemand helfen?

Zuerst dacht ich mir, kann doch nicht so schlimm sein aber siehe da so einfach ist es doch nicht.


Gruß jagga007

[gmg-cc]

? ? ?

[jagga007]

Hallo Günter,

schicke mal das komplette Beispiel, dann siehst Du das Problem.



Gruß jagga007

[maninweb]

Hallo,

ersetze Deinen Code-Block durch das hier...

Code: Visual Basic

1. Application.EnableEvents = False
2. Range("A31").Value = Range("B30").Value
3. Range("B31").Value = Range("A31").Value + (0.5 / 24)
4. Range("A32").Value = Range("B31").Value
5. Application.EnableEvents = True

Dadurch, dass Du Worksheet_Change() in der Tabelle abfängst und eine Validierung
durchführst, die das Zuweisen obiger Werte nicht zulässt, wird der erste Wert nicht
geschrieben.

Gruß

[jagga007]

Hallo,

hab's verstanden. Knapp daneben ist halt auch daneben.

Aber nun funktioniert es. Dankeschön für Deine Unterstützung.



Gruß jagga007

[jagga007]

Hallo,

eventuell könntest Du Dir meine Formel in den Zellen ergibt anschauen. Die Berechnung ist ja ok. aber wenn ich diese Zellen auf Null zurücksetze bekomme ich nun den Fehler #WERT!.

Gruß jagga007

[jagga007]

Hallo,

ich Denke mein Problem könnte etwas mit .EnableEvents und .ScreenUpdating zu tun haben. Bin mir aber nicht sicher.

Hab beides mit eingebunden und jetzt funktioniert die Anzeige. Ob es nun wirklich mit diesen oder möglicherweise doch mit etwas anderen zu tun hat, kann ich nicht sagen.

Wenn es Eures Wissens nach an dem gelegen haben kann wäre es toll wenn ich ein ja bekäme. Außer es gibt einen andere Ursache dafür dann wäre es natürlich schön, diese Möglichkeit auch zu wissen.

Gruß jagga007

[maninweb]

Hallo,

In Deinen Quellzellen hast Du ein Leerzeichen drin, welches Du auch im Code setzt, warum auch immer:
Range("A31,B31,A32,B32,A47") = " ".

Ändere die Formel mal in...

Code: XML

1. F30=WENN(UND(ISTZAHL(B30);ISTZAHL(A30));RUNDEN(REST(B30-A30;1)*24;5);"")

Und danach dann auf die anderen Zellen autoausfüllen.

Gruß

[jagga007]

Hallo,

funktioniert Super.

Danke



Gruß