Supportnet / Forum / Tabellenkalkulation
mehrere Werte in ein Datenfeld schreiben
Frage
Hallo zusammen,
Wie kann man eigentlich mehr als ein wert in ein Datenfeld schreiben?
Hier unten was ich so gedacht habe:
Dim x(1 to 200) as Boolean
t1=30
t2=45
x (t1 to t2) = False
Die Letzte Zeile iszt da der Springende Punkt, so wie sie da steht geht das nicht.
Vorschläge?
Antwort 1 von Saarbauer
Hallo,
leider nicht ganz verständlich.
Was meinst du mit Datenfeld? Zelle oder mehrere Zellen?
Es sind nähere Angaben erforderlich, seh mal hier
https://supportnet.de/showfaq/840
hier besonders Punkt 7.
Gruß
Helmut
leider nicht ganz verständlich.
Was meinst du mit Datenfeld? Zelle oder mehrere Zellen?
Es sind nähere Angaben erforderlich, seh mal hier
https://supportnet.de/showfaq/840
hier besonders Punkt 7.
Gruß
Helmut
Antwort 2 von nighty
hi all :)
wer lesen kann ist klar im vorteil :)
frage wurde schon gestellt vom selben fragesteller und wurde beantwortet
gruss nighty
wer lesen kann ist klar im vorteil :)
frage wurde schon gestellt vom selben fragesteller und wurde beantwortet
gruss nighty
Antwort 3 von Michael_lobo
Hallo nighty,
So ganz identisch ist es nicht, aber ähnlich.
Unten dein auszug aus der letzten Lösung.
´start
For Each zelle In Range("A1:C3")
datenfeld(index) = zelle.Value
index = index + 1
Next zelle
´Ende
Bei deinem Beispiel war die Each-Bedingung
[in Range]. Hat auch so funktioniert.
Zurück zum Aktuellen Fall:
´Start
Dim x(1 to 200) as Boolean
Dim t as integer
t1=30
t2=45
For Each [t >= 30, <=45"]
x (t) = False
Next t
´Ende
Hier bin ich an der Formulierung der Each-Bedingung gescheitert [eckige Klammer]. Hat jemand nen Vorschlag?
Ich war auch in meiner unwissenhiet zu Naiv und dachte das das doch mit nem Einzeiler gehen muss, da dieser Fall ja noch simpler ist.
Danke so weit für die mühen.
Gruß Michael
So ganz identisch ist es nicht, aber ähnlich.
Unten dein auszug aus der letzten Lösung.
´start
For Each zelle In Range("A1:C3")
datenfeld(index) = zelle.Value
index = index + 1
Next zelle
´Ende
Bei deinem Beispiel war die Each-Bedingung
[in Range]. Hat auch so funktioniert.
Zurück zum Aktuellen Fall:
´Start
Dim x(1 to 200) as Boolean
Dim t as integer
t1=30
t2=45
For Each [t >= 30, <=45"]
x (t) = False
Next t
´Ende
Hier bin ich an der Formulierung der Each-Bedingung gescheitert [eckige Klammer]. Hat jemand nen Vorschlag?
Ich war auch in meiner unwissenhiet zu Naiv und dachte das das doch mit nem Einzeiler gehen muss, da dieser Fall ja noch simpler ist.
Danke so weit für die mühen.
Gruß Michael
Antwort 4 von nighty
hi all :)
Rem wenn es 200 zellen sein sollten ist der bereich anzupassen,von - bis
For Each zelle In Range("A1:C3")
If zelle > 29 And zelle < 46 Then x(t) = False
Index = Index + 1
Next zelle
oder
For zaehler = 0 To 199
If DasSolltestDuWissen > 29 And DasSolltestDuWissen < 46 Then x(t) = False
Next zaehler
gruss nighty
Rem wenn es 200 zellen sein sollten ist der bereich anzupassen,von - bis
For Each zelle In Range("A1:C3")
If zelle > 29 And zelle < 46 Then x(t) = False
Index = Index + 1
Next zelle
oder
For zaehler = 0 To 199
If DasSolltestDuWissen > 29 And DasSolltestDuWissen < 46 Then x(t) = False
Next zaehler
gruss nighty