Spalten aus/einblenden

Morgen Zusammen

Wie finde ich heraus welche Spalten oder Zeilen ausgeblendet sind, damit ich sie in eine Combobox schreiben kann.

Danke und Gruss
TOM

Hallo Tom !
Ein Schleife starten
If Rows(i).Hidden = False (oder True) then
Comboxbox1.AddItem

VG,
Alex

Besten Dank Alex
klappt Tip-Top

Gruss
TOM

Sali Alex
ich habe mich glaube zu früh bedankt.............
Deine Schleife habe ich ausprobiert aber wie definiere ich das Ende wenn ich nicht weiss bis wo Zeilen ausgeblendet sind (??)

Sub Ausgeblendet()
Dim i
Dim strZeile As String
For i = 1 To ??
If Rows(i).Hidden = True Then
strZeile = Rows.Address
ComboBox1.AddItem strZeile
End If
Next i
End Sub

Hast Du nochmals einen Tip
Gruss aus der Schweiz
TOM

Hallo Tom !
Du könntest vor dem Ausblenden die letzte beschriebe Zeile mit
i = cells(rows.Count,1).end(xlup).row
ermitteln

VG,
Alex

Sali Alex

ich bin's nochmals.....
Habe meine Code nochmals angepasst.....Danke für Deinen Tip.
Sub Ausgeblendet()
Dim i
Dim strZeileNr As String
Dim strLetzteBeschriebeneZelle As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Rows(i).Hidden = True Then
strZeileNr = Rows.Address
ComboBox1.AddItem strZeileNr
End If
Next i
End Sub

Hast Du mir jetzt noch einen letzten Tip wie ich die Zeilen-Nr. bekomme. Mit Rows.Address bekomme ich "$1:$65536"
Ich möchte aber in der Combobox1 "Zeile 1" aufgeführt.

Danke und schönes Weekend
TOM