Wie finde ich heraus welche Spalten oder Zeilen ausgeblendet sind, damit ich sie in eine Combobox schreiben kann.
Danke und Gruss
TOM
VG,
Alex
Gruss
TOM
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
VG,
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
Sub Ausgeblendet()
Dim i
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Rows(i).Hidden = True Then
ComboBox1.AddItem "Zeile " & i
End If
Next i
End Sub
Danke für Deine Geduld
TOM