Spezielle Zahlenfolge

[jazzbar]

Hallo,




natürlich, mein Fehler, du musst den Datentyp in dieser Zeile: Dim intWerte(64, 0) As Integer auf Single oder Double ändern. 





Im Prinzip ja, allerdings musst du auch diesen Wert (rot): For intAnz = 0 To 63 anpassen. Bitte beachten: die Werte werden ab Null gezählt. Ebenso den Ausgabebereich: Range("A10:A73")

Leider bin ich ein absoluter anfänger... Wie änder ich Dim intWerte(64, 0) As Integer auf Single oder Double?
Den rest kann ich nachvollziehen, danke!

[Klaus-Dieter]

Hallo,

bitte die vorangegangenen Antworten nicht zitieren, es reicht den Antworter mit Namen anzusprechen.

Wie du in den VBE kommst, weißt du ja? Dort brauchst du die entsprechenden Stellen nur überschreiben. Das ist dann sofort aktiv und wird beim nächsten Speichern mit gesichert.

[BoskoBiati]

Hi,

nach Deinem Bildchen ist die Aufgabenstellung ja eine andere...

Trotzdem mit Formel:

Code:

=INDEX($1:$2;WAHL(REST(ZEILE(A1)-1;4)+1;1;2;2;1);KÜRZEN((ZEILE(A1)-1)/2;0)*2+1)

[neopa]

Hallo jazzbar,

als reine Formellösungen waren snb und Edgar "vorwärts" schon auf den richtigen Weg. Es fehlte da nur noch der von Dir noch vorgegebenen "Rückweg"
Folgende Formel ziehend nach unten kopiert, gibt die Zahlenwerte komplett gemäß Deiner bildlichen Darstellung wieder:

PHP-Code:

=WENN(ZEILE(A1)>64;"";INDEX($1:$2;WAHL(REST(ZEILE(A1)-1;4)+1;1;2;2;1);MIN(65*(ZEILE(A1)>34)+VORZEICHEN(34,1-ZEILE(A1))*(KÜRZEN((ZEILE(A1)-1)/2;)*2+1);32))) 


[snb]

Oder:

PHP-Code:

=INDEX($A$1:$AF$2;2^(INT(MOD(ROW(A1)/2;2)));IF(ROW(A1)>COLUMN($AF$1);2*COLUMN($AF$1)-2*INT((ROW(A1)-1)/2);2*INT((ROW(A1)-1)/2)+1)) 


[snb]

Etwas kompakter:

PHP-Code:

=INDEX($A$1:$AF$2;2^(INT(MOD(ROW(A1)/2;2)));ABS((ROW(A1)>COLUMN($AF$1))*(-2*COLUMN($AF$1)-1)+2*INT((ROW(A1)-1)/2)+1))