Umdrehfunktion

Servus,
ich habe eigentlich eine ganz triviale Frage.
Habe folgende Kurse vom EuroStoxx 50.
Zeit Schlusskurs
02.07. 2007 4.470,26
03.07. 2007 4.513,01
04.07. 2007 4.524,24
05.07. 2007 4.491,87
06.07. 2007 4.524,45
09.07. 2007 4.528,76
10.07. 2007 4.474,15
11.07. 2007 4.447,52
12.07. 2007 4.517,70
13.07. 2007 4.542,57
16.07. 2007 4.557,57
17.07. 2007 4.538,31
18.07. 2007 4.472,22
19.07. 2007 4.522,64
20.07. 2007 4.445,23
23.07. 2007 4.482,75
24.07. 2007 4.412,06
25.07. 2007 4.360,90
26.07. 2007 4.252,92
27.07. 2007 4.244,58
30.07. 2007 4.239,18
31.07. 2007 4.315,69
01.08. 2007 4.237,05
02.08. 2007 4.288,66
03.08. 2007 4.229,19
06.08. 2007 4.202,78
07.08. 2007 4.276,80
08.08. 2007 4.364,22
09.08. 2007 4.275,18
10.08. 2007 4.161,29
13.08. 2007 4.255,79
14.08. 2007 4.195,60
15.08. 2007 4.183,06
16.08. 2007 4.062,33
17.08. 2007 4.157,20
20.08. 2007 4.173,29
21.08. 2007 4.175,07
22.08. 2007 4.226,52
23.08. 2007 4.225,89
24.08. 2007 4.238,63
27.08. 2007 4.240,95
28.08. 2007 4.170,68
29.08. 2007 4.193,58
30.08. 2007 4.246,12
31.08. 2007 4.294,56
03.09. 2007 4.295,99
04.09. 2007 4.324,35
05.09. 2007 4.235,41
In meinen Performance-Sheet benötige ich aber die Daten nicht von 2.7.07-05.09.07 geordnet, sonder vom 5.9.07 abnehmend. Gibt es irgendeine Funktion, mit dem ich die Daten verkehrt rum drehen kann. Die Daten einzelnd manuell einzugeben ist zu umständlich.
Gruß Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umdrehfunktion

30.09.2007 15:11:31

Peter

AW: Umdrehfunktion

30.09.2007 15:20:20

Thomas

AW: Umdrehfunktion

30.09.2007 16:32:09

Hubert

AW: Umdrehfunktion

30.09.2007 16:54:00

Peter

AW: Umdrehfunktion

30.09.2007 22:33:00

Jens

Hallo Thomas,
kopiere das beigefügte Makro in ein Modul (Alt + F11, dann Einfügen - Modul, Makro in das sich öffnende Fenster kopieren, mit Schließen-Kreuz schließen, mit Alt + F8 oder Extras - Makro - Makros laufen lassen.)
Das Makro geht davon aus, dass deine Daten in Spalte A ab Zeile 1 stehen.

Option Explicit
Public Sub sortieren()
Dim lZeile  As Long
   Application.ScreenUpdating = False
   Columns("A:A").Insert Shift:=xlToRight
   Columns("A:A").NumberFormat = "@"
   For lZeile = 1 To Range("B65536").End(xlUp).Row
      If Not IsNumeric(Left(Range("B" & lZeile).Value, 1)) Then
         Range("B" & lZeile).Value = Mid(Range("B" & lZeile).Value, 2)
      End If
      Range("B" & lZeile).Value = Trim(Range("B" & lZeile).Value)
      Range("A" & lZeile).Value = Mid(Range("B" & lZeile).Value, 4, 2) & _
         Mid(Range("B" & lZeile).Value, 1, 2)
   Next lZeile
   Columns("A:B").Sort _
       Key1:=Range("A1"), Order1:=xlDescending, _
       Header:=xlGuess, OrderCustom:=1, _
       MatchCase:=False, Orientation:=xlTopToBottom
   Columns("A:A").Delete Shift:=xlToLeft
   Application.ScreenUpdating = True
End Sub

Gruß Peter

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread