Re: "kst1" -> kst1
01.03.2003 03:04:21
TE
Naja, ich bin schon ein wenig müde, sonst wäre ich gleich drauf gekommen:
also es gibt n Variablen im Code (momentan [kst1] bis [kst12]), die an der Stelle, über die wir jetzt reden, schon einen Inhalt haben, und mit jeder muss eine umfangreiche Anweisung ausgeführt werden.
Jetzt gibt`s ja Schleifen, und damit beim nächsten Schleifendurchlauf die nächste [kstx] genommen wird, habe ich versucht, einen Zähler an die Zeichenkette"kst" ranzuhängen, damit dann beim Durchlauf z.B.4 auch die Variable [kst4] benutzt wird, ich dann also eine Schleife überhaupt benutzen kann und nicht n x denselben Code untereinander habe. Den Wert dieses Zählers könnte ich zur Laufzeit bestimmen; damit könnte ich dann wirklich n Variablen (also beliebig viele oder eben genau so viele, wie ich gerade jetzt brauche) managen.Klappt natürlich nicht.
Gelöst habe ich das jetzt mit FOR EACH kst IN ARRAY(kst1, kst2, ..., kst12)
Ich gebe der Lösung nur eine 2, da ich mich hiermit auf die maximal mögliche Anzahl von Variablen festlege, nämlich 12.
Eigentlich steht aber die Anzahl nicht wirklich fest - sollte dann doch mal ein LKW zur Flotte dazukommen (also eine weitere Kostenstelle kst eröffnet werden müssen), gibt es in der Tabelle, aus der heraus ich diese Kostenstellenauswertung hiermit mache, auch ein weiteres Kennzeichen - schon muss ich wieder im Code rumpopeln, um eine [kst13] einzufummeln.
Naja, ich lege ein wenig Reserve an, aber übertreiben kann man es auch nicht, sonst läuft es ja {n - vorhandene kst} mal umsonst durch.
Eigentlich ist es eher eine Programmierstil-frage. Meiner Auffassung nach muss ein gutes Makro unter allen erdenklichen Umständen funktionieren, und dazu gehört auch, keine prinzipiellen Beschränkungen einzubauen.
Zum selben Problem siehe auch https://www.herber.de/forum/messages/225323.html
hier gings darum, den Variablen [kstx] die Kennzeichen zuzuweisen, und zwar derart, dass beim Durchlauf nur soviele Variablen überhaupt belegt sind (nämlich mit den verschiedenen Kennzeichen), wie auch verschiedene Kennzeichen in dem aktuellen Abschnitt der Tabelle vertreten sind.
Schon bei diesem Mammut-Algorithmus musste ich zähneknirschend eine maximale Anzahl von Variablen akzeptieren:
For r = ZEfirstrow To lastrow
If Cells(r, 8).Text = ZEdat Then
rkst = Cells(r, 5).Text
If ksta = "" Then ksta = rkst
If kstb = "" And rkst <> ksta Then kstb = rkst
If kstc = "" And rkst <> ksta And rkst <> kstb Then kstc = rkst
If kstd = "" And rkst <> ksta And rkst <> kstb And rkst <> kstc Then kstd = rkst
usw
End If
Next r
Du kannst Dir vorstellen, dass die AND-Verknüpfungen in der IF-Zeile schnell länglich werden.
Naja, darf der Chef halt keinen neuen LKW kaufen.
Schlaf schön und herzlichen Dank
Thomas