Ok also kann ich denn hier anstatt dem _ vor dem hour die Stunde reinschreiben
Code:
Schaltuhr:
   For B = 1 To 3
      If Stundeein(b) = 3 hour Then ' <--- so in etwa ? 
         If Minuteein(b) = _min Then
            Set Portd.b
         End If
      End If
      If Stundeaus(b) = _hour Then
         If Minuteaus(b) = _min Then
            Reset Portd.b
         End If
      End If
   Next B
Return
Gruß Tjark