Zellen verbinden wenn
01.12.2014 12:24:18
Matthias
Ich suche eine Lösung per VBA für folgendes Problem:
In einer Tabelle ("Auftrag") steht in der Spalte A gewisse Werte. Einer der Werte heisst "Leerzeile". (Kann mehrfach vorkommen).
Ich möchte nun dass er beim Wert "Leerzeile" in Spalte A jede Zeile wo "Leerzeile" drinsteht die Zeile von B:H Linksbündig (statt zentriert) verbindet.
Mein Code fängt so an:
Sub Leerzeilen()
Sheets("Auftrag").Select
Dim rSuche As Range, rFinde As Range
Set rFinde = Range("A:A")
Set rSuche = rFinde.Find(What:="Leerzeile", lookAt:=xlWhole, LookIn:=xlValues)
'Ab hier hab ich das Problem, dass jede Zeile wo "Leerzeile" steht der nachfolgende Code _
rein sollte!
Range("B:H").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Liebe Grüsse
Matthias
Anzeige