Clever-Excel-Forum

Hallo,

ich schreibe gerade an einer Studienarbeit und verzweifle an der codierung von Excel, leider bin auch noch relativ neu in Excel.

Da ich eine spezielle Fahrtplanung in Excel erstellen möchte, hoffe ich jemand kennt einen Weg, wie ich meine Zahlenfolge (siehe Bild) in gewünschte Reihenfolge bekomme.

[attachment=42991]
[
Bild bitte so als Datei hochladen: Klick mich!
]

Ich brauche diese Zahlen in folgender Reihenfolge:
A1
A2
C2
C1
E1
E2
...

Vielen Dank für eure Hilfe!

Hallo,

bitte mal testen, ob das so richtig ist:

Hi,

als Formel:

Oder vielleicht:

In A10:

Das klappt sehr gut, vielen vielen Dank! Leider werden alle Zahlen gerundet, ist es auch möglich, die Zahlen ungerundet in meine Spalte zu bekommen?
Angenommen meine Ursprungstabelle ist länger als AF, muss ich dann einfach nur den Code um die Zahlenreihe erweitern? Also: "AF2", "AG2", "AG1" etc. oder muss ich da ncoh etwas beachten?

Viele Grüße!

---

(20.04.2022, 15:03)Klaus-Dieter schrieb: [ -> ]Hallo,

bitte mal testen, ob das so richtig ist:

Code:

Option Explicit

Sub zahlenfolge()
    Dim varRange As Variant
    Dim intWerte(64, 0) As Integer
    Dim intAnz As Integer
    varRange = Array("A1", "A2", "C2", "C1", "E1", "E2", "G2", "G1", "I1", "I2", "K2", "K1", "M1", "M2", "O2", "O1", "Q1", "Q2", "S2", "S1", "U1", "U2", "W2", "W1", "Y1", "Y2", _
    "AA1", "AA2", "AC2", "AC1", "AE2", "AE1", "AF1", "AF2", "AD2", "AD1", "AB1", "AB2", "Z2", "Z1", "X1", "X2", "V2", "V1", "T1", "T2", "R2", "R1", "P1", "P2", "N2", "N1", "L1", "L2", _
    "J2", "J1", "H1", "H2", "F2", "F1", "D1", "D2", "B2", "B1")
    For intAnz = 0 To 63
        intWerte(intAnz, 0) = Range(varRange(intAnz))
    Next intAnz
    Range("A10:A73") = intWerte
End Sub

Das klappt sehr gut, vielen vielen Dank! Leider werden alle Zahlen gerundet, ist es auch möglich, die Zahlen ungerundet in meine Spalte zu bekommen?
Angenommen meine Ursprungstabelle ist länger als AF, muss ich dann einfach nur den Code um die Zahlenreihe erweitern? Also: "AF2", "AG2", "AG1" etc. oder muss ich da ncoh etwas beachten?

Viele Grüße!

Hallo,

Zitat:Leider werden alle Zahlen gerundet, ist es auch möglich, die Zahlen ungerundet in meine Spalte zu bekommen?

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

Zitat:Angenommen meine Ursprungstabelle ist länger als AF, muss ich dann einfach nur den Code um die Zahlenreihe erweitern? Also: "AF2", "AG2", "AG1" etc. oder muss ich da ncoh etwas beachten?

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")

(21.04.2022, 08:41)BoskoBiati schrieb: [ -> ]

Hi,

welche Zahlen sollen denn ungerundet sein????

Eine Tabelle wäre sehr hilfreich zum Verstehen!

Hier als Formel:

Code:

=LINKS(ADRESSE(1;ABRUNDEN((ZEILE(A1)-1)/2;0)*2+1;2;1);1+(ZEILE(A1)>26))&WAHL(REST(ZEILE(A1)-1;4)+1;1;2;2;1)

So sieht meine Tabelee gerade aus:
[attachment=42994]
Der Code von Klaus Dieter funktioniert sehr gut, nur leider sind die Zahlen jetzt alle gerundet.
Die Formel von Ihnen ist prinzipiell auch richtig, nur leider bekomme ich nur die Buchstaben raus und ich bräuchte diese Formel ab AI acuh ncoh in die andere richtung, also:
AI1
AI2
AG2
AG1
AE1
AE2
...

viele Grüße

Hallo,

siehe unter #7

Hi,

das kann ich nicht verstehen. Vielleicht solltest Du mal die Tabelle zeigen:

[attachment=42995]