Fortlaufende Nummerrierung

Hallo Zusammen,
ich bin kurz vor'm verzweifeln. Habe folgendes Problem:
Ich habe eine Haupttabelle in der sehr viele Daten stehen. Diese Tabelle enthällt Namen, Adressen und weitere Daten von Personen. Innerhalb dieser Tabelle setze ich ein Kreuz neben verschiedenen Namen die untereinander stehen. Wobei hier die Auswahl der Namen unterschiedlich statfinden kann - (nicht jeder Name untereinander bekommt diese Kennzeichnung. Jetzt kopiere ich automatisch die Namen inkl. aller Daten dieser Personen, welche durch ein Kreuz gekennzeichnet sind, auf ein extra Tabellenblatt. Dies mache ich mit folgender Funktion (Exemplarisch für eine Zelle): =WENN(INDEX(Personen!$V:$V;4)="x";INDEX(Personen!$A:$A;4);"") - Die Index Funktion benötige ich da in der Haupttabelle immer wieder neue Name hinzugefügt bzw. gelöscht werden müssen. Somit bleibt mein verweis auf die Zeile und Spalte der Haupttabelle bestehen.
Durch diesen übertrag in das neue Tabellenblatt habe ich dadurch sehr viele Lücken zwischen den verschiedenen Namen untereinander. Diese leerzeilen lasse ich durch ein Makro löschen, somit habe ich alle Namen inkl. aller Daten untereinander stehen.
Jetzt zum Problem: In Spalte A möchte ich eine Vortlaufende Nummerrierung stattfinden lassen, jedoch nur für die ANzahl der kopierten Namen.
Ich hatte die mit der Funktion =WENN($C7"";SUMME(A6+1);"") durchgeführt. Jedoch verliert diese Funktion nach sortiervorgang mit dem Makro (löschen der Leerzeilen) jedlichen Bezug und eine Nummerrierung findet nicht statt.
Ich habe es auch schon mit index und Indirekt versucht, jedoch ohne erfolg!
Das Tabellenblatt beginnt bei A6 mit dem Eintrag einer 1 - A7 soll sich dann selbst berechnen wenn in der Zelle C7 etwas eingefügt wurde. Für den Fall das erst in der Zeile C23 der erste Eintrag vorkommt und nach ausführen des Makros (lösche alle leeren Zellen) und sich die Zeiel 23 auf die Zeile 7 hochschiebt, ist der Bezug zu C7 verloren gegangen.
Gibt es hierzu eine Lösung? Evtl. doch über Index bzw. Indirekt oder wenn nötig über VBA?
Vielen Dank für die Hilfe
Gruß
Stefan...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Leere_Zellen_löschen() ' Leere_Zellen_löschen Makro ' Löscht alle nichtrelevanten Zellen von C6 bis n260 Dim ze_zähler As Integer Dim sp_zähler As Integer Dim ZeileBehalten As Boolean Dim zeilenende As Integer Dim a As Range Set a = ThisWorkbook.Worksheets("Adressliste").Range("c6:m260") For ze_zähler = a.Rows.Count To 1 Step -1 ZeileBehalten = False For sp_zähler = 1 To a.Columns.Count If a.Cells(ze_zähler, sp_zähler) "" Then ZeileBehalten = True: Exit For Next sp_zähler If Not ZeileBehalten Then a.Rows(ze_zähler).Delete Next ze_zähler End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread