Zelle für Makro-Start überwachen
25.07.2006 12:46:16
Düppi
in Tabelle1 ist in Zelle A1 eine Dateneingabe über Daten/Gültigkeit/Liste vorgesehen. Die Liste umfasst 32 Werte. Gemäß der Auswahl des Benutzers zeichnet ein Makro in Tabelle1 dicke Linien - immer an anderer Stelle (Makro dafür siehe unten).
Nun möchte ich die gleichen Linien auch in Tabelle2 haben - dort soll aber keine Dateneingabe in A1 erfolgen. Ich möchte, dass A1 aus Tabelle1 "überwacht" wird und ich das Makro somit auch in Tabelle2 nutzen kann. Wie muss ich das VBA-Modul umschreiben?
Für VBA-Profis kein großer Schritt, für Düppi schon... Danke für Hilfe!
Hier das Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Const Zelle = "A1"
If Target.Address = Range(Zelle).Address Then
Dim l, liste, eintr
On Error Resume Next
l = WorksheetFunction.VLookup(Target.Value, Sheets("Druckschemen").Range("A1:B32"), 2, False)
Range("A5:AJ52").Borders.LineStyle = xlContinuous
liste = Split(l, ",")
For Each eintr In liste
With Range("A5:AJ52").Rows(eintr).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next
End If
End Sub