Laufzeitfehler
25.08.2021 22:06:26
Sandra
ich hoffe sehr, dass Ihr mir helfen könnt, ich komme einfach nicht drauf, wodurch dieser Fehler ausgelöst wird, denn leider reicht mein VBA-Wissen, dann doch nicht soweit.
Auf einem Datenblatt möchte ich über Dropdown-Listen einige "Optionen" auswählen.
Bei zwei Optionen soll danach eine Aktion erfolgen:
1. der ausgewählte Winkel soll in ein Textfeld geschrieben werden
2. Nach Auswahl einer bestimmten Option soll eine Grafik gezeigt werden (es gibt drei verschiedene)
Ich würden dies gern über ein privateSub machen, aber leider bekomme ich dann immer einen "Laufzeitfehler 438. Objekt unterstützt diese Eigenschaft oder Methode nicht"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$39" Or Target.adress = "$D$15" Then
If Range("R39") = "Bogen 67°" Then
Range("Y39").Value = 67
ActiveSheet.Shapes("Textfeld_Winkel").TextFrame.Characters.Text = "67°"
Else
If Range("R39") = "elbow 67°" Then
Range("Y39").Value = 67
ActiveSheet.Shapes("Textfeld_Winkel").TextFrame.Characters.Text = "67°"
Else
If Range("R39") = "Bogen 90°" Then
Range("Y39").Value = 90
ActiveSheet.Shapes("Textfeld_Winkel").TextFrame.Characters.Text = "90°"
Else
If Range("R39") = "elbow 90°" Then
Range("Y39").Value = 90
ActiveSheet.Shapes("Textfeld_Winkel").TextFrame.Characters.Text = "90°"
End If
End If
End If
End If
End If
If Range("D15") = "vertikaler Abuwrf" Or Range("D15") = "vertical discharge" Then
ActiveSheet.Shapes("Maß_verti").Visible = True
ActiveSheet.Shapes("Maß_Hygiene").Visible = False
ActiveSheet.Shapes("Maß_Bogen_offen").Visible = False
Else
If Range("D15") = "Bogen offen" Or Range("D15") = "elbow open" Then
ActiveSheet.Shapes("Maß_verti").Visible = False
ActiveSheet.Shapes("Maß_Hygiene").Visible = False
ActiveSheet.Shapes("Maß_Bogen_offen").Visible = True
Else
If Range("D15") = "Hygienekapselung mit PE-Einzellsack (20 Stück)" Or Range("D15") = "Hygiene encapsulation with PE single bag (20 pieces)" Then
ActiveSheet.Shapes("Maß_verti").Visible = False
ActiveSheet.Shapes("Maß_Hygiene").Visible = True
ActiveSheet.Shapes("Maß_Bogen_offen").Visible = False
Else
If Range("D15") = "Hygienekapselung mit Kassette und Endlosschlauch (70m)" Or Range("D15") = "Hygienic encapsulation with cassette and endless hose (70m)" Then
ActiveSheet.Shapes("Maß_verti").Visible = False
ActiveSheet.Shapes("Maß_Hygiene").Visible = True
ActiveSheet.Shapes("Maß_Bogen_offen").Visible = False
End If
End If
End If
End If
End If
End Sub
Vielleicht habt Ihr ja eine Idee woran es liegen könnte...
Viele Grüße und herzlichen Dank im Vorfeld.
Sandra