Spalte kopieren, von unten nach oben

[Eizi100]

Hallo zusammen
Ich habe ein kleines (für mich ein grosses) Problem

Ich kopiere von Tabellenblatt "Spieler" über einen Button Spalte A und Spalte B (Wenn die Bedingung in C passt, z.B.: 401) nach Tabellenblatt1. Das klappt ja wunderbar

Ich will es aber Irgendwie schaffen, dass das von unten nach Oben kopiert bzw von unten nach oben eingetragen wird. Die Bereiche, wo das hinkopiert wird, ist immer der gleiche Bereich.
Vielleicht hat wer eine Idee.  Zur Info. Ich habe das mal auf Fussballspieler umgemünzt, da das wirkliche Problem zu kompliziert wäre (zumindest für betriebsfremde)

Danke an alle
LG
Michael

[Elex]

Hey,

mach aus i = i + 1  ->  i = i - 1 und fang am Ende an.

Gruß Elex

[Eizi100]

Danke

Es klappt. In meiner geistigen Umnachtung habe ich zuerst übersehen, dass ich die Zeilennummer natürlich auch ändern muss.
i = 3 ' Zeilennummer   Ab 4 Fundstellen kommt natürlich der Fehler

Ich habs dann auf
i = 15 geändert und schon gings

Ich sage Besten Dank
Mein Tag ist gerettet

LG
Michael

[Gast 123]

Hallo

ich habe mich NIE für Fussball interessiert, aber die ungewöhnliche Aufgabe Rückwärts zu kopieren hat mich gereizt eine lösung zu finden!
Dafür benötigt ein erfahrener Programmierer keine zwei getrennte Makros, das kann man für Bayern und Schalke in einem Rutsch machen! 
Und ich bevorzuge den normalen CommandButton, keine AktiveXSteuerelemente.  Dem kann man das Makro im Modul1 direkt zuweisen.

mfg Gast 123

---

Soory, zu schnell gesendet.   Hier die beabeitete Datei.

[BoskoBiati]

Hi,

ginge auch in einem Makro:

Code:

Private Sub Rueckwaerts()
Dim lastRow As Long
Dim rngBer As Range
Dim lCount As Long
Dim lBayern As Long
Dim lSchalke As Long
lBayern = 2
lSchalke = 16
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

With Sheets("Tabelle1")
    Set rngBer = .Range("b2:C26")
    rngBer.ClearContents
   
    For lCount = lastRow To 1 Step -1
        If Cells(lCount, 3) = 401 Then
            .Cells(lBayern, 2) = Cells(lCount, 2)
            .Cells(lBayern, 3) = Cells(lCount, 1)
            lBayern = lBayern + 1
        ElseIf Cells(lCount, 3) = 402 Then
            .Cells(lSchalke, 2) = Cells(lCount, 2)
            .Cells(lSchalke, 3) = Cells(lCount, 1)
            lSchalke = lSchalke + 1
        End If
    Next
   
End With

End Sub

Gerade die Version von Elex gesehen, ist nicht so toll, wenn die Einträge in Tabelle1 unten beginnen!

[RPP63]

Moin!
Mein übliches "außer Konkurrenz".
In einem aktuellen Excel reicht eine einzige Formel.
(ohne VBA, ohne "ziehen")

	A	B	C
1	Liste1		Liste2
2	P		J
3	B		D
4	U		H
5	E		C
6	X		I
7	S		N
8	L		V
9	V		L
10	N		S
11	I		X
12	C		E
13	H		U
14	D		B
15	J		P

Zelle	Formel
C2	=LET(b;A2:A15;z;ZEILEN(b);INDEX(b;SEQUENZ(z;;z;-1)))

Gruß Ralf

Edit:
Geht sogar noch einfacher:

	A	D
1	Liste1	Liste2
2	P	H
3	B	C
4	U	I
5	E	N
6	X	V
7	S	L
8	L	S
9	V	X
10	N	E
11	I	U
12	C	B
13	H	P

Zelle	Formel
D2	=SORTIERENNACH(A2:A13;SEQUENZ(12;;12;-1))