Hilfe bei Code, Synthax zur Schleife und Format
14.03.2005 18:21:25
Martin1976
ich möchte eine Formatinfo über eine bestimte Zelle in eine andere Zelle ausgegen.
Ich möchte das Format einer Zelle ermitteln(nur den IndentLevel) und den Zahlwert des IndentLevels in die Zelle jeweils links davon schreiben.
Kann mir jemand bei dem Code helfen?
Vielen Dank schon mal für das Interesse!
Martin
Ich bin nur soweit gekommen:(also eher nicht so weit)
Sub hh()
Dim c As Range
Dim i As Byte
For Each c In ActiveSheet.UsedRange
If c.IndentLevel > 0 Then
Cells(i, 1).Value = c.IndentLevel
Else
Cells(c, 1).Value = 66
End If
Next c
End Sub
Anzeige