Herbers Excel-Forum - das Archiv

Ausblenden und automatisch Durchnummerieren

Bild

Betrifft: Ausblenden und automatisch Durchnummerieren
von: Kalle

Geschrieben am: 18.02.2005 11:49:51
Hallo zusammen,
habe ein Inhaltverzeichnis, in der Spalte P Zeile 7 bis 15 stehen Zahlen 1 bis 15. Die Zahlen werden automatisch aufaddiert =p7+1 usw. Nun muß ich manchmal Zeilen ausblenden und danach die Zahlen manuell anpassen. Kann man das über ein Makro steuern, das wenn ich eine Zeile ausblende die richtige Durchnummerierung beibehalten wird ?
Vielen Dank und Gruss Kalle
Bild

Betrifft: AW: Ausblenden und automatisch Durchnummerieren
von: UweD
Geschrieben am: 18.02.2005 12:06:00
So??

Sub durchzählen()
Set My = Range("P7:P15")
My.Clear
i = 1
For Each Z In My.Cells
If Rows(Z.Row).Hidden = False Then
Z.Value = i
i = i + 1
End If
Next
End Sub


Gruß UweD
Bild

Betrifft: AW: Ausblenden und automatisch Durchnummerieren
von: Kalle
Geschrieben am: 18.02.2005 12:16:12
Hallo UweD,
perfekt, genauso habe ich mir das vorgestellt, es wird nur meine voreingestelle Schriftgröße von 12 auf 10 geändert, kann man das auch festlegen :-) ?
und nochmal vielen Dank für die schnelle Antwort.
Gruss Kalle
Bild

Betrifft: AW: Ausblenden und automatisch Durchnummerieren
von: Kurt
Geschrieben am: 18.02.2005 12:25:19
Sub durchzählen()
Set My = Range("P7:P15")
My.ClearContents
For Each Z In My.Cells
If Rows(Z.Row).Hidden = False Then
i = i + 1
Z = i
End If
Next
End Sub

 Bild
Excel-Beispiele zum Thema "Ausblenden und automatisch Durchnummerieren"
Fehlermeldung #NV ausblenden Spalten einer Mehrbereichsauswahl ausblenden.
Symbolleisten ein-/ausblenden Zeilen und Spalten über ein Drehfeld ein- und ausblenden
Excel für die Zeit eines Dialogaufrufes ausblenden ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
Alle Menüs und Symbolleisten ausblenden Entwicklungsumgebung ein- und ausblenden
Leere Zeilen beim Druck ausblenden Alle leeren Spalten ausblenden