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.
Hallo,
zeichne das Formatieren mit dem Makro Rekorder auf, dann hast Du die Syntax.
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.
(29.04.2016, 16:56)atilla schrieb: [ -> ]Hallo,
zeichne das Formatieren mit dem Makro Rekorder auf, dann hast Du die Syntax.
War ein guter Tipp!
Die gesuchte Antwort war:".IndentLevel = 1"
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
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