Am nächsten Tag käme ja im Beispiel die 14 hinzu, so dass die Reihe auf Blatt 2 4/9/14 wäre.
Es wäre schön das ganze auf „Knopfdruck“ zu haben. Denn auf Grund eines anderen Auswahlfeldes können sich die Werte in der Spalte1 auf Blatt1 komplettt ändern (Anzahl bleibt allerdings gleich)
ich habe ein Excel-Blatt wo in z.B. Spalte 1 jeden Tag ein
neuer Wert in einer neuen Zeile hinzukommt.
Ich möchte jetzt jeden x.Wert (z.B. jeden fünften auswählen)
und auf ein anderes Blatt in eine Spalte schreiben lassen.
Am nächsten Tag käme ja im Beispiel die 14 hinzu, so dass die
Reihe auf Blatt 2 4/9/14 wäre.
Hallo Slam,
Tabellenblatt: [Mappe1]!Tabelle2
│ A │
──┼────────┤
1 │ Blatt2 │
──┼────────┤
2 │ 3 │
──┼────────┤
3 │ 8 │
──┼────────┤
4 │ 13 │
──┴────────┘
Benutzte Formeln:
A2: =INDIREKT("Tabelle1!A"&ANZAHL2(Tabelle1!A:A)-10)
A3: =INDIREKT("Tabelle1!A"&ANZAHL2(Tabelle1!A:A)-5)
A4: =INDIREKT("Tabelle1!A"&ANZAHL2(Tabelle1!A:A)-0)
A1:A4
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
das sieht mir aber aus als müsste ich das Manuell machen, da
habe ich bei mehr als 1000 Werte keine Lust, automatisiert
wäre mir das lieber.
Hallo slam,
beschreib mal genauer, ggfs. mit längeren Beispiellisten was du willst.
Du wolltest erst 3,8,13, was sich nach Eingabe von 14 in Tab1 automatisch auf 4,9,14 verändert.
Genau nach deiner Vorgabe.
ich versuche es nochmal besser zu erklären.
Ich habe ein Blatt mit einer Spalte, da kommt jeden Tag ein neuer Wert hinzu. Zur Zeit sind das schon mehr als 1000 Werte/Zeilen.
Daraus würde ich gerne, ausgehend vom letzten/neusten Wert rückwärtsgehend jeden 5. Wert rausgezogen und auf einem neuen Tabellenblatt gespeichert. Und zwar in der Reihenfolge der älteste Wert in der Zeile mit der nedrigsten Nummer z.B. Zeile 1 und den neusten Wert in der Zeile mit der höchsten Nummer. Wäre bei 1000 Werten jeden 5. Wert rausgezogen Zeile 200.
Wenn jetzt am nöächsten Tag der neuste Wert in Zeile1001 auf Blatt 1 steht, sollte dann auf Knopfdruck der neuste Wert in Zeile 200 stehen und der letzte, was in dem Fall der Wert aus Zeile 2/Blatt 1 ist eben auf bLatt 2 in der ersten Zeile. Wenn wieder 5 Tage rum sind, dann wäre der letzte Wert in Zeile 1005/Blatt1 und auf Blatt2 wären nun 201 Zeilen gefüllt.
ich habe ein Excel-Blatt wo in z.B. Spalte 1 jeden Tag ein
neuer Wert in einer neuen Zeile hinzukommt.
Ich möchte jetzt jeden x.Wert (z.B. jeden fünften auswählen)
und auf ein anderes Blatt in eine Spalte schreiben lassen.
mache Dir eine Hilfsspalte, bei der Du die Formel =REST(ZEILE();5)=0 eingibst und nach unten ausfüllst. Dann steht WAHR in jeder 5. Zeile und sonst FALSCH.
Mit Daten -> Filter -> Spezialfilter -> An eine andere Stelle kopieren bekommst Du das superschnell an eine andere Stelle. Die Hilfsspalte kann dann auch wieder weg oder ausgeblendet werden.
Am nächsten Tag käme ja im Beispiel die 14 hinzu, so dass die
Reihe auf Blatt 2 4/9/14 wäre.
Es wäre schön das ganze auf „Knopfdruck“ zu haben. Denn auf
Grund eines anderen Auswahlfeldes können sich die Werte in der
Spalte1 auf Blatt1 komplettt ändern (Anzahl bleibt allerdings
gleich)
das Ganze funktioniert noch nicht ganz. Es funktioniert dann, wenn die (Zeilennummer-1) der letzten Zeile durch 5 teilbar ist, aber das ist ja nicht immer der Fall.
Die Formel soll immer mit dem letzten Wert anfangen d.h. wenn die letzte Zeile die 113. ist dann diesen Wert und dann rückwärts jeden 5. rausziehen.
Gruß
slam
und kopiers nach unten.
Wenn dich unten die Nuller stören,
=Wenn(Formel=0;"";Formel)
Bedank dich für die Umkehrung meiner Formel bei Coach ^ WF.
Egal ob die kennst, ist sowas wie notwendige Autornennung.
das Ganze funktioniert noch nicht ganz. Es funktioniert dann,
wenn die (Zeilennummer-1) der letzten Zeile durch 5 teilbar
ist, aber das ist ja nicht immer der Fall.
Die Formel soll immer mit dem letzten Wert anfangen d.h. wenn
die letzte Zeile die 113. ist dann diesen Wert und dann
rückwärts jeden 5. rausziehen.
Hallo Slam,
lade mal mit hostarea FAQ:2606 eine Beispielmappe hoch wo es nicht klappt.
er muesste eigentlich auf Sheet2 mit der 17 enden, er endet aber mit der 221. Du kannst jetzt noch 2 Zeilen anfügen, dann wenn du in Zeile 116 (116-1 geht wieder durch 5) dannstimmt es wieder.
Dim i As Integer
Dim k As Integer
Dim zeilemax As Integer
Dim tab1 As Worksheet
Dim tab2 As Worksheet
Set tab1 = Worksheets(„Sheet1“)
Set tab2 = Worksheets(„Sheet2“)
zeilemax = tab1.UsedRange.Rows.Count
k = zeilemax
For i = zeilemax To 5 Step -5
tab2.Cells(k, 2) = tab1.Cells(i, 2)
k = k - 1
Next i
End Sub
die leeren Zellen davor, die kann ich ja automatisch löschen.
.