An Josef Ehrensberger
18.02.2005 22:28:00
Ernst
Habe noch eine Nachfrage bezüglich dem Code von gestern.
Habe Deinen Code um einen Wiederholungsblock ergänzt, es funktioniert auch!
Hätte man den Code nun einfacher schreiben können?
Bitte um eine Antwort.
mfg
Ernst Dunkel
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
On Error Resume Next
Me.Shapes("W17").Delete
Sheets("Tabelle3").Shapes(Target.Text).Copy
Me.Paste
With Me.Shapes(Me.Shapes.Count)
.Name = "W17"
.Left = 100
.Top = 20
End With
Target.Select
End If
If Target.Address = "$A$10" Then
On Error Resume Next
Me.Shapes("curPic").Delete
Sheets("Tabelle3").Shapes(Target.Text).Copy
Me.Paste
With Me.Shapes(Me.Shapes.Count)
.Name = "curPic"
.Left = 100
.Top = 200
End With
Target.Select
End If
End Sub