nächsten gleichartigen Eintrag finden und anzeigen

Dim akt_Pat As String, Eintrittsdatum As Date, FID As String, Zuweisung As String, Versicherung As String, Beruf As String, AUF As Integer, EndeAUF As Date

Dim Diagnose As String, Therapie As String, Procedere As String, HA As String, Weiterbehandler As String, NF_Doc As String

Dim Str As String, PLZ As String, Ort As String, GebDat As Date, Age As String

Dim RA As String, LA As String, ml As String, AndereAnalgetika As String, NRS As Integer





Dim Listenanzeige_Archiv As Range, raPatFund As Range



akt_Pat = ComboBox1.Value



Sheets("Archiv").Activate



With Worksheets("Archiv").Range("A:A")

    Set raPatFund = .Find(what:=akt_Pat, LookIn:=xlValues, LookAt:=xlPart)

    If Not raPatFund Is Nothing Then

    raPatFund.Activate



        Versicherung = raPatFund.Offset(0, 1)

        FID = raPatFund.Offset(0, 3)

        Eintrittsdatum = raPatFund.Offset(0, 4)

        Diagnose = raPatFund.Offset(0, 5)

        Therapie = raPatFund.Offset(0, 6)

        RA = raPatFund.Offset(0, 7)

        NRS = raPatFund.Offset(0, 9)

        LA = raPatFund.Offset(0, 10)

        AndereAnalgetika = raPatFund.Offset(0, 8)

        Weiterbehandler = raPatFund.Offset(0, 11)

        Procedere = raPatFund.Offset(0, 12)

        GebDat = raPatFund.Offset(0, 13)

        HA = raPatFund.Offset(0, 14)

        ml = raPatFund.Offset(0, 23)

        Beruf = raPatFund.Offset(0, 18)

        AUF = raPatFund.Offset(0, 19)

        EndeAUF = raPatFund.Offset(0, 20)

        Str = raPatFund.Offset(0, 15)

        PLZ = raPatFund.Offset(0, 16)

        Ort = raPatFund.Offset(0, 17)

        NF_Doc = raPatFund.Offset(0, 22)

        Age = raPatFund.Offset(0, 25)

        

'usw, usw



        TextBox1.Value = Diagnose

        TextBox2.Value = Therapie

        TextBox3.Value = Procedere

        TextBox13.Value = Beruf

        TextBox14.Value = AUF

        TextBox15.Value = EndeAUF

        TextBox17.Value = NRS

        Label1.Caption = "Eintritt: " & Eintrittsdatum

        Label26.Caption = Str & ", " & PLZ & " " & Ort

        Label30.Caption = "FID: " & FID

        Label33.Caption = Age

        ComboBox4.Value = LA

        TextBox16.Value = ml

        TextBox10.Value = AndereAnalgetika

        ComboBox5.Value = NF_Doc

        ComboBox6.Value = Weiterbehandler

        ComboBox7.Value = HA



'usw, usw



    End If

End With

End Sub