Mehrfacheingabe formatierungen
13.02.2008 17:01:00
Matthias.G.
es geht um mehrfacheingabe, besser gesagt 5 Zellen aufeinmal ,
die einzeleingabe funzt prima.
https://www.herber.de/bbs/user/49896.xls
der codei st hier gekürzt in der hochgeladenen datei natürlich nicht:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bedingung1 As String, Farbe1 As String,
Bedingung1 = Range("B6")
Farbe1 = Range("B8")
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
Case Bedingung1
Target.Interior.ColorIndex = Farbe1
Case Else
Target.Interior.ColorIndex = 2
End Select
End Sub