Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: jagga007 am Juni 23, 2017, 20:30:20 Nachmittag

Titel: Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: jagga007 am Juni 23, 2017, 20:30:20 Nachmittag
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


Titel: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: gmg-cc am Juni 23, 2017, 23:40:29 Nachmittag
? ? ?
Titel: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: jagga007 am Juni 24, 2017, 08:52:21 Vormittag
Hallo Günter,

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



Gruß jagga007
Titel: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: maninweb am Juni 24, 2017, 09:30:23 Vormittag
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ß
Titel: Office 2010: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: jagga007 am Juni 24, 2017, 11:04:18 Vormittag
Hallo,

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

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



Gruß jagga007
Titel: Office 2010: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: jagga007 am Juni 24, 2017, 12:45:15 Nachmittag
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
Titel: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: jagga007 am Juni 24, 2017, 17:24:15 Nachmittag
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
Titel: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: maninweb am Juni 25, 2017, 13:36:18 Nachmittag
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ß
Titel: Antw:Office 2010: Mit Vba zu hh:mm eine halbe Stunde addieren
Beitrag von: jagga007 am Juni 25, 2017, 20:00:42 Nachmittag
Hallo,

funktioniert Super.

Danke



Gruß