@Chaos: gibt doch ein kleines Prob ;o)
05.10.2007 13:47:00
popi
habe den Code soweit auf meine 5 Grafiken angepasst.
Aber leider fällt mir noch was auf.
Ich nutze das z.B in einer Tabelle mit Rahmen und da die Grafiken keinen Rahmen haben, wird die Formatierung der ursprünglichen Tabelle zerschossen.
Jetzt könnte ich natürlich einen Rahmen um die Grafik machen, das aber geht wiederrum bei Zellen nicht, die keinen Rahmen haben.
Kann man den Kopiervorgang ohne formatierung duchführen, also sowas wie:
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Ich bin mir nicht sicher, ob das das richtige ist und wie man das denn überhaupt einbindet.
Danke im voraus.
Grüße
popi
Dein Code auf meine Datei angepasst:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F:F")) Is Nothing Then
On Error GoTo ErrorHandler
Dim ro As Long
If Target.Value = 1 Then
ro = Target.Row
Worksheets("grafik").Range("A1").Copy Sheets(1).Range("F" & ro)
End If
If Target.Value = 2 Then
ro = Target.Row
Worksheets("grafik").Range("A2").Copy Sheets(1).Range("F" & ro)
End If
If Target.Value = 3 Then
ro = Target.Row
Worksheets("grafik").Range("A3").Copy Sheets(1).Range("F" & ro)
End If
If Target.Value = 4 Then
ro = Target.Row
Worksheets("grafik").Range("A4").Copy Sheets(1).Range("F" & ro)
End If
If Target.Value = 5 Then
ro = Target.Row
Worksheets("grafik").Range("A5").Copy Sheets(1).Range("F" & ro)
End If
End If
ErrorHandler:
End Sub
Anzeige