Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren und lfd. Nr. ändern

Forumthread: Sortieren und lfd. Nr. ändern

Sortieren und lfd. Nr. ändern
07.03.2006 16:55:08
Dietmar
Hallo an alle
Ich möchte nach einem Sortiervorgang die laufende Nummer entsprechend der
Sortierung geändert haben.
Um mein Problem genaustens zu schildern, habe ich ein Beispiel beigefügt.
Ich hoffe dass hierdurch alles beschrieben ist.
https://www.herber.de/bbs/user/31688.xls
mfg
Dietmar
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sortieren und lfd. Nr. ändern
07.03.2006 16:57:26
Bertram
Hallo Dietmar,
schreib doch statt der fixen Nummerierung, statt "1" in deinem Fall die Formel =Zeile()-5
und sortiere alles außer dieser Spalte.
Gruß
Bertram
AW: Sortieren und lfd. Nr. ändern
07.03.2006 17:02:15
Dietmar
Hallo Bertram
Danke für schnelle Antwort, aber leider sagt mir das nichts. Neben der Bezeichnung
ATR soll ja die Zahlenfolge 1 bis ... stehen bleiben. Nur bei der Bezeichnung EUR
soll dann wieder 1 bis ... stehen ! Die Anzahl der mit ATR oder EUR beschriebenen
Zellen varieren immer !
mfg
Dietmar
Anzeige
AW: Sortieren und lfd. Nr. ändern
07.03.2006 17:16:54
Bertram
Hi,
man sollte halt alles lesen:-) Probier's mal so:

Sub LaufendeNummer()
Dim zelle As Range
Dim i As Integer
Dim j As Integer
i = 1
j = 1
For Each zelle In ActiveSheet.Columns(5).Cells
Select Case zelle.Value
Case "ATR"
zelle.Offset(0, -1).Value = i
i = i + 1
Case "EUR"
zelle.Offset(0, -1).Value = j
j = j + 1
End Select
Next zelle
End Sub

Gruß
Bertram
Anzeige
AW: Sortieren und lfd. Nr. ändern
07.03.2006 17:21:48
HermannZ
Hallo Dietmar;
wenn deine Tabelle wie im Beispiel aufgebaut ist geht folgendes; in Zelle D6 folgende Formel: =WENN(E6=E5;D5+1;1)
gruß hermann
AW: Sortieren und lfd. Nr. ändern
08.03.2006 07:58:39
Dietmar
Hallo Hermann
Hallo Bertram
Vielen Dank für die Vorschläge, mit beiden lässt sich super arbeiten !
mfg
Dietmar
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige