Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Nummerierung

Automatische Nummerierung
05.10.2006 10:43:21
Andreas
Hallo,
ich möchte in Tabelle1 untereinander stehenden Texte oder Zahlen
durchnummerieren.
Der Text steht in Spalte B und nummeriert soll in Spalte A werden.
So sollte es aussehen.
Nr.1 | Name
Nr.2 | Name
Nr.3 | z.B. Zahl
usw.
Es sollten aber nur diese nummeriert werden da wo auch was drinsteht.
Wie schreibt man das in VBA
Gruß
Andreas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Nummerierung
05.10.2006 10:49:13
Reinhard
Hi Andreas,
Tabellenblattname: Tabelle1
A    B
1  1     a
2  2     s
3
4  3     d
5  4    33
6  5     r
7
8  6   456
Benutzte Formeln:
A1:  =WENN(B1="";"";ANZAHL2($B$1:B1))
A2:  =WENN(B2="";"";ANZAHL2($B$1:B2))
A3:  =WENN(B3="";"";ANZAHL2($B$1:B3))
A4:  =WENN(B4="";"";ANZAHL2($B$1:B4))
A5:  =WENN(B5="";"";ANZAHL2($B$1:B5))
A6:  =WENN(B6="";"";ANZAHL2($B$1:B6))
A7:  =WENN(B7="";"";ANZAHL2($B$1:B7))
A8:  =WENN(B8="";"";ANZAHL2($B$1:B8))

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Automatische Nummerierung
05.10.2006 10:53:09
Peter
Hallo,
die Lösung von Reinhard ist geschickter als meine, weil dort auch Leerzeilen auftauchen können.
mfg
Peter
AW: Automatische Nummerierung
05.10.2006 10:50:06
Peter
Hallo Andreas,
ich würde es mit einer bzw. zwei einfachen Wenn-Funktionen lösen.
Zelle A1: =WENN(B1"";1;"")
Zelle A2: =WENN(B2"";A1+1;"")
mfg
Peter
AW: Automatische Nummerierung
05.10.2006 11:12:18
Andreas
Hallo ihr beiden,
erstmal Danke für die schnelle Antwort.
Ich bräuchte ein kleines Makro dafür, denn dieser Text oder Zahlen
ändern sich laufend.
Es soll so eine art Auswertung werden mit Platzergebnissen (Nr.1, Nr.2 usw.)
Zeilen werden immer wieder irgendwo eingefügt.
Ich möchte einen Button machen der das immer neu durchnummerieren.
Gruß
Andreas
Anzeige
AW: Automatische Nummerierung
05.10.2006 11:50:07
Heribert
Hi Andreas,
versuche mal folgendes
Nummerierung Spalte A wenn Inhalte in Spalte B

Private Sub CommandButton1_Click()
Dim i As Long
Dim lfd As Long
lfd = 1
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value <> "" Then
Cells(i, 1).Value = "Nr." & lfd
lfd = lfd + 1
End If
Next i
End Sub

Gruss Heribert
AW: Automatische Nummerierung
05.10.2006 11:53:26
Heribert
Hi, nochmals ich,
habe vergessen, die alte Nummerierung zu löschen.
Hier die Korrektur.

Private Sub CommandButton1_Click()
Dim i As Long
Dim lfd As Long
lfd = 1
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(i, 1).ClearContents
If Cells(i, 2).Value <> "" Then
Cells(i, 1).Value = "Nr." & lfd
lfd = lfd + 1
End If
Next i
End Sub

Heribert
Anzeige
AW: Automatische Nummerierung
05.10.2006 11:55:08
Andreas
Hallo Heribert,
ich muss sagen perfekt.
So wollte ich es haben.
Danke dafür.
Gruß
Andreas W.
Bitteschön (o.T.)
05.10.2006 11:58:49
Heribert
.

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige