Formatierung per VBA geht nicht
02.02.2010 13:24:34
Jens
Hallo Leute!
Problem 1:
Ich habe einen Plan mit verschiedenen Tabellenblättern erstellt. In einem Tabellenblatt lasse ich über ein Makro bei bestimmtem Inhalt der Zelle die Hintergrundafrbe ändern.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehlerwert
With Target.Interior
Select Case LCase(Target)
Case "fb": .ColorIndex = 35
Case "mk": .ColorIndex = 36
Case "eks": .ColorIndex = 37
Case "eko": .ColorIndex = 42
Case "dp": .ColorIndex = 43
Case "ham": .ColorIndex = 44
Case "rds": .ColorIndex = 45
Case "log": .ColorIndex = 40
Case "vs": .ColorIndex = 50
Case "it": .ColorIndex = 46
Case "kon": .ColorIndex = 24
Case "fe": .ColorIndex = 48
Case Else: .ColorIndex = xlNone
End Select
End With
Exit Sub
Fehlerwert:
End Sub
Nun wollte ich dieselbe Formatierung auf eine anderes Tabellenblatt anwenden. Leider geht das ganze nicht (womöglich weil die Zellen die formatiert werden sollen Formeln beinhalten?) über die Bedingte Formatierung funktionert es, dort reichen mir aber die Bedingungen nicht aus.
Problem 2:
Gleiches Tabellenblatt, ähnliches Problem: Ich möchte in einer Tabelle bei der Zeilen hinzukommen, dass die Zeile einen Rahmen bekommt. Habe es schon mit der Bedingten Formatierung versucht, bin aber zu keinem Ergebnis gekommen
Ich füge die Datei als Anhang bei (Es handelt sich um das Tabellenblatt Monatsübersicht)
Vielen Dank für eure Antworten
https://www.herber.de/bbs/user/67687.xls