Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Variabel nur eingeblendete Zeilen nummerieren

Variabel nur eingeblendete Zeilen nummerieren
12.08.2003 06:55:20
Franz W.
Guten Morgen Forum,
ich möchte in Spalte A eine Zeilennummerierung einfügen. Allerdings werden immer wieder verschiedene Zeilen ein- bzw. ausgeblendet. Die Zeilennummerierung sollte also variabel immer nur die eingeblendeten Zeilen betreffen, d.h. die ausgeblendeten Zeilen sollen von der Nummerierung ausgenommen werden. Weiß nicht so recht, wie ich da anfangen soll und bitte Euch um Eure Hilfe.
Vielen Dank schon mal im Voraus
Grüße
Franz

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variabel nur eingeblendete Zeilen nummerieren
12.08.2003 06:57:42
Hajo_Zi
Hallo Franz
ich habe es jetzt nicht getestet, aber schaue mal in die Hilfe unter Teilergebnis.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen. Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Anzeige
Mach ich, danke o.t.
12.08.2003 07:01:25
Franz W.
???
12.08.2003 07:09:08
Franz W.
Hallo Hajo,
sagt mir auf Anhieb nichts, muss ich später machen, da fehlt mir jetzt leider die Zeit dazu. Melde mich dann wieder.
Danke erstmal und Grüße
Franz

AW: ???
12.08.2003 07:37:29
Hajo_Zi
Hallo Franz
für numerische werte TEILERGEBNIS(2;A1:A125) oder für alphanumerisch TEILERGEBNIS(3;A1:A125)
Gruß hajo

erste Versuche
12.08.2003 09:27:24
Franz W.
Hallo Hajo,
hab mich jetzt mal bissl versucht damit, komme aber zu umgedrehter Nummerierung:
wenn ich die Formel so wie von Dir vorgeschlagen oben einsetze und runterkopiere bekomme ich eine Nummerierung von Groß nach Klein, d.h. es beginnt z.B. mit "15" und zählt dann rückwärts bis "1".
Meine Änderungsversuche sind bislang gescheitert, werde mich weiter versuchen.
Grüße
Franz

Anzeige
Teillösung
12.08.2003 09:42:15
Franz W.
Hallo Hajo,
hab jetzt eine Teillösung: die Numerierung beginnt bei mir ab Zeile 5, folgende Formel runterkopiert zählt richtig von 1 bis ...:
=TEILERGEBNIS(2;$B$5:B5)
Allerdings werden die ausgeblendeten Zeilen auch noch mit nummeriert. Wenn ich also z.B. von insgesamt 15 Zeilen zwischendrin 5 Zeilen ausblende, hat die letzte Zeile trotzdem noch die Nummer 15, obwohl nur noch 10 Zeilen sichtbar sind.
Grüße
Franz

VBA-LÖSUNG ALS FORMEL ??
12.08.2003 10:02:32
Franz W.
Hab jetzt einen kleinen Code für die Nummerierung:

Private Sub CommandButton2_Click()
z = 1
If Range("B65536") = "" Then loletzte = Range("B65536").End(xlUp).Row
For r = 5 To loletzte
If Not Rows(r).EntireRow.Hidden Then
Cells(r, 1) = z
z = z + 1
Else
Cells(r, 1) = ""
End If
Next
End Sub

Läßt sich das auch als Formel lösen?
Grüße
Franz

Anzeige
AW: VBA-LÖSUNG ALS FORMEL ??
12.08.2003 10:19:31
Hajo_Zi
Hallo Franz
das war wohl ein Fehlgriff mit Teilergebnis. Diese Funktion geht nur bei Autofilter, was ich jetzt erst bei der Testung festgestellt habe.
Für Deinen Code habe ich keine Formellösung.
Der Else Zweig kann entfallen.
Der Code Range("B65536").End(xlUp).Row führt zu einem Fehler falls B65536 belegt.
Ich muß mich Heute um meinen Lehrgang kümmern und kann nicht so viel im Forum arbeiten.
Gruß hajo

Keine Eile
12.08.2003 11:33:04
Franz W.
Hallo Hajo,
ich habe keine Eile, kann auch mal warten, bin selbst ja auch nicht immer dran. Hab mich inzwischen auch auf das Makro geeinigt (mit mir selbst *g*), brauche es ohnehin nach Ablauf eines Makros und hab's da jetzt dran gehängt. Reicht also. Das mit der Formel wäre also eh nur noch interessehalber gewesen.
Danke für die beiden Tipps, werd's ändern. Das eine muss wohl so ausschauen:
If Range("B65536") = "" Then loletzte = Range("B65536").End(xlUp).Row _
Else loletzte = 65536
???
Vielen Dank und Grüße
Frnaz

Anzeige
AW: Keine Eile
12.08.2003 11:45:42
Hajo_Zi
Hallo Franz
ich mache es immer so
loletzte = 65536
If Range("B65536") = "" Then loletzte = Range("B65536").End(xlUp).Row
Gruß Hajo

Danke! Reg...... o.t.
12.08.2003 12:51:11
Franz W.

205 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige