Halo allerseits,

ich habe folgendes Problem:

Ich habe ein Userform geschrieben (mit hilfe von euch) das Tabellenblätter durchgeht, die Namen der Tabelleblätter listet usw..., starte ich "Userform ausführen" im VBA-Editor aus dem Code-Modul funktioniert alles Prima.

Dann bin ich hingegangen habe ein Makro wie folgt geschrieben:

Sub Uhrzeit_start()
    Load Userform2
    UserForm2.Show
End Sub

Anschließend habe ich ein Symbol auf einem nicht für die Funktionen benötigten Tabellenblatt erstellt und das oben angezeigt Makro zugewiesen.

Wenn ich dann das Makro ausführe, wird die Userform angezeigt, die vorhandenen Tabellenblätter in der Listbox aufgeführt und ein Teil der in der Userform geschriebenen Befehle ausgeführt, allerding ein anderer Teil nicht. Ich bin ziemlich Ratlos und hoffe ihr könnt mir helfen. Anbei noch der Code aus der Userform.

'Userform2 für die Änderung der Uhrzeit
'Damit beim Start der Userform direkt alle vorhandenen Tabellenblätter angezeigt werden wird mit Excel-Bordmittel Initialize gestartet
Private Sub UserForm_Initialize()

'Variablendeklaration
Dim i As Single

'Schleife, er soll alle Tabellenblätter zählen, Schrittweite 1
For i = 1 To Worksheets.Count

'Die gezählten Tabellenblätter sollen in der in der Userform, in der Listbox namentlich aufgelistet werden
     With ListBox1
          .AddItem Worksheets(i).Name
     End With
     
'Nächstes Tabellenblatt soll ausgelesen und in die Listbox geschrieben werden
Next i

'Ende der Befehlsreihe die beim Öffnen ausgeführt werden soll
End Sub
 
'Makro für das gleichsetzen der Uhrzeit auf jedem ausgewählten Tabellenblatt beim klicken des Buttons Uhrzeit setzen
Private Sub CommandButton1_Click()

'Variablendeklaration
Dim i As Single
Dim j As Long


'Bedingung dass in Beiden Textboxen ein Wert drin stehen muss ansonsten soll er die Msgbox zeigen und das Makro beenden
If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox ("Sie müssen in eine Uhrzeit und ein Intervall eingeben")
    Exit Sub
    
'Beendet die Bedingung
End If
 
'Schleife, um die Startzeit in jedem ausgewählten Tabellenblatt zu setzen
'-1 habe ich Internet gefunden, ohne -1 erkennt er die selected Anweisung nicht
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

'in die Tabellenblätter -deren Namen in der Listbox ausgewählt sind- in die Zelle B23 (ist immer Gleich, da die Drucklogger von einem Hersteller auf einer Software basieren)
'den Wert der in Textbox1 steht geschrieben wird. Formatierungsforgabe hh:mm:ss hat hierdrin nicht funktioniert, deshalb ist die Textbox beschriftet
       Worksheets(ListBox1.List(i)).Range("B23").Value = TextBox1.Text
       
'Ende der Wenn-Dann Bedingung
    End If
    
'Schleifenrhytmus (1. Schleife), nächstes Tabellenblatt
Next i

'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 IsEmpty(Cells(j, 2).Value)

'Ender der Wenn-Dann Bedingung
End If

'nächstes Tabellenblatt
Next i

'Schliessen der Userform
Unload Me

'Beenden des Makros
End Sub