Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei Code, Synthax zur Schleife und Format

Hilfe bei Code, Synthax zur Schleife und Format
14.03.2005 18:21:25
Martin1976
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Code, Synthax zur Schleife und Format
14.03.2005 18:29:38
Bert
Was soll passieren, wenn Leerzellen dabei sind?
Bert
AW: Hilfe bei Code, Synthax zur Schleife und Format
14.03.2005 18:35:29
Martin1976
Die sollten ignoriert werden.
Also wenn eine leere Zeele dabei ist einfach keinen Wert ermitteln.
Danke schonmal.
AW: Hilfe bei Code, Synthax zur Schleife und Format
14.03.2005 18:53:48
Bert
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
Vielen Dank!
14.03.2005 19:09:01
Martin1976
Hi Bert,
vielen Dank für deine Hilfe!
Grüße
Martin
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige