Wie finde ich heraus welche Spalten oder Zeilen ausgeblendet sind, damit ich sie in eine Combobox schreiben kann.
Danke und Gruss
TOM
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