Formatierung, einrücken
21.01.2016 15:46:50
Alex
nachdem mir das erstemal super geholfen wurde, habe ich nun ein weiteres Problem:
Ich habe verschiedene Arbeitsmappen, in denen in Spalte A nummeriert wird und B der Text steht:
A1='1 B1=Unternehmen
A2='1.1 B2=Abteilung
A3='1.1.1 B3=Team
usw...
Jetzt würde ich gerne wollen, dass 1.1 einmal eingerückt wird, 1.1.1 zweimal eingerückt und dazu auch die dazugehörige B-Zeile.
Ich habe schon etwas rumgebastelt, aber mir fällt keine Idee ein, dass mit einer "kleinen" Funktion hinzubekommen bzw. überhaupt es hinzubekommen.
Leider funktioniert der Code noch nicht mal für A1:1...
Jemand eine Idee oder sowas schon mal benötigt?
Private Sub CommandButton21_Click()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange.Columns("A").Cells
If Len(zelle) = 1 Then
With Range("A1:B1")
.IndentLevel = 1
End With
ElseIf Len(zelle) = 3 Then
With Range("A1:B1")
.IndentLevel = 2
End With
ElseIf Len(zelle) = 5 Then
With Range("A1:B1")
.IndentLevel = 3
End With
ElseIf Len(zelle) = 7 Then
With Range("A1:B1")
.IndentLevel = 4
End With
ElseIf Len(zelle) = 9 Then
With Range("A1:B1")
.IndentLevel = 5
End With
Else
End If
Next
End Sub
Viele Grüße und Danke!
Alex