Laufzeitfehler 424 - Objekt wird benötigt

[jnbart]

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}]

Hi,

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

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

[jnbart]

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]

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]

https://www.office-hilfe.com/support/thr...ich.46073/

[jnbart]

steve1da das ist das selbe Problem von mir

[Steffl]

Hallo,

Lies dir mal das Crossposting durch.

[jnbart]

Ok wusste ich nicht sry