Formatierung von Zellen

[lapunta]

Bin gerade dabei ein Formular über VBA zu formatieren und habe dabei ein kleines Problem:

Code:

Range("D13:E17").Select
   Range("D13").Activate
       
   With Selection
       .Font.Name = "Arial Narrow"
       .Font.Size = 10
       .HorizontalAlignment = xlRight
       
   End With

Momentan ist die Ausgabe ja rechtsbündig ausgerichtet. Geht das auch mit einem Leerzeichen am Ende?

Formatiert man das über die Optionen in Excel, heißt es  Einzug.

[atilla]

Hallo,

zeichne das Formatieren mit dem Makro Rekorder auf, dann hast Du die Syntax.

[Käpt'n Blaubär]

Hallo,

in Deinem Code wird nichts ausgegeben. Jedenfalls habe ich nichts gefunden.

Außer dieser Tatsache habe ich Dich wohl nicht richtig verstanden, denn wenn
Du Texte ausgeben läßt, dann packst Du sie doch in Gänsebeinchen und dann
machst Du bei Dir eben noch vor dem schließenden Gänsefüßchen eben noch
ein Leerzeichen.
Aber ich kann mir gut vorstellen, daß das nicht der Grund Deiner Frage war.
Mach mich also schlau.

[lapunta]

Hallo,

zeichne das Formatieren mit dem Makro Rekorder auf, dann hast Du die Syntax.

War ein guter Tipp!

Die gesuchte Antwort war:".IndentLevel = 1"

[lapunta]

Hallo,
Ich grabe mal wieder ein altes Thema raus und stelle eine neue Anfängerfrage dazu:

Ich habe mir ein Makro geschrieben, das mir meine Tabelle formatiert. Läuft zwar perfekt, jedoch stört mich der Bereich, in dem in der Spalte 4 die Schrift formatiert wird.
Ich denke, die ganzen Formatierungsanweisungen können irgendwie zusammengefasst werden, daß das ganze etwas eleganter wirkt.

Code:

Sub Seiteformatieren()
Dim i As Long
Dim maxrow As Integer

   For i = 7 To ActiveSheet.UsedRange.Rows.Count
     maxrow = maxrow + 1
     Cells(i, 1) = maxrow 'Spalte 1 durchnummerieren
     'Spalte 4 Formatieren
     Cells(i, 4).Font.Name = "Arial Narrow"
     Cells(i, 4).Font.Size = 10
     Cells(i, 4).Font.ColorIndex = 49
     Cells(i, 4).Font.Bold = True
     Cells(i, 4).IndentLevel = 1 'Einzug auf 1

     If i Mod 2 = 1 Then
       Rows(i).Interior.ColorIndex = 2
     Else
       Rows(i).Interior.ColorIndex = 24
     End If
   Next i

End Sub

[BoskoBiati]

Hallo,

da würde ich mal darüber nachdenken, ein intelligente Tabelle draus zu machen, die färbt  die Zeilen im Wechsel. Die Spalte 4 kannst Du als Ganzes formatieren.
Ansonsten:

Code:

set rng=Range("D7:D" & maxrow)

with rng.font
 
    .Name = "Arial Narrow"
   .Size = 10
   .ColorIndex = 49
   .Bold = True
end with
rng.indentlevel=1