Laufende Zeilen-Nummerierung wenn Eingeblendet

Hallo Forum.
Ich habe schon versucht über das Stöbern im Archiv etwas Brauchbares zu finden, bin da aber nicht wirklich weiter gekommen.
Folgende Aufgabe möchte ich einfach nur bewältigen.
Ich habe ein Arbeitsblatt, wo in der ersten Spalte eine laufende Nummerierung zum restelichen Inhalt stattfindet. Die Formal dazu wird auch bei Erweiterung, z.B. durch CopyPaste wie erwartet gut übertragen.
Die Liste selber fängt nicht mit Zeile 1 an sondern erst bei Zeile 'X'.
In meinem Beipsiel sagen wir mal A8.
in A8 steht jetzt die '1' und in der nachfolgenden Zelle darunter die Formel:
'A8+1'. Wie gesagt bei CopyPaste der Zelle erhöht sich der Zähler automatisch.
Jetzt ist Excel aber irgendwie nicht ganz intelligent, will ich mal sagen - sorry ;-)
Lösche ich die Zeile passt Excel die Formel nicht automatisch an - d.h. alle folgenden Zellen werde nicht mehr berechnet.
Das ist also die erste Aufgabe - die Numerierung soll immer automatisch aktuallisiert werden. Von einer andere Tabellen-Kalkulation kenne ich das so, dort gibt es solch eine Art von Intelligenz.
Die zweite Sache ist, dass die Nummeriung auch automatisch angepasst wird, wenn ich Zeilen ausblende. In diesem Fall würde meine oben genannte Formel zwar weiter funktionieren, dennoch sind die Folgen lauter Aussetzerin der Spalte nach unten: 1,2,...,7,8,9...11,etc.
Was kann ich machen?
So, wie es sich mir im Moment darstellt kommt ich wohl ohne eine VBA-Prgrammierung nicht umhin?!?
Damit bin ich nun überhaupt nicht bewandert. Ich benötige lediglich ein einigermaßen automatisches Layout. Ein weiteres Vertiefen in die Programmierung würde meine Anforderung an Excel bei weitem Übertreffen und es wäre für meinen weiteren Umgang mit Excel auch nicht gerechtfertigt.
Ich hoffe, dass jemand von Euch sozusagen ein Script dazu irgendwo schon fertig hat und mir, bzw. auch den Anderen hier zur Verfügung stellen würde.
Ich bedanke mich ganz herzlich für Eure Hilfe.
MfG,
Andreas.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetselectionChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range, r As Long r = 1 For Each rng In Sh.Range("A8:A" & Cells(Rows.Count, 1).End(xlUp).Row) If Not rng.Rows.Hidden Then rng = r r = r + 1 End If Next End Sub

Hallo, Andreas,
sobald Du den VBA-Editor in der EXCEL-Anwendung geöffnet hast, in der sich Deine Arbeitsmappe befindet, für die diese Funktionalität erreicht werden soll.
Im Projekt-Explorer wählst Du das entsprechnde VBAProjekt der Mappe. Nun mußt Du entscheiden, ob die Prozedur auf nur eine bestimmte Tabelle (Tabelle x) oder auf alle in der Mappe enthaltenen Tabellen (DieseArbeitsmappe) wirken soll. Durch Doppelklick auf das Objekt Deiner Wahl, öffnest Du die zugehörige VBA-Code-Seite.
Es gibt also zwei(!) Versionen, von der nur eine auf der entsprechenden Code-Seite einzutragen werden braucht.
Für die E i n z e l-Tabelle "(TabelleX)"


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, r As Long
'If Not Target.Column = 1 Then Exit Sub
r = 1
For Each rng In Range("A8:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Not rng.Rows.Hidden Then
rng = r
r = r + 1
End If
Next
End Sub

Für a l l e Tabelle ("DieseArbeitsmappe")


Private Sub Workbook_SheetselectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range, r As Long
'If Not Target.Column = 1 Then Exit Sub
r = 1
For Each rng In Sh.Range("A8:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Not rng.Rows.Hidden Then
rng = r
r = r + 1
End If
Next
End Sub

Beide Versionen enthalten je die z.Z. Befehlszeile If Not Target.Column = 1 Then Exit Sub als Kommentar. In ihr steht die 1 für die Spalte A. Sie könnte eingesetzt werden, wenn häufig in der Tabelle mit Selektionen gearbeit wird, erfordern allerdings auch die Selektion einer Zelle in der Spalte A (=1), um die Änderungen sichtbar werden zu lassen.
Nun wünsche ich Dir, dass Du erfolgreich den Code eintragen kannst.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

Laufende Zeilen-Nummerierung wenn Eingeblendet

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread