Zeitvergleich Laufzeitfehler 13

Function wird insgesamt 8mal aufgerufen und zwar über diese Zeilen (Diese Code-Zeilen sind 8mal _ vorhanden, aber mit unterschiedlichen Boxen): If ComboBox_ZeitPb.Value "" And ComboBox_ZeitPv.Value "" And zeitvergleich( _ ComboBox_ZeitPv.Value, ComboBox_ZeitPb.Value) Then Worksheets("Tabelle2").Range("F2").Value = Format(sumdiff(ComboBox_ZeitPv.Value, _ ComboBox_ZeitPb.Value), "hh:mm") Worksheets("Tabelle2").Range("E2").Value = ComboBox_Punktezähler.Text End If Er speichert mir die Zeilen auch richtig ab. Nur am ende kommt dieser Fehler 13. Liegt es evtl daran, dass diese Function Zeitvergleich achtmal aufgerufen wird? oder liegt das Problem wo ganz anders. Wenn _ ich diese Function nur einmal aufrufe, d.h. die anderen 7 Code-Zeilen rausnehme, funktioniert es. Viele grüße Stefan Hiemer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,


Nur am ende kommt dieser Fehler 13.

Da fragt man sich doch, welche Vba-Zeile Du genau meinst.
Außerdem arbeitest Du bei den Variablen unsauber.
- die Werte von Comboboxen sind immer vom Typ String
- also übergibst Du an die Funktion 'zeitvergleich' 2 Textwerte
- demzufolge sind die Übergabevariablen 'start' & 'ende' vom Typ String
- start = CDbl(CDate(start))
hier rechnet Vba zwar richtig, kann aber den Variablentyp von 'start' nicht in Double umwandeln
somit stehen in 'start' & 'ende' 2 Stringwerte, deren Vergleich mit ~f~ende > start~f~ wenig Sinn
macht
- in 'start' steht eine Kommazahl' (zb. 0,416666666666667 für 10:00)
- Zahlen in Vba benötigen aber einen Dezimalpunkt
- und zu 'sumdiff' wissen wir Garnichts
Gruß von Luschi
aus klein-Paris

If ComboBox_ZeitPb.Value "" And ComboBox_ZeitPv.Value "" And zeitvergleich( _ ComboBox_ZeitPv.Value, ComboBox_ZeitPb.Value) Then Worksheets("Tabelle2").Range("F2").Value = Format(sumdiff(ComboBox_ZeitPv.Value, _ ComboBox_ZeitPb.Value), "hh:mm") Worksheets("Tabelle2").Range("E2").Value = ComboBox_Punktezähler.Text End If

If ComboBox_ZeitZb.Value "" And ComboBox_ZeitZv.Value "" And zeitvergleich( _ ComboBox_ZeitZv.Value, ComboBox_ZeitZb.Value) Then Worksheets("Tabelle2").Range("H2").Value = Format(sumdiff(ComboBox_ZeitZv.Value, _ ComboBox_ZeitZb.Value), "hh:mm") Worksheets("Tabelle2").Range("G2").Value = ComboBox_Zeit.Text End If

Hallo und danke erstmal, mit deinem Code funktioniert es wunderbar :)
Ich hab in meiner Maske noch einen kleinen Schönheitsfehler entdeckt...
Das hat mit dem Problem hier eigentlich nichts zu tun, aber evtl weißt du da auch ne Lösung. Ich probier auch, es dieses mal gleich präzise zu schreiben.
Meine Comboboxen_ZeitPV,_ZeitPB,... werden über die Tabelle 6 "bestückt" immer wenn die UserForm aktiviert wird.
Die Comboboxen sind alle in den Eigenschaften "Style" auf Drop Down gestellt worden und werden via folgendem Code ins richtige Format gebracht:

Private Sub Stundenanzeige(box As Variant)
If Me.Controls(box)  "" Then Me.Controls(box) = Format(CDbl(Me.Controls(box).Text), "hh:mm")
End Sub

Aufgerufen wird es immer mit dem "Change" einer Combobox. Dies erfolgt natürlich bei allen Comboboxen.

Private Sub ComboBox_Zeitpv_Change()
Call Stundenanzeige(ComboBox_Zeitpv.Name)
End Sub

Da ich aber insgesamt 80 Zeitwerte zur Auswahl habe, dauert es ewig bis ich nach unten komme.
Ich hatte versucht die Style-Eigenschaft auf 0 zu setzten, dann könnte ich ja etwas eingeben, theoretisch:
Ich bekomme dann,sobald ich eine Zahl eingegeben habe, den Fehler "Laufzeitfehler 13 : Typen unverträglich". Dieser Codeteil wird mir gelb unterlegt:

Me.Controls(box) = Format(CDbl(Me.Controls(box).Text), "hh:mm")

Ich weiß nicht ob es funktioniert, dass ich z.B. die ersten beiden Zahlen per Tastenfeld eingebe und dann per Pfeiltasten weitertippe....
Ich weiß nicht, ob ich es verständlich rüberbringen konnte, was mein Anliegen ist,...

Dim bEventCB As Boolean Private Sub UserForm_Activate() 'bEventCB = True End Sub Private Sub ComboBox_Zeitpv_Change() If bEventCB Then Call Stundenanzeige(Me.ComboBox1.Name) End If End Sub Private Sub Stundenanzeige(box As Variant) bEventCB = False If Me.Controls(box) "" Then Me.Controls(box).Value = _ Format(CDbl(Me.Controls(box).Text), "hh:mm") bEventCB = True End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeitvergleich Laufzeitfehler 13

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread