Text einrücken mit VBA
04.03.2014 15:59:43
Schmecks
ich habe wiedermal eine neue Aufgabe für Euch, bei der Ihr mir helfen könnt.
Ich habe eine Tabelle, wie angefügt. Darin können die ersten beiden Spalten immer in der angegebenen Form (Gliederungstiefe und Gliederungsnummer) ausgegeben werden. Eventuell brauche ich nicht beide für die Abfrage mit VBA.
Ich möchte nun das nur die Spalte "C" anhand der Splate A oder B, je nach Gliederungstiefe über Tabstopps o.ä. eingerückt wird (bitte nicht wie unten über Leerzeichen einrücken).
Evtl über:
Sub indent()
With Range("A1")
.IndentLevel = 2
End With
End Sub
Ich bräuchte das Einrücken mindestens bis zur 10. Ebene.Ich habe schon mit folgendem Code ein wenig herumprobiert, kann es jedoch auf meine Bedürfnisse nicht umschreiben:
Sub Text_Einruecken()
Const dreiBlank = " "
Const zweiBlank = " "
Const einsBlank = " "
Dim c As Range
Dim strTemp
For Each c In Range("C1:C1000")
strTemp = Application.Substitute(c.Value, " ", "x")
If IsNumeric(Left(strTemp, 3)) Then
c.Value = einsBlank & c.Value
Else
If IsNumeric(Left(strTemp, 2)) Then
c.Value = zweiBlank & c.Value
Else
If IsNumeric(Left(strTemp, 1)) Then
c.Value = dreiBlank & c.Value
End If
End If
End If
Next c
End Sub
mfg der Schmecks