Akte X ?
11.08.2004 00:34:52
Werner
hat jemand dafür eine einleuchtende Erklärung? Mal die Codes nacheinander
ausführen:
Option Explicit
Sub Zeilenhoehe()
Rows("10:15").RowHeight = 0.5
End Sub
'==================================================
Sub Hidden_Test()
Dim r As Long
'Gemeldet wird True
For r = 10 To 15
MsgBox Rows(r).Hidden
Next
End Sub
'===================================================
Sub Einblenden_Test()
'Geht nicht
Rows("10:15").Hidden = False
End Sub
'===================================================
Sub Adressen_Test()
Dim B1 As Range
Set B1 = Cells.SpecialCells(xlCellTypeVisible)
MsgBox B1.Address(0, 0)
End Sub
mfg Werner