Ausrichten in Zelle
23.07.2008 09:00:00
Ralf
ich möchte gerne von B 12 bis B 1000 die Zellen ausrichten,
je nachdem ob dort ein A ( linksbündig) B (Mitte) oder C (rechtsbündig)
steht. Mit meinen sehr sehr bescheidenen VBA Kenntnissen habe ich
diesen Code entwickelt, könntet Ihr mir helfen, ihn zum Laufen zu bringen ?
Sub Ausrichten()
Dim c As Range
Range("B12:B1000").Select
For Each c In Selection
If c.Value = "A" Then
.HorizontalAlignment = xlLeft
End If
If c.Value = "B" Then
.HorizontalAlignment = xlCenter
End If
If c.Value = "C" Then
.HorizontalAlignment = xlRight
End If
Next c
End Sub
Viele :-) Grüße
Ralf