VBA Programmierung einer Leistungsberechnung

Hallo Forumscomunity,
bin gerade drüber eine Excel Tabelle bzw. ein VBA Programm zu schreiben um Leistungen einer Lüftungsanlage zu berechnen. Diese Leistungen errechne ich aus stündlichen Werten die auf einem Sheet stehen, also 8760 Werte. Jetzt zu meinem Problem: Ich habe mir das so vorgestellt, dass ich anhand eines Select Case Befehls, der anhand der Temperatur und Feuchte eines von 6 Unterprogrammen startet sowie bei nichtzuordnung eine Fehlermeldung ausgibt. Mein Problem besteht darin, dass ich dieses Vorgehen für alle 8760 Stunden machen möchte und dabei jede Stunde die Variablen Außenlufttemperatur und Feuchte überschreiben und die ganze Prozedur neu durchlaufen lassen möchte. Also als kleines Beispiel:
Stunde Temperatur Feuchte
1 -6,2 0,9
2 24 10
3 15 2,5
Bei Stunde 1 Call Programm 1
Bei Stunde 2 Call Programm 2
Bei Stunde 3 Call Programm 3
Bei dem Versuch das ganze über einen Range Befehl zu machen scheitere ich, ebenso wie beim Versuch einer Zählschleife und die Variable als Arry zu definieren.
Ich hoffe ich konnte mein Problem darstellen und ihr könnt mir helfen.
Gruß,
miepton

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Variante1: Select Case Stunde Case 1 Call Makro1 Case 2 Call Makro2 Case 3 Call Makro3 End Select 'Variante 2 If Stunde = 1 Then Call Makro1 ElseIf Stunde = 2 Then Call Makro2 ElseIf Stunde = 3 Then Call Makro3 End If

Hallo Martin,
das löst mein Problem leider nicht, vielleicht habe ich das falsch dargestellt.
Ich verusche das ganze nochmal:
Mein Select Case befehl sieht so aus:

Select Case tAUL & xAUL & hAUL
Case Winterfallv = xAUL = 6 & xAUL = 18
Call UnterRaum
Case Befeuchtenv = hAUL > 38.5 & xAUL = 6 & xAUL = 23
Call Trockenkühlen
Case Sommerv = xAUL > 10
Call Sommer
Case Raumkonditionv = xAUL >= 6 & xAUL = 18
Call Raumkondition
Case Fehlerv
MsgBox ("Es ist ein Fehler aufgetreten")

Die Variablen sind vorher natürlich definiert.
Jetzt geht es mir darum, dass sobald eines dieser Unterprogramme durchlaufen wurde, die ganze Prozedur von vorne startet und dabei sich die Zeilennummer um 1 erhöht. Bildlich gesprochen als erstes beginne die Zeile 1 auszuwerten, wenn fertig werte Zeile 2 aus usw. ende bei 8760.
Um den Select Case Befehlgeht es mir gar nicht, der erfüllt meines erachtens, seinen Zweck. Es geht darum die Variablen tAUL xAUL und hAUL so zu definieren, dass sie sich nach jeder beendigung des Programms selbstständig um 1 Zeile nach unten erhöht. Und das Programm sich neu startet, das sehe ich durch einen Loop möglich zu bewältigen.
Ich hoffe es ist jetzt etwas klarer geworden.
Gruß,
miepton
PS: Was ich vielleicht noch vergessen habe zu erwähnen, die Variablen des Select Case (tAUL, xAUL und hAUL) werden nach dem Select Case in den einzelnen Unterprogrammen weiter verarbeitet.

Sub Beispiel() If xAUL = 6 And xAUL = 18 Then Call UnterRaum ElseIf hAUL > 38.5 And xAUL = 6 And xAUL = 23 Then Call Trockenkühlen ElseIf xAUL > 10 Then Call Sommer ElseIf xAUL >= 6 And xAUL = 18 Then Call Raumkondition Else MsgBox "Es ist ein Fehler aufgetreten", 48, "Fehler" End If End Sub

Dim tAUL As Variant Dim xAUL As Variant Dim hAUL As Variant tAUL = Workbooks("Master Tabelle").Worksheets("TRY2015 Sommer").Range("F2").Value xAUL = Workbooks("Master Tabelle").Worksheets("TRY2015 Sommer").Range("L2").Value hAUL = Workbooks("Master Tabelle").Worksheets("TRY2015 Sommer").Range("T2").Value

Beliebteste Forumthreads (12 Monate)

VBA Programmierung einer Leistungsberechnung

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Programmierung einer Leistungsberechnung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread