An ChrisL
31.08.2017 09:00:24
Antonio
ich weiß sonst nicht wie ich dich erreichen kann.
Brauche kurz deine Hife.
Kannst du dich erinnern: ListBox Suchen.
Hier dein Code:
Private Sub ListBox1_Click() 'Eintrag an TextBox
Dim i As Byte, xZeile As Long, txt As Byte, btn As Byte
With ListBox1
For i = 1 To 11
If .ListIndex = -1 Then
UserForm4.Controls("TextBox" & i) = ""
Else
xZeile = Application.Match(CLng(.List(.ListIndex, 0)), Columns(1), 0)
UserForm4.Controls("TextBox" & i) = Cells(xZeile, i)
End If
For txt = 1 To 11
UserForm4.Controls("TextBox" & txt).Enabled = False
Next txt
For btn = 1 To 3
UserForm4.Controls("CommandButton" & btn).Enabled = False
Next btn
Cells(TextBox1.Text + 1, i).Select
ActiveCell.EntireRow.Select
Next i
End With
CommandButton6.Enabled = 1
End Sub
ich habe ein Webbrowser eingebaut:Private Sub TextBox13_Change()
Declaration_Pfade_Festlegen
Dim bild As String
Dim msg As String
Me.WebBrowser1.Navigate "about:blank"
Do
DoEvents
Loop Until Me.WebBrowser1.Document.ReadyState = "complete"
bild = Pfad5 & str003 & TextBox13.Text & ".jpg" 'anpassen
msg = ""
Me.WebBrowser1.Document.body.innerhtml = msg
End Sub
und bei dieser Zeile:" xZeile = Application.Match(CLng(.List(.ListIndex, 0)), Columns(1), 0)"
Laufzeitfehler 13
Typen unverträglich
Hat mit "Application.Match" zu tun?
Verträgt sich mit dem Webbrowser nicht?
Kannst du bitte mir ein Tipp geben?
Antonio