Ich habe ein Userform das bei aktivierung ein bestimmten Datensatz laden soll. Leider gibt es mir da einen Fehler.
Es soll den Datensatz laden der die ID entspricht welche in der Tabelle2 ausgegeben wird.
Die folgende Zeile wird als Fehler angezeigt:
If Trim(CStr(Tabelle6.Cells(ZeileIDR, 3).Value)) = SucheID Then
Vollständiger Code
Private Sub UserForm_Activate()
Dim ZeileIDR As Long
Dim SucheID As Long
Const Zeile_1 As Long = 5
ZeileIDR = 5
If IsNumeric(Tabelle2.Range("B7")) Then
SucheID = Tabelle2.Range("B7").Value
Do While Trim(CStr(Tabelle6.Cells(Zeile_1, 3).Value)) ""
If Trim(CStr(Tabelle6.Cells(ZeileIDR, 3).Value)) = SucheID Then
'Eintrag gefunden, RL_0en in die Zellen schreiben
Tabelle6.Cells(ZeileIDR, 1).Value = Trim(CStr(RL_01.Text))
Tabelle6.Cells(ZeileIDR, 2).Value = RL_02.Text
Tabelle6.Cells(ZeileIDR, 3).Value = RL_03.Text
Tabelle6.Cells(ZeileIDR, 4).Value = RL_04.Text
Tabelle6.Cells(ZeileIDR, 5).Value = RL_05.Text
Tabelle6.Cells(ZeileIDR, 6).Value = RL_06.Text
Tabelle6.Cells(ZeileIDR, 7).Value = RL_07.Text
Tabelle6.Cells(ZeileIDR, 8).Value = RL_08.Text
' Tabelle6.Cells(ZeileIDR, 14).Value = RL_04 + RL_05 + RL_06 + RL_07 + RL_08
Exit Do
End If
ZeileIDR = ZeileIDR + 1 'Nächste Zeile
Loop
End If
End Sub