Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Laufzeitfehler 424 - Objekt wird benötigt
Normale Version: Laufzeitfehler 424 - Objekt wird benötigt
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

jnbart

24.03.2022, 14:23
Hi,

bekomme leider immer einen Laufzeitfehler - 424 (Objekt wird benötigt)
Fehler kommt für folgende Zeile:
Code:
If Trim(txtPicture1.Text) <> "" Then


Code:
Private Sub cmdApply_Click()
'Schließt Formular und speichert Daten'

Dim intErsteLeereZeile As Long

intErsteLeereZeile = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1

Worksheets("Data").Cells(intErsteLeereZeile, 1).Value = Me.txtNumber.Value
Worksheets("Data").Cells(intErsteLeereZeile, 2).Value = Me.txtDate.Value
Worksheets("Data").Cells(intErsteLeereZeile, 7).Value = Me.cobTicker.Value
Worksheets("Data").Cells(intErsteLeereZeile, 8).Value = Me.cobStrategy.Value
Worksheets("Data").Cells(intErsteLeereZeile, 9).Value = Me.cobTrend.Value
Worksheets("Data").Cells(intErsteLeereZeile, 10).Value = Me.cobType.Value
Worksheets("Data").Cells(intErsteLeereZeile, 11).Value = Me.cobDirection.Value
Worksheets("Data").Cells(intErsteLeereZeile, 12).Value = Me.cobLot.Value
Worksheets("Data").Cells(intErsteLeereZeile, 13).Value = Me.cobOrder.Value
Worksheets("Data").Cells(intErsteLeereZeile, 14).Value = Me.txtTimeOpen.Value
Worksheets("Data").Cells(intErsteLeereZeile, 15).Value = Me.txtPriceOpen.Value
Worksheets("Data").Cells(intErsteLeereZeile, 16).Value = Me.txtStoploss.Value
Worksheets("Data").Cells(intErsteLeereZeile, 17).Value = Me.txtTimeClose.Value
Worksheets("Data").Cells(intErsteLeereZeile, 18).Value = Me.txtPriceClose.Value
If Trim(txtPicture1.Text) <> "" Then
Worksheets("Data").Hyperlinks.Add Anchor:=Worksheets("Data").Cells(intErsteLeereZeile, 20), Address:=txtPicture1.Text, TextToDisplay:=txtPicture1.Text
End If
If Trim(txtPicture2.Text) <> "" Then
Worksheets("Data").Hyperlinks.Add Anchor:=Worksheets("Data").Cells(intErsteLeereZeile, 21), Address:=txtPicture2.Text, TextToDisplay:=txtPicture2.Text
End If
Worksheets("Data").Cells(intErsteLeereZeile, 31).Value = Me.txtDescription.Value

Unload Me
End Sub



Kann mir jemand weiterhelfen?
Vielen Dank im vorraus.

{Boris}

24.03.2022, 14:34
Hi,

hast Du es denn schonmal mit dem Schlüsselwort Me versucht?

If Trim(Me.txtPicture1.Text) <> "" Then

jnbart

24.03.2022, 15:31
Jetzt sagt er mir Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden

In dieser Zeile:
Code:
Private Sub cmdApply_Click()


Code:
Private Sub cmdApply_Click()
    'Schließt Formular und speichert Daten'
   
    Dim intErsteLeereZeile As Long
   
    intErsteLeereZeile = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1
   
    Worksheets("Data").Cells(intErsteLeereZeile, 1).Value = Me.txtNumber.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 2).Value = Me.txtDate.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 7).Value = Me.cobTicker.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 8).Value = Me.cobStrategy.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 9).Value = Me.cobTrend.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 10).Value = Me.cobType.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 11).Value = Me.cobDirection.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 12).Value = Me.cobLot.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 13).Value = Me.cobOrder.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 14).Value = Me.txtTimeOpen.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 15).Value = Me.txtPriceOpen.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 16).Value = Me.txtStoploss.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 17).Value = Me.txtTimeClose.Value
    Worksheets("Data").Cells(intErsteLeereZeile, 18).Value = Me.txtPriceClose.Value
        If Trim(Me.txtPicture1.Text) <> "" Then
            Worksheets("Data").Hyperlinks.Add Anchor:=Worksheets("Data").Cells(intErsteLeereZeile, 20), Address:=txtPicture1.Text, TextToDisplay:=txtPicture1.Text
        End If
        If Trim(Me.txtPicture2.Text) <> "" Then
            Worksheets("Data").Hyperlinks.Add Anchor:=Worksheets("Data").Cells(intErsteLeereZeile, 21), Address:=txtPicture2.Text, TextToDisplay:=txtPicture2.Text
        End If
    Worksheets("Data").Cells(intErsteLeereZeile, 31).Value = Me.txtDescription.Value
   
    Unload Me
End Sub

Steffl

24.03.2022, 15:47
Auch Hallo,

vielleicht so?

Code:
If Trim(Me.txtPicture1.Text) <> "" Then
            Worksheets("Data").Hyperlinks.Add Anchor:=Worksheets("Data").Cells(intErsteLeereZeile, 20), Address:=Me.txtPicture1.Text, TextToDisplay:=Me.txtPicture1.Text

steve1da

25.03.2022, 08:04
https://www.office-hilfe.com/support/thr...ich.46073/

jnbart

25.03.2022, 09:18
steve1da das ist das selbe Problem von mir

Steffl

25.03.2022, 09:53
Hallo,

Lies dir mal das Crossposting durch.

jnbart

25.03.2022, 10:19
Ok wusste ich nicht sry
Clever-Excel-Forum > Office-Anwendungen > Excel > Laufzeitfehler 424 - Objekt wird benötigt