Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler

Laufzeitfehler
25.08.2021 22:06:26
Sandra
Hallo Zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler
25.08.2021 23:25:33
PawelPopolski
Zeile 2:
Du hast beim zweiten Target.address ein d vergessen.
AW: Laufzeitfehler
26.08.2021 00:56:01
Daniel
Erster Tipp:
VBA-Schlüsselwörter enthalten immer mindestens einen Großbuchstaben am Anfang des Wortes und oft noch einen zweiten innerherhalb des Wortes.
Wenn man den Code klein schreibt und der VBA-Editor erkennt nach Eingabe der Programmzeile das Schlüsselwort, dann passt der Editor die Groß/Kleinschreibung der Wörter an, und aus "address" wird "Address".
Hast du dich jedoch vertippt, und das Wort wird nicht als VBA-Schlüsselbegiff erkannt, dann bleibt die Schreibung so wie sie ist, dh "adress" bleibt "adress".
Schreibt an also konsequent klein, kann man hierüber sehr schnell erkennen, ob man das Wort richtig geschrieben hat oder nicht.
Zweiter Tipp:
Wenn man nicht weiß, wie ein VBA-Schlüsselbegriff korrekt geschrieben wird, kann man die "Intellisense" nutzen. Hierbei tippt man die ersten Buchstaben ein und drückt dann STRG+Leer.
Es erscheint eine Liste, in der die möglichen Wörter aufgeführt werden (gescrollt zu den bereits eingegebenen Buchstaben), so dass man das gewünschte Wort auswählen und sicher sein kann, dass die Rechtschreibung stimmt.
Gruß Daniel
Anzeige
AW: Laufzeitfehler
30.08.2021 20:54:57
Sandra
Hallo,
Vielen Dank.
Manchmal sieht man den Wald vor lauter Bäumen nicht.
VG
Sandra

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige