OpenOffice.info

select case n
    case  Array(1)
          m=1
    case Array(2)
          m=2
.....
end select

For i = 0 To UBOUND(Array1())
   If Aray1(i) = n Then
      m = Array2(i)
      Exit For
   End If 
Next i

[quote]Man kann meines Wissens nach in einem Programm keine neuen Namen für Variablen erzeugen.[/quote]

Richtig.
Man kann aber notfalls mit dem Programm zur Laufzeit den Code für eine neue Sub bzw. Modul erzeugen, die dann auch KOnstantenzuweisungen beinhalte kann und anschließend die neu erzeugte Sub starten.

Wie das ERzeugen geht steht hier:
http://www.dannenhoefer.de/faqstarbasic/WiekannmanModuleerzeugenundlschen..html

und was ich oben vorschlage habe ich hier im Forum [u]glaube ich [/u]bereits einmal als Beispiel gepostet.


Der Inhalt des Threads hier erschließt sich mir hingegen nicht so ganz, denn:

[code]select case n
case Array(1)
m=1
case Array(2)
m=2
.....
end select[/code]

geht natürlich grundsätzlich auch angelehnt an:

[code]For i = 0 To UBOUND(Array1())
If Aray1(i) = n Then
m = Array2(i)
Exit For
End If
Next i[/code]

falls es nur um das geht was wirklich im Code steht und Array1() die mit n zu vergleichenden Werte enthält und und Array2(), das analog aufgebaut sein muß, die Wertze die m zugewiesen werden sollen.



Gruß
Stephan

Lieber Jürgen
das hatte ich befürchtet. Da aber jeder Jahrgang eine andere Zuordnung benötigt muss ich wohl bei meiner ersten Version bleiben. Trotzdem vielen Dank.
pit

Hallo Pit,

[quote="erikafuchs"]wer auch immer mit dem Befehl "const" umgehen kann,[/quote]

"Const" ist eine Konstante in einem Programm, welche im Gegensatz zu einer Variablen nicht mehr verändert werden kann.

[quote="erikafuchs"]und dann lege ich die Zuordnungen fest:

Code: Alles auswählen
for n=1 to 15
const TitelArray(n) = n
next [/quote]

Ha, dass hatte ich auch mal versucht und musste mich da eines besseren belehren lassen.
Man kann meines Wissens nach in einem Programm keine neuen Namen für Variablen erzeugen.

Jürgen

   for n=1 to 15
      TitelArray(zuoSheet.getCellByPosition(5,n).value)=zuoSheet.getCellByPosition(3,n).string   
   next

   for n=1 to 15
      const TitelArray(n) = n
   next  

Lieber Jürgen oder wer auch immer mit dem Befehl "const" umgehen kann,

ich würde ja die Zuordnungen gerne aus einem Tabellenblatt auslesen. Dadurch könnte auch jemand, ohne das Makro ändern zu müssen, die Reihenfolge ändern: Auf dem Tabellenblatt "Zuo" stehen in der Spalte 3 die Buchstaben für die Fächer und in der Spalte 5 die Zahlen für die Reihenfolge im 5. Schuljahr, in der Spalte 6 für das 6. Schuljahr.... Jetzt lese ich die Daten in ein Array:
[code] for n=1 to 15
TitelArray(zuoSheet.getCellByPosition(5,n).value)=zuoSheet.getCellByPosition(3,n).string
next[/code]
und dann lege ich die Zuordnungen fest:
[code] for n=1 to 15
const TitelArray(n) = n
next [/code]
...na ja, wäre schön gewesen, wenn das so klappen würde...
Vielen Dank für Euer Interesse
Pit

Lieber Jürgen,
das sieht doch gut aus, das werde ich ausprobieren.
Vielen Dank
Pit

Sub Main
Const D = 3
Const M = 7
Const E = 5
Const MU = 9
Const GL = 4
Const PH = 6
Const CH = 4
Const W1 = 8
	aConst = ARRAY(D,M,E,MU,GL,PH,CH,W1)
		for i = lBound(aConst) to uBound(aConst)
			iValue = aConst(i)
			Print iValue
		next
End Sub

Hi Pit,

[quote="erikafuchs"]Hat jemand eine bessere Idee wie man Buchstaben Zahlen zuordnen kann?[/quote]

vielleicht so:
[code]Sub Main
Const D = 3
Const M = 7
Const E = 5
Const MU = 9
Const GL = 4
Const PH = 6
Const CH = 4
Const W1 = 8
aConst = ARRAY(D,M,E,MU,GL,PH,CH,W1)
for i = lBound(aConst) to uBound(aConst)
iValue = aConst(i)
Print iValue
next
End Sub[/code]

Die Schleife ist nur zur Verdeutlichung eingebaut. :wink:

Viel Erfolg.

Jürgen

select case n
    case  Array(1)
          m=1
    case Array(2)
          m=2
.....
end select

Hallo Ihr Lieben.
wie man Zahlen Buchstaben zuordnet weiß ich. Wie aber macht man das umgekehrt? Ich habe etwa 650 Schüler mit je 11 bis 16 Fächern in einer Tabelle, macht etwa 7000 Zeilen. Die Fächer haben, je nach Jahrgang im Zeugnis, eine andere Reihenfolge. Für den Jahrgang 5 habe ich zB.: ein Array5(D, M, E, MU, GL) fü den Jahrgang 9 das Array9:(D, M, E, PH, CH, W1). Jetzt muss ich den Fächern (D, M, E, MU, GL, PH, CH, W1) je nach Jahrgang eine andere Reihenfolge, also verschiedene Zahlen zuordnen. Ich habe mir nicht anders zu helfen gewusst, als eine select Abfrage einzusetzen:
[code]select case n
case Array(1)
m=1
case Array(2)
m=2
.....
end select[/code]
das erscheint mir unelegant und langsam (bei 7000 Zeile und etwa 15 Fächern). Hat jemand eine bessere Idee wie man Buchstaben Zahlen zuordnen kann?
Grüße
Pit