Thema Datum  Von Nutzer Rating
Antwort
09.04.2018 14:41:52 Maxl
Solved
09.04.2018 18:44:11 AlterDresdner
NotSolved
Rot Variable fortschreitend deklarieren
 10.04.2018 08:22:27 Gast555
NotSolved
11.04.2018 11:39:04 Maxl
NotSolved

Ansicht des Beitrags:
Von:
Gast555		 Datum:
10.04.2018 08:22:27		 Views:
636		 Rating:
     
Antwort:
  Ja
Thema:
Variable fortschreitend deklarieren

Hall AlterDresdner,

ich glaube ich steh hier auf dem Schlauch

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.04.2018 14:41:52 Maxl
Solved
09.04.2018 18:44:11 AlterDresdner
NotSolved
Rot Variable fortschreitend deklarieren
 10.04.2018 08:22:27 Gast555
NotSolved
11.04.2018 11:39:04 Maxl
NotSolved