Supportnet / Forum / Tabellenkalkulation
etwas in ein makro einbinden aber wie
Frage
Hallo alle zusammen.
Ich habe folgendes.
Wenn ich in einer Useform auf einen
Button klicke
wird folgendes makro ausgeführt
Private Sub userformzwei_Click()
ActiveSheet.Unprotect
Range("A50:K69").Select
Selection.Clear
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
UserForm14.Hide
End Sub
ich möchte aber das folgendes auch noch ausgeführt wird
weiß nicht ob dieses richtig geschrieben ist,
Ich glaube nicht.
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$14" Then
Select Case Target.Value
Case ""
Shapes("Bild 1").Visible = False
Shapes("Bild 2").Visible = False
Case "Albula Ring"
Shapes("Bild 1").Visible = True
Shapes("Bild 2").Visible = False
Case "Bommel´s Raceland"
Shapes("Bild 2").Visible = True
Shapes("Bild 1").Visible = False
If Target.Address = "$D$34" Then
Select Case Target.Value
Case ""
Shapes("Bild 1").Visible = False
Shapes("Bild 2").Visible = False
Case "Albula Ring"
Shapes("Bild 1").Visible = True
Shapes("Bild 2").Visible = False
Case "Bommel´s Raceland"
Shapes("Bild 2").Visible = True
Shapes("Bild 1").Visible = False
End Select
End If
End Sub
Vielen Dank
Gruß
Marco