Funktioniert leider auch nicht, das komische ist ja dass es funktioniert wenn ich das makro im vba editor über f5 starte und sobald ich über das Makro
Sub Uhrzeit_start()
Load UserForm2
UserForm2.Show
End Sub
starte geht die hälfte nicht aber die Startzeit schreibt er in jedes Tabellenblatt nur den die schleife um zur Startzeit den Intervall hinzuzufügen geht dann nicht. Er schreibt dann nur den Intervall rein. Vielleicht liegt es an der Schleife?
'Schleife um die nachfolgenden Uhrzeit um den Intervall zu erhöhen
For i = 0 To ListBox1.ListCount - 1
'Wenn-Dann Bedingung, dass er alle in der Listbox1 ausgewählten Namen auswählt und dann
If ListBox1.Selected(i) Then
'Startwert Zelle 24
j = 24
'Schleife für das ablaufen der Intervalladdition
Do
'in die Tabellenblätter -deren Namen in der Listbox ausgewählt sind- den Intervall zur Startzeit hinzurechnen beginnend bei Zelle 24, dann schau was in Zelle 23 ist und addiere
'den Wert der zweiten Textbox hinzu. /24/3600 ist die Umrechnung zur addition von sekunden
Worksheets(ListBox1.List(i)).Cells(j, 2).Value = Cells(j - 1, 2).Value + TextBox2.Value / 24 / 3600
'Schleifenrhytmus, nach jeder Addition in die nächste Zelle springen
j = j + 1
'Die Schleife endet sobald eine leere Zelle vorhanden ist.
Loop Until Worksheets(ListBox1.List(i)).Cells(j, 2).Value
'Ender der Wenn-Dann Bedingung
End If
'nächstes Tabellenblatt
Next i
Hab hier mal den Link zur Datei in meiner Dropbox falls jemand die gesamte Datei anschauen will.
https://www.dropbox.com/s/loq58c53uppcnxp/Au%C3%9Fer%20Diagramm.xlsm?dl=0
Gruß dschuelig
|