Hilfe bei Code, Synthax zur Schleife und Format

Bild

Betrifft: Hilfe bei Code, Synthax zur Schleife und Format von: Martin1976
Geschrieben am: 14.03.2005 18:21:25

Hallo
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

Bild


Betrifft: AW: Hilfe bei Code, Synthax zur Schleife und Format von: Bert
Geschrieben am: 14.03.2005 18:29:38

Was soll passieren, wenn Leerzellen dabei sind?

Bert


Bild


Betrifft: AW: Hilfe bei Code, Synthax zur Schleife und Format von: Martin1976
Geschrieben am: 14.03.2005 18:35:29

Die sollten ignoriert werden.
Also wenn eine leere Zeele dabei ist einfach keinen Wert ermitteln.

Danke schonmal.


Bild


Betrifft: AW: Hilfe bei Code, Synthax zur Schleife und Format von: Bert
Geschrieben am: 14.03.2005 18:53:48

Option Explicit
Sub Schaltfläche1_BeiKlick()
Dim c As Range
For Each c In ActiveSheet.UsedRange
  If Not IsEmpty(c) Then
    If c.Column > 1 Then
      If c.IndentLevel <> 0 Then
         c.Offset(0, -1) = c.IndentLevel
      Else
         c.Offset(0, -1) = 66
      End If
    End If
  End If
Next
End Sub


Gruß Bert


Bild


Betrifft: Vielen Dank! von: Martin1976
Geschrieben am: 14.03.2005 19:09:01

Hi Bert,

vielen Dank für deine Hilfe!
Grüße

Martin


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Hilfe bei Code, Synthax zur Schleife und Format"