Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelleneintrag umdrehen

Tabelleneintrag umdrehen
19.10.2007 08:49:20
falk
Guten Morgen,
Ich habe in der Spalte A von der Zelle A1 bis A100 100 Werte stehen.
Nun möchte ich in die Spalte B die Reihenfolge umgedreht eintragen.
Also: A100 -- B1
A99 -- B2
usw.
Mein erster Ansatz klappt leider nicht.
For i = 1 To 15
Range("A(i)").Select
Selection.Copy
Range("B&I").Select
ActiveSheet.Paste
Next
End Sub
Danke für jede Hilfe !
Gruß Falk

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelleneintrag umdrehen
19.10.2007 08:59:21
Wolli
Moin Falk, mal ganz freihändig

Sub tauschen()
dim i as long
for i = 1 to 100
cells(101-i,2) = cells(i,1)
next i
End Sub


Gruß, Wolli

AW: Tabelleneintrag umdrehen
19.10.2007 09:22:00
falk
Ich danke Dir Wolli !
Gruß Falk

AW: Tabelleneintrag umdrehen
19.10.2007 09:00:29
Ptonka
Hallo Falk,
so müsste es gehen:
lastrow = [A65536].End(xlUp).Row
For i = lastrow To 1 Step -1
Wert = Cells(i, 1).Value
Cells(lastrow - i + 1, 2).Value = Wert
Next i
Gruß,
Jochen

AW: Tabelleneintrag umdrehen
19.10.2007 09:22:33
falk
Ich danke Dir Jochen !
Gruß Falk

AW: Tabelleneintrag umdrehen
19.10.2007 09:00:00
Beverly
Hi Falk,
das geht auch ohne VBA mit folgender Formel
=INDIREKT("A"&100-ZEILE())
und dann nach unten kopieren.
________________________________________

Anzeige
AW: Tabelleneintrag umdrehen
19.10.2007 09:23:00
falk
Vielen Dank, Karin !
Gruß Falk

AW: Tabelleneintrag umdrehen
19.10.2007 09:12:00
Worti
Hallo Falk,
eine Lösung hab ich auch noch:

liefert das Ergebnis

Gruß Worti

AW: Tabelleneintrag umdrehen
19.10.2007 12:39:00
Daniel
Hallo
ein schnelles Makro für grosse Datenmengen:
spalte C sollte halt frei sein.

Sub Tauschen()
Range("A:A").Copy Range("B:B")
Range("C1").Value = 1
With Range("B1:c" & Cells(65536, 2).End(xlUp).Row)
.Columns(2).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Trend:=False
.Sort key1:=Range("C1"), order1:=xlDescending, header:=xlNo
.Columns(2).Clear
End With
End Sub


Anzeige
AW: Tabelleneintrag umdrehen
19.10.2007 14:08:59
Wolli
Hey Daniel, das ist elegant - da habe ich wieder mal eine Idee aufgeschnappt! :-)) Gruß, Wolli

209 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige