Das mit der Berechnung war in Bascom in der Tat etwas haarig, aber da ich nun die Werte für Pullups,Sensor-Bwert,Sannung und Widerstand bei Bezugstemperatur sepeat Auswähle ist es nicht ganz so schlimm.

Für den Fall das es mal irgendwen Interessieren sollte wie Ich es gelöst habe, Code anbei.
Für Verbesserungen besonders was Speedvorteile bringen könnte bin ich Offen




Dim W As Word , Channel As Byte , Z As String * 10
Channel = 2
Dim Pullup As Single , Involt As Single , Volt As Single , Ln As Single , B As Single , R As Single , Ts As Single , Rs As Single , Temp As Single
Do

If Channel = 2 Then
B = 3491.2 'Bwert vom NTC
Ts = 298.15 'Bezugstemperatur in Kelvin
Rs = 2000 'Widerstand bei Bezugstemperatur TS
Pullup = 10000 'Widerstandswert Pullup Widerstand
Involt = 4.90 'Spannung vor Abfall
End If
If Channel = 3 Then
B = 3791.2 'Bwert vom NTC
Ts = 298.15 'Bezugstemperatur in Kelvin
Rs = 2500 'Widerstand bei Bezugstemperatur TS
Pullup = 10000 'Widerstandswert Pullup Widerstand
Involt = 4.90 'Spannung vor Abfall
End If
W = Getadc(channel)
Volt = W * 4.90
Volt = Volt / 1023
R = Involt / Pullup
R = Volt / R
Temp = B * Ts
Ln = R / Rs
Ln = Log(ln)
Ts = Ts * Ln
B = B + Ts
Temp = Temp / B
Temp = Temp - 273.15
Z = Fusing(temp , "#.#")
Print "ADC-Pin " ; Channel ; ": Volt " ; Volt ; " Widerstand " ; R
Print "Temperatur von Sensor am Kanal " ; Channel ; " " ; Z ; "°C"
Incr Channel
Loop Until Channel > 3