Mit Schleife Spalte duchlaufen, aber nur sichtbare

Hi,
ich habe ein Sheet, da stehn ab Zeile 3 Datensätze drin. Ist sowas, wie eine Inhaltsangebe
Zwischendrin kommen immer wieder leere Zeilen (die müssen drin bleiben, bitte nicht rausfiltern)
Bei Bedarf mache ich ein paar Zeilen per Makro unsichtbar.
Nun möchte ich die noch sichtbaren DS durchnummerieren. :
In der ersten Zeile, wo Spalte A NICHT LEER, in die Spalte AI = "Seite 1" schreiben
In der nächsten Zeile, wo Spalte A NICHT LEER, in die Spalte AI = "Seite 2" schreiben
In der nächsten Zeile, wo Spalte A NICHT LEER, in die Spalte AI = "Seite 3" schreiben
usw.
Dabei sollen aber die ausgeblendeten Zeilen NICHT berücksichtigt werden. Nur die sichbaren sollen beschrieben werden.
Das Problem dabei ist sicherlich: die leeren Zeilen zwischen drin, ich kann also in der Spalte AI nicht einfach mal eine Zelle nach oben schauen und so einfach einen Counter um 1 erweitern.
Ich könnte aber so sagen: Überall, wo A NICHT LEER und die Zeile NICHT AUSGEBLENDET, da die Seitenangabe machen.
Hat da jemand eine Idee, wie man das per Makro machen kann.
Danke mal
Jockel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub xxx() Dim c As Range, i As Integer Application.ScreenUpdating = False For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells( _ xlCellTypeVisible) If c "" Then i = i + 1 c.Offset(, 34) = "Seite " & i End If Next c End Sub

Function GetPage(iRow As Long) As Long Dim i As Integer, x As HPageBreak, hp As HPageBreaks Application.ScreenUpdating = False ActiveWindow.View = xlPageBreakPreview Set hp = ActiveSheet.HPageBreaks For Each x In hp If x.Location.Row

Private Sub CommandButton1_Click() Dim c As Range Application.ScreenUpdating = False For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) _ .SpecialCells(xlCellTypeVisible) If c "" Then c.Offset(, 34) = GetPage(c.Row) End If Next c End Sub

Hallo Rudi,
jetzt bin ich dahinter gekommen, wie du das meint: der Code zeigt an, auf welcher Seite eines Blattes sich die entsprechende Zeile befindet.
Das wird mir aber nicht weiter helfen, ich glaub, da habe ich mich ungelÃ¼cklich ausgedruckt. Ich versuche es nochmal:
also, ich habe eine Mappe mit verschiedenen TabellenblÃ¤tter. Darunter ist auch eine Seite, (meine Beispielmappe) die praktisch das Inhaltsverzeichnis darstellt.
Das ganze sollte nun so funktionieren. Wenn ich das ganze ausdrucke, dann hÃ¤tte ich auf der Seite gerne gesehen : zB Tabellenblatt
"AUSGABEN" = Seite 2
"EINNAHMEN" = Seite 3
"BELEGE" = Seite 4
usw.
Das ganze funktioniert so lange mit Deinem Code (von gestern) , solange jeder dieser TabellenblÃ¤tter nur aus einer Seite besteht. Sobald es aber mal eine Tabellenblatt hat, das sich Ã¼ber zwei Seiten ersteckt, stimmen die Seitenangaben nicht mehr, weil der Code ja wie ein Counter die Seiten enfach hochzÃ¤hlt.
(So hatte ich mir das auch vorgestellt)
Zu diesem Zeitpunkt habe ich aber noch nicht bedacht, dass es TabellenblÃ¤tter mit zwei oder gar 3 Seiten gibt (Vorschau)
Und da hÃ¤nge ich nun.
Durch das Beispiel von Nepumum konnte ich ja ermitteln, um vielviel Seiten es sich handelt. wie bekomme ich diese Anzahl, wenn sie grÃ¶sser als 1 ist, in deinen ZÃ¤hler rein.
Vielleicht fÃ¤llt mir noch was schlaues ein.
Danke
Jockel

Private Sub CommandButton1_Click() Dim wksInhalt As Worksheet Dim c As Range, strBlatt As String, iCounter As Integer iCounter = 1 Set wksInhalt = ActiveSheet Application.ScreenUpdating = False With wksInhalt For Each c In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) _ .SpecialCells(xlCellTypeVisible) If c "" Then strBlatt = c.End(xlToRight) If strBlatt = "n" Then strBlatt = c.End(xlToRight).End(xlToRight) c.Offset(, 34) = iCounter Sheets(strBlatt).Activate iCounter = iCounter + ExecuteExcel4Macro("get.document(50)") End If Next c End With wksInhalt.Activate End Sub

Beliebteste Forumthreads (12 Monate)

Mit Schleife Spalte duchlaufen, aber nur sichtbare

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit Schleife Spalte duchlaufen, aber nur sichtbare

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread