Office: (Office 2007) Zellenausrichtung

Hallöchen,

ich habe eine Spalte A in der die Werte 1, 2 oder 3 drinstehen.
Wenn die 1 drinsteht soll in Spalte B die 1 ganz linksbündig und in fett erscheinen !
Wenn die 2 drinsteht soll in Spalte B die 2 zentriert und mit einem Punkt davor erscheinen (.2), aber nicht fett !
Wenn die 3 drinsteht soll in Spalte B die 3 rechtsbündig und mit zwei Punkten davor erscheinen (..3), aber auch nicht fett !

Wie kann ich das mit VBA lösen ?

Hab schon einen Ansatz, aber damit kommt immer die Fehlermeldung "Laufzeitfehler 13, Typen unverträglich" *frown.gif* !

Hier mein Ansatz:

Private Sub CommandButton1_Click()

Dim Zelle As Range
Dim Bereich As Range
Dim x As Single
Dim y As Single
Dim z As Single


Set Bereich = Worksheets(3).Range("B1:B100")

For Each Zelle In Bereich

If Zelle.Value = "1" Then
x = Zelle.Row
Worksheets(3).Cells(x, 3).Value = "1" And _
Worksheets(3).Cells(x, 3).Font.Bold = True And _
Worksheets(3).Cells(x, 3).HorizontalAlignment = xlLeft
End If

If Zelle.Value = "2" Then
y = Zelle.Row
Worksheets(3).Cells(y, 3).Value = "2" And _
Worksheets(3).Cells(y, 3).Font.Bold = False And _
Worksheets(3).Cells(y, 3).HorizontalAlignment = xlCenter
End If

If Zelle.Value = "3" Then
z = Zelle.Row
Worksheets(3).Cells(z, 3).Value = "..3" And _
Worksheets(3).Cells(z, 3).Font.Bold = False And _
Worksheets(3).Cells(z, 3).HorizontalAlignment = xlRight
End If
Next
End Sub

:)

 

Hi mahtemilian!

Wenn ich deine Aufgabe richtig verstanden habe dann sollte das funktionieren.

Tabelle3:
1.Spalte: Kriterium
2.Spalte: Ergebnis

Code:

 

Hi,

probiere es mal so:

VBA-Code:

Private Sub CommandButton1_Click() Dim Zelle As Range For Each Zelle In Worksheets(3).Range("B1:B100")   With Zelle     If .Value = 1 Then       .Font.Bold = True       .HorizontalAlignment = xlLeft     ElseIf Zelle.Value = 2 Then       .Font.Bold = False       .HorizontalAlignment = xlCenter     ElseIf Zelle.Value = 3 Then       .Value = ".." & 3       .Font.Bold = False       .HorizontalAlignment = xlRight     End If   End With Next End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Moin, mahtemilian,

die Anweisungen zur Formatierung müssen ohne verbindendes And als Einzelanweisungen gegeben werden. Stehen dort wirklich Werte in den Zellen oder Zahlen?

Code:

 

Hi,
Danke an alle, die funktionieren einwandfrei, nur bei .2 erkennt er den Punkt als Komma ! VBA macht also 0,2 daraus !
Wie kann ich das noch lösen

@ Jinx: es stehen nur Zahlen in Spalte A !

mfg, Mahtemilian

 

Moin, mahtemilian,

Typumwandlung in String vornehmen:

Code:

Ein Apostroph voranstellen... *wink.gif*

 

Genau das was Jinx schon sagte.

Oder du formatierst vorher die Spalte auf Text