Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
740to744
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige