30.01.2019, 10:57
Hallo noch einmal!
Tut mir leid, dass ich noch einmal lästig bin, aber ich habe nun euren Code in meine original Datei eingearbeitet und jetzt kommt bei der Codestelle
folgende Fehlermeldung:
Lautzeitfehler '13':
Typen unverträglich
Was mache ich da nun falsch?
Anbei mein Code:
Wäre super, wenn ihr mich noch einmal unterstützen könnt.
Tut mir leid, dass ich noch einmal lästig bin, aber ich habe nun euren Code in meine original Datei eingearbeitet und jetzt kommt bei der Codestelle
Code:
Inhalt = Inhalt & Chr(10) & Year(Cells(10, i)) & ": " & Format(Cells(Suche2.Row, i), "€ #,##0.00")folgende Fehlermeldung:
Lautzeitfehler '13':
Typen unverträglich
Was mache ich da nun falsch?
Anbei mein Code:
Code:
Private Sub ComboBox2_Change()
Dim i As Integer
Dim Inhalt As String
Set Suche2 = ThisWorkbook.Worksheets("Auszahlungen").Columns("Q").Find(what:=ComboBox2.Value, lookat:=xlWhole)
If Not Suche2 Is Nothing Then
For i = 18 To 37
If Cells(Suche2.Row, i) <> 0 Then
Inhalt = Inhalt & Chr(10) & Year(Cells(10, i)) & ": " & Format(Cells(Suche2.Row, i), "€ #,##0.00")
End If
Next i
End If
MsgBox "Detailinformationen zum Panel """ & ComboBox2.Value & """:" & String(2, vbNewLine) & _
Worksheets("Auszahlungen").Cells(Suche2.Row, "U") & String(1, vbNewLine)
End SubWäre super, wenn ihr mich noch einmal unterstützen könnt.