Hallo Mikegen,

Dein geposteter Code ist praktisch unlesbar. Zum Posten von Code gibt es die Codetags [ CODE] hier das Programm [ /CODE] aber ohne die Leerzeichen nach der öffnenden eckigen Klammer. Sieht dann so aus:
Code:
 hier das Programm
Wenn Du beim Antwort schreiben unten rechts auf den "Erweitert" button klickst, geht das auch per Mausklick auf das # Zeichen.

Das was ich aber schon gesehen habe ist diese Zeile.
"If Stelle < 5 Then Incr Stelle Else Stelle = 1 'Index weiterschalten zur nächsten Stelle"
Es muß heißen
"If Stelle < 4 Then Incr Stelle Else Stelle = 1 'Index weiterschalten zur nächsten Stelle"

Das hatte ich hier in der geposteten Datei auch schon berichtigt. Keine Ahnung ob das Deine Probleme behebt. recovery hat den Fehler auch übernommen und hat ihn anscheinend nicht gestört. Die 5 ist aber definitiv falsch!

Gruß
Searcher

- - - Aktualisiert - - -

Dann gibt es noch diese Zeilen bei Dir:

Code:
Ddra = &B00001111 'Tempsensoren A6, Reedkontakt A5, Spannung A4 , A0-A3 Transistor für Segmente Eingang = 0 Ausgang = 1

Config 1WIRE = Porta.6

Reed Alias PinA.5  
Set PortA.5        
reed = 1
PortA wird außer für 7 Segment also noch anders genutzt.

Beim Multiplexen hast Du folgendes aber nicht angepaßt:
"Porta = Porta And &B00000000 'Alle 4 Stellen abschalten, andere Portpins nicht verändern '&B11110000"

Versuch es mal so:
"Porta = Porta And &B1111_0000 'Alle 4 Stellen abschalten, andere Portpins nicht verändern '&B11110000"