Hall AlterDresdner,

ich glaube ich steh hier auf dem Schlauch

tAUL = Workbooks("Master Tabelle ").Worksheets("TRY2015 Sommer").Range("G2").Value

xAUL = Workbooks("Master Tabelle ").Worksheets("TRY2015 Sommer").Range("L2").Value

hAUL = Workbooks("Master Tabelle ").Worksheets("TRY2015 Sommer").Range("T2").Value


    If xAUL < 6 And hAUL <= 38.5 Then
        Call Winterfall
    ElseIf xAUL >= 6 And xAUL <= 10 And tAUL <= 18 Then
        Call UnterRaum
    ElseIf hAUL > 38.5 And xAUL < 6 Then
        Call Befeuchten
    ElseIf xAUL >= 6 And xAUL <= 10 And tAUL >= 23 Then
        Call Trockenkühlen
    ElseIf xAUL > 10 Then
        Call Sommer
    ElseIf xAUL >= 6 And xAUL <= 10 And tAUL <= 23 And tAUL >= 18 Then
        Call Raumkondition
    Else
        MsgBox "Es ist ein Fehler aufgetreten", 48, "Fehler"
    End If

 so sieht das Hauptprogramm aus. 

und als beispiel ein Unterprogramm:

Public Sub Befeuchten()
' Erstellung der Berchnung des Falls Befeuchten
MsgBox ("Ich bin der Befeuchter")
'
              
   VBEFPU = (Vstrneu * (8 - xAUL) / 1000) / Rohwa        
                                            
    Pbef = ((Rohwa * g * VBEFPU * hPU) / 1000) / (WirkBEFMOT * WirkBEFPU)
  
                 
'Ausgabe in Zelle
    Sheets("Ergebnisse").Range("C2").Value = Pbef

End Sub

Wobei hier die MsgBox nur als kontrolle im aktuellen Stadium dient.

Nun geht es mir darum, die Variablen tAUL,xAUL und hAUL so zu deklarieren, dass sie einen Bereich von im Beispiel von xAUL L2 bis L8761 annimmt und dieser dann als Beispiel im Unterprogramm in die entsprechende Zelle schreibt. Also xAUL(L2) Ausgabe in Zelle C2, xAUL(L3) Ausgabe un Zelle C3 usw.

Vielen Dank schonmal!

Gruß,

Maxl