Hallo an alle,
vielen, vielen Dank für eure Hilfe! Das mit dem Kopieren funktioniert jetzt. :-)
Allerdings habe ich im Moment ein anderes, sehr großes Problem, mit dem ich mich den ganzen Tag befasst habe, es aber leider nicht zum Laufen bekomme. Ich hoffe, dass ich euch nicht damit nerve... Ich habe die Objekte in Tabelle1 mit "01", "02", "03" usw. benannt (bis 99). Das Objekt "01" soll sich verfärben, wenn sich Zelle A1 in Tabelle2 verändert, Objekt "02" soll sich verfärben, wenn sich Zelle A2 verändert usw. Mit dem untenstehenden Code funktioniert dies auch für das erste Objekt. Allerdings weiß ich einfach nicht, wie ich den Code mit einer Schleife kombinieren kann, so dass nacheinander die Zellen A1, A2, A3 usw. sowie die Objekte 01, 02, 03 usw. innerhalb des Change-Ereignisses durchgezählt werden. Ich habe schon daran gedacht, den unten stehenden Code 99 Mal für jedes Objekt einzufügen, aber leider habe ich nach 21 Mal die Fehlermeldung erhalten, dass der Code zu lange wäre:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim K As Shape
If Target.Address(0, 0) = "A1" Then
Set K = Tabelle1.Shapes("01")
K.Fill.Visible = msoTrue
K.Line.Visible = msoFalse
If [A1] <= 10 And [A1] >= 0 Then
K.Fill.ForeColor.SchemeColor = 10
ElseIf [A1] <= 20 And [A1] > 10 Then
K.Fill.ForeColor.SchemeColor = 12
Else
K.Fill.ForeColor.SchemeColor = 1
End If
End If
End Sub
Ich wäre euch sehr dankbar, wenn irgendjemand einen Tipp für mich hätte. So langsam bin ich am Verzweifeln...
Viele Grüße
Christine
|