Nebenstehende Zelle färben
06.11.2008 22:17:42
Fred
Ich fülle eine Zelle über eine UF, wie kann ich es erreichen das auch die 4 daneben liegenden Zellen grau gefärbt werden. hier mal mein Code
Private Sub CommandButton2_Click()
Dim AZ As Range
If [G3] = "" Then
Set AZ = [G3]
Else
Set AZ = Cells(Rows.Count, 7).End(xlUp).Offset(2, 0)
With AZ.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
AZ = "AK../." & ComboBox1 & " " & "Inspektion../." & ComboBox2 & " " & "BV../." & ComboBox3 _
& " " & "Aufhaspel../." & ComboBox4 & " " & " Binder../." & ComboBox5 & " " & " Abhaspel../." & ComboBox6
'Columns("A:N)").AutoFit
Me.Hide
Unload Me
End Sub
Ich hoffe jemand weiss Rat.
Fred
Anzeige