Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1812to1816
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

424 Objekt erforderlich

424 Objekt erforderlich
14.02.2021 17:02:17
Sergej
Hallo Leute,
was stimmt bitte in meinem Code nicht?
Ich bekomme immer die Fehlermeldung: 424 Objekt erforderlich.
Ich vermute es liegt an dem Abschnitt nach dem Einfügen vom Bild.
Eingefügtes Bild soll links oben in der Ecke verschoben werden, den Name "Logo" und Bildgröße von 7 cm erhalten 
    If .Name = "Eingabe" Then
For Each objShp In .Shapes
If objShp.Name Like "CommandButton*" Then
objShp.Delete
ElseIf objShp.Name = "Button99" Then
objShp.Delete
ElseIf objShp.Left > 200 And objShp.Height > Application.CentimetersToPoints(8)  _
Then
objShp.LockAspectRatio = True
objShp.Height = Application.CentimetersToPoints(7)
ElseIf objShp.Left             objShp.LockAspectRatio = True
objShp.Name = "Logo"
objShp.Height = Application.CentimetersToPoints(7)
objShp.Top = 0
objShp.Left = 0
End If
Next
Beste Grüße,
Sergej

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 424 Objekt erforderlich
14.02.2021 17:08:54
EtoPHG
Hallo Sergej,
Nein, am Einfügen liegt es nicht, sondern 2 Zeilen vorher löschst Du das Objekt objShp und darum ist es nachher nicht mehr vorhanden, aber eben erforderlich!
Gruess Hansueli
AW: 424 Objekt erforderlich
14.02.2021 17:12:35
Sergej
Hallo Hansueli,
was muss ich bitte ändern?
Mein Ziel ist es vorher existierendes Bild zu löschen, dann das neue Einfügen und dann oben in der Ecke verschieben, den Name "Logo" und Bildgröße von 7 cm einstellen.
Beste Grüße,
Sergej
AW: 424 Objekt erforderlich
14.02.2021 17:17:28
Nepumuk
Hallo Sergej,
dir ist schon klar dass du mit: Pictures.Insert nur eine Verknüpfung zu dem Bild einfügst. Auf einem anderen Rechner wird es daher nicht angezeigt.
Dim objPicture As Picture

Set objPicture = .Pictures.Insert("D:\Daten\ICON-rgb-512x512px.jpg")
With objPicture
    .ShapeRange.LockAspectRatio = True
    .Name = "Logo"
    .Height = Application.CentimetersToPoints(7)
    .Top = 0
    .Left = 0
End With

Gruß
Nepumuk
Anzeige
AW: 424 Objekt erforderlich
14.02.2021 17:22:40
Sergej
Hallo Nepumuk,
das war mir nicht klar - gut dass du es erwähnt hast :-)
Wie kann ich es bitte dauerhaft einfügen / einbetten?
Beste Grüße,
Sergej
AW: 424 Objekt erforderlich
14.02.2021 17:30:56
Nepumuk
Hallo Sergej,
so:
Set objShape = .Shapes.AddPicture(Filename:="D:\Daten\ICON-rgb-512x512px.jpg", _
    LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1)

With objShape
    .LockAspectRatio = msoTrue
    .Height = Application.CentimetersToPoints(7)
    .Name = "Logo"
End With

Gruß
Nepumuk
Anzeige
AW: 424 Objekt erforderlich
14.02.2021 17:49:54
Sergej
Hallo Nepumuk,
vielen Dank. Es funktioniert perfekt.
Beste Grüße,
Sergej

202 Forumthreads zu ähnlichen Themen

Laufzeitfehler 424: Objekt erforderlich
Himmelsbach

Hallo,
Vielen Dank für die Hinweise, hat mir schon sehr weitergeholfen. Ich glaub die groben Sachen sollte ich nun auch gefunden haben, leider hänge ich noch bei folgender Funktion: Public Function readnotchbesser(schluessel As Variant) Dim sarray As Variant 'Array Dim iindex As Integ...
16.03.2010 08:51:32
Thread-ID: 1146080
8 Beiträge
Anzeige
Fehler 424 <<Objekt erforderlich>>
Roman

Hallo ihr lieben,
hoffe ihr habt ein Ausweg, bin da echt schon lange dran und finde einfach keine lösung. ;( Bin aber leider auch noch kein VBA Profi und bin noch am lernen.
Folgendes: Ich habe in ein Tabellenblatt 1 wo sich ein Lösch-Button befindet über dem es möglich sein sollte ab...
28.12.2011 14:09:05
Thread-ID: 1243744
7 Beiträge
laufzeitfehler 424 Objekt erforderlich
steffen

Guten Tag!
Ich bin Neuling in der Programmierung und bin bei nem Projekt für die Schule schnell auf ein Problem gestoßen. Und zwar möchte ich mit folgenden Programm einen Zellbereich benennen und jede einzelne Zelle dieses Bereichs auf Inhalt prüfen. Allerdings wird die definierte Variable...
23.02.2012 16:42:16
Thread-ID: 1252190
12 Beiträge
Anzeige
Fehler 424 objekt erforderlich
Jochen

hallomoechte ueber einen formular button ein macro aufrufen
bzw. die eingabe maske fuer daten aufrufen.
bekomme aber den fehler 424 objekt erforderlichwas mache ich falsch?
danke im voraus
gruss
23.06.2002 23:11:31
Thread-ID: 130730
7 Beiträge
Laufzeitfehler '424': Objekt erforderlich/Matlab
leane

Hallo
ich habe folgende Code:
Sub runMatlab() On Error GoTo ErrorHandlerrM Dim hMatlab As Object Set hMatlab = CreateObject("Matlab.Application") 'hMatlab.Execute ("surf(peaks)") Result = hMatlab.Execute("cd D:\Sboxes\A400\06\01Planning") ML_cmd = "text1='Blockage';" Result = hMatlab...
19.09.2013 10:59:30
Thread-ID: 1331463
3 Beiträge
Laufzeitfehler 424 "Objekt fehlt"
Christian

Hallo Freunde
Wenn ich diesen Code in ein Malro schreibe und im initalize Bereich im UserForm aufrufe
kommt ab Zeile .Width = 25 lt. Debugger der Laufzeitfehler 424
Public Sub Label() With Label_MyPortal_ID .Caption = "ID" .Width = 25 .Height = 18 .Font.Size = 10 .Font.Name = "Aria...
12.10.2013 14:25:45
Thread-ID: 1334157
12 Beiträge
Problem mit Fehlermeldug Objekt erforderlich
Howard

Hallo,
habe folgendes Script ( Dank nochmal an Erich aus Kamp-Lintfort ):
Sub Zufall_24_25_Variation() Dim arB(1 To 24, 1 To 1) As Long, arE(1 To 25, 1 To 1) As Long Dim ff As Double, m1 As Long, m2 As Long, ii As Long Const mSoll As Integer = 35 Randomize Timer ff = (UBound(arB) + UBou...
05.12.2013 09:56:20
Thread-ID: 1341318
5 Beiträge
Fehler: Objekt erforderlich?
TooX

Hallo Zusammen,
folgendes Problem: Beim Ausführen des Codes, bleibt er immer an der Stelle "With TtbC.Font" hängen und meldet: "Objekt erforderlich", leider hab ich keine Ahnung wo hier das Problem liegen könnte. Sub Bla() Dim iEnde1 As Integer iEnde1 = Application.WorksheetFunction.CountI...
28.01.2014 16:35:40
Thread-ID: 1347102
9 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
6
11
4
6
2
11
4
8
2
1
7
11
2
2
1
3
8
6
2
3
8
7
9