mehrfache Variablenzuweisung in select Anweis.

Hallo,
in einer for next Schleife spreche über eine select case Funktion nur bestimmte Zeilen an. Mein Problem liegt in der Zuordnung eines Variablennamens.

For SpalteMt = 13 To 14 'variable Einstellung der Monatsabfrage
ZeileMt = ZeileMt + 1

For ZeileActual = 9 To 259 Step 5
ZeileLower = ZeileActual + 4
ZeileUpper = ZeileActual + 3
Select Case ZeileActual
Case 9, 19 To 104, 119 To 259
If wsOverview.Cells(ZeileUpper, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) Or wsOverview.Cells(ZeileUpper, SpalteMt) = wsOverview.Cells(ZeileLower, SpalteMt) Then
'rot 'cpk betreffend
If wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) Or wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner gleich' wsOverview.Cells(ZeileLower, SpalteMt) Then
Call rotFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
'gelb
If wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileUpper, SpalteMt) Then
Call gelbFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
End If

... Hier klappt noch die Zuordnung param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)

Case 14, 114
If wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileUpper, SpalteMt) Or wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) Then
Call rotFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt(ZeileAuslesen, 4)
...Hier gibt Excel einen Fehler, dass das Objekt die Eigenschaft nicht unterstützt.
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
End Select
Next ZeileActual
Next SpalteMt
Woran hätte ich denken müssen?
Danke und Gruß
eva

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich bitte um Verzeihung.
Meine Frage bezieht sich auf eine Select Case Funktion in einer For Next Schleife. Über die Zählschleife binde ich an jede fünfte Zeile eine Anweisung. Aus dem Grund, dass zwei Zeilen über diese Anweisungen nicht angesprochen werden sollen, weil ihnen andere Anweisungen zugrunde liegen, verwende ich darin eine case Funktion. In der ersten Case Funktion gebe ich der Variable param(string) einen konkreten Text, aus einer Zelle eines files. Das klappt bei der ersten case Funktion gut. Wenn die Zählschleife im nächsten Durchlauf auf die zweite case Funktion zugreift, klappt die Zuweisung param = wsAuslesenBSC_Abt(ZeileAuslesen, 4)nicht mehr.
Kann dieser Fehler durch die Anwendung von Case bei for next Schleifen hervorgerufen werden?
eva

code auszug:
For SpalteMt = 13 To 14 'variable Einstellung der Monatsabfrage
ZeileMt = ZeileMt + 1
For ZeileActual = 9 To 259 Step 5
ZeileLower = ZeileActual + 4
ZeileUpper = ZeileActual + 3
Select Case ZeileActual
Case 9, 19 To 104, 119 To 259
If wsOverview.Cells(ZeileUpper, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) Or wsOverview.Cells(ZeileUpper, SpalteMt) = wsOverview.Cells(ZeileLower, SpalteMt) Then
'rot 'cpk betreffend
If wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) Or wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner gleich' wsOverview.Cells(ZeileLower, SpalteMt) Then
Call rotFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
'gelb
If wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileLower, SpalteMt) And wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileUpper, SpalteMt) Then
Call gelbFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
End If

... Hier klappt noch die Zuordnung param = wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4)

Case 14, 114
If wsOverview.Cells(ZeileActual, SpalteMt) 'größer als' wsOverview.Cells(ZeileUpper, SpalteMt) Or wsOverview.Cells(ZeileActual, SpalteMt) 'kleiner als' wsOverview.Cells(ZeileLower, SpalteMt) Then
Call rotFärben(ZeileActual, ZeileLower, ZeileUpper, ZeileAuslesen, SpalteMt, ZeileMt)
param = wsAuslesenBSC_Abt(ZeileAuslesen, 4)
...Hier gibt Excel einen Fehler, dass das Objekt die Eigenschaft nicht unterstützt.
Call standaloneSheets(param, ZeileAuslesen, SpalteMt, ZeileMt)
ZeileAuslesen = ZeileAuslesen + 1
End If
End Select
Next ZeileActual
Next SpalteMt

Beliebteste Forumthreads (12 Monate)

mehrfache Variablenzuweisung in select Anweis.

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread