VBA - Select Case

Hvordan får jeg forkortet nedenstående kode så jeg kan have flere en 60 cases?????

Private Sub Worksheet_SelectionChange(ByVal target As Range)
    Dim ID1 As String
    Dim Firma As String
    Dim Adresse As String
    Dim Postnr As String
    Dim Kontakt As String
    Dim Telefon As String
    Dim Email As String
    Dim uKunde As String
    Dim uKontakt As String
    Dim uTlf As String
    Dim uEmail As String
    Dim Produkt As String
   
    On Error GoTo Slut
    If Not Intersect(target, Range("B4:B1010")) Is Nothing Then
    If target = 0 Or target = " " Or target = "" Then
        Exit Sub
        ElseIf target > 0 And target < 61 Then
        Set værdi = target
            Select Case værdi
                Case 1
                    ID1 = Worksheets("Ark2").Range("C3").Value
                    Firma = Worksheets("Ark2").Range("D3").Value
                    Adresse = Worksheets("Ark2").Range("E3").Value
                    Postnr = Worksheets("Ark2").Range("F3").Value
                    By = Worksheets("Ark2").Range("G3").Value
                    Kontakt = Worksheets("Ark2").Range("H3").Value
                    Telefon = Worksheets("Ark2").Range("I3").Value
                    Email = Worksheets("Ark2").Range("J3").Value
                    uKunde = Worksheets("Ark2").Range("K3").Value
                    uKontakt = Worksheets("Ark2").Range("L3").Value
                    uTlf = Worksheets("Ark2").Range("M3").Value
                    uEmail = Worksheets("Ark2").Range("N3").Value
                    Produkt = Worksheets("Ark2").Range("A3").Value
                Case 2
                    ID1 = Worksheets("Ark2").Range("C4").Value
                    Firma = Worksheets("Ark2").Range("D4").Value
                    Adresse = Worksheets("Ark2").Range("E4").Value
                    Postnr = Worksheets("Ark2").Range("F4").Value
                    By = Worksheets("Ark2").Range("G4").Value
                    Kontakt = Worksheets("Ark2").Range("H4").Value
                    Telefon = Worksheets("Ark2").Range("I4").Value
                    Email = Worksheets("Ark2").Range("J4").Value
                    uKunde = Worksheets("Ark2").Range("K4").Value
                    uKontakt = Worksheets("Ark2").Range("L4").Value
                    uTlf = Worksheets("Ark2").Range("M4").Value
                    uEmail = Worksheets("Ark2").Range("N4").Value
                    Produkt = Worksheets("Ark2").Range("A4").Value
                Case 3
                    ID1 = Worksheets("Ark2").Range("C5").Value
                    Firma = Worksheets("Ark2").Range("D5").Value
                    Adresse = Worksheets("Ark2").Range("E5").Value
                    Postnr = Worksheets("Ark2").Range("F5").Value
                    By = Worksheets("Ark2").Range("G5").Value
                    Kontakt = Worksheets("Ark2").Range("H5").Value
                    Telefon = Worksheets("Ark2").Range("I5").Value
                    Email = Worksheets("Ark2").Range("J5").Value
                    uKunde = Worksheets("Ark2").Range("K5").Value
                    uKontakt = Worksheets("Ark2").Range("L5").Value
                    uTlf = Worksheets("Ark2").Range("M5").Value
                    uEmail = Worksheets("Ark2").Range("N5").Value
                    Produkt = Worksheets("Ark2").Range("A5").Value
                Case 4
                    ID1 = Worksheets("Ark2").Range("C6").Value
                    Firma = Worksheets("Ark2").Range("D6").Value
                    Adresse = Worksheets("Ark2").Range("E6").Value
                    Postnr = Worksheets("Ark2").Range("F6").Value
                    By = Worksheets("Ark2").Range("G6").Value
                    Kontakt = Worksheets("Ark2").Range("H6").Value
                    Telefon = Worksheets("Ark2").Range("I6").Value
                    Email = Worksheets("Ark2").Range("J6").Value
                    uKunde = Worksheets("Ark2").Range("K6").Value
                    uKontakt = Worksheets("Ark2").Range("L6").Value
                    uTlf = Worksheets("Ark2").Range("M6").Value
                    uEmail = Worksheets("Ark2").Range("N6").Value
                    Produkt = Worksheets("Ark2").Range("A6").Value
                Case 5
                    ID1 = Worksheets("Ark2").Range("C7").Value
                    Firma = Worksheets("Ark2").Range("D7").Value
                    Adresse = Worksheets("Ark2").Range("E7").Value
                    Postnr = Worksheets("Ark2").Range("F7").Value
                    By = Worksheets("Ark2").Range("G7").Value
                    Kontakt = Worksheets("Ark2").Range("H7").Value
                    Telefon = Worksheets("Ark2").Range("I7").Value
                    Email = Worksheets("Ark2").Range("J7").Value
                    uKunde = Worksheets("Ark2").Range("K7").Value
                    uKontakt = Worksheets("Ark2").Range("L7").Value
                    uTlf = Worksheets("Ark2").Range("M7").Value
                    uEmail = Worksheets("Ark2").Range("N7").Value
                    Produkt = Worksheets("Ark2").Range("A7").Value
                Case 6
                    ID1 = Worksheets("Ark2").Range("C8").Value
                    Firma = Worksheets("Ark2").Range("D8").Value
                    Adresse = Worksheets("Ark2").Range("E8").Value
                    Postnr = Worksheets("Ark2").Range("F8").Value
                    By = Worksheets("Ark2").Range("G8").Value
                    Kontakt = Worksheets("Ark2").Range("H8").Value
                    Telefon = Worksheets("Ark2").Range("I8").Value
                    Email = Worksheets("Ark2").Range("J8").Value
                    uKunde = Worksheets("Ark2").Range("K8").Value
                    uKontakt = Worksheets("Ark2").Range("L8").Value
                    uTlf = Worksheets("Ark2").Range("M8").Value
                    uEmail = Worksheets("Ark2").Range("N8").Value
                    Produkt = Worksheets("Ark2").Range("A8").Value
                Case 7
                    ID1 = Worksheets("Ark2").Range("C9").Value
                    Firma = Worksheets("Ark2").Range("D9").Value
                    Adresse = Worksheets("Ark2").Range("E9").Value
                    Postnr = Worksheets("Ark2").Range("F9").Value
                    By = Worksheets("Ark2").Range("G9").Value
                    Kontakt = Worksheets("Ark2").Range("H9").Value
                    Telefon = Worksheets("Ark2").Range("I9").Value
                    Email = Worksheets("Ark2").Range("J9").Value
                    uKunde = Worksheets("Ark2").Range("K9").Value
                    uKontakt = Worksheets("Ark2").Range("L9").Value
                    uTlf = Worksheets("Ark2").Range("M9").Value
                    uEmail = Worksheets("Ark2").Range("N9").Value
                    Produkt = Worksheets("Ark2").Range("A9").Value
                Case 8
                    ID1 = Worksheets("Ark2").Range("C10").Value
                    Firma = Worksheets("Ark2").Range("D10").Value
                    Adresse = Worksheets("Ark2").Range("E10").Value
                    Postnr = Worksheets("Ark2").Range("F10").Value
                    By = Worksheets("Ark2").Range("G10").Value
                    Kontakt = Worksheets("Ark2").Range("H10").Value
                    Telefon = Worksheets("Ark2").Range("I10").Value
                    Email = Worksheets("Ark2").Range("J10").Value
                    uKunde = Worksheets("Ark2").Range("K10").Value
                    uKontakt = Worksheets("Ark2").Range("L10").Value
                    uTlf = Worksheets("Ark2").Range("M10").Value
                    uEmail = Worksheets("Ark2").Range("N10").Value
                    Produkt = Worksheets("Ark2").Range("A10").Value
                Case 9
                    ID1 = Worksheets("Ark2").Range("C11").Value
                    Firma = Worksheets("Ark2").Range("D11").Value
                    Adresse = Worksheets("Ark2").Range("E11").Value
                    Postnr = Worksheets("Ark2").Range("F11").Value
                    By = Worksheets("Ark2").Range("G11").Value
                    Kontakt = Worksheets("Ark2").Range("H11").Value
                    Telefon = Worksheets("Ark2").Range("I11").Value
                    Email = Worksheets("Ark2").Range("J11").Value
                    uKunde = Worksheets("Ark2").Range("K11").Value
                    uKontakt = Worksheets("Ark2").Range("L11").Value
                    uTlf = Worksheets("Ark2").Range("M11").Value
                    uEmail = Worksheets("Ark2").Range("N11").Value
                    Produkt = Worksheets("Ark2").Range("A11").Value
                Case 10
                    ID1 = Worksheets("Ark2").Range("C12").Value
                    Firma = Worksheets("Ark2").Range("D12").Value
                    Adresse = Worksheets("Ark2").Range("E12").Value
                    Postnr = Worksheets("Ark2").Range("F12").Value
                    By = Worksheets("Ark2").Range("G12").Value
                    Kontakt = Worksheets("Ark2").Range("H12").Value
                    Telefon = Worksheets("Ark2").Range("I12").Value
                    Email = Worksheets("Ark2").Range("J12").Value
                    uKunde = Worksheets("Ark2").Range("K12").Value
                    uKontakt = Worksheets("Ark2").Range("L12").Value
                    uTlf = Worksheets("Ark2").Range("M12").Value
                    uEmail = Worksheets("Ark2").Range("N12").Value
                    Produkt = Worksheets("Ark2").Range("A12").Value
                Case 11
                    ID1 = Worksheets("Ark2").Range("C13").Value
                    Firma = Worksheets("Ark2").Range("D13").Value
                    Adresse = Worksheets("Ark2").Range("E13").Value
                    Postnr = Worksheets("Ark2").Range("F13").Value
                    By = Worksheets("Ark2").Range("G13").Value
                    Kontakt = Worksheets("Ark2").Range("H13").Value
                    Telefon = Worksheets("Ark2").Range("I13").Value
                    Email = Worksheets("Ark2").Range("J13").Value
                    uKunde = Worksheets("Ark2").Range("K13").Value
                    uKontakt = Worksheets("Ark2").Range("L13").Value
                    uTlf = Worksheets("Ark2").Range("M13").Value
                    uEmail = Worksheets("Ark2").Range("N13").Value
                    Produkt = Worksheets("Ark2").Range("A13").Value
                Case 12
                    ID1 = Worksheets("Ark2").Range("C14").Value
                    Firma = Worksheets("Ark2").Range("D14").Value
                    Adresse = Worksheets("Ark2").Range("E14").Value
                    Postnr = Worksheets("Ark2").Range("F14").Value
                    By = Worksheets("Ark2").Range("G14").Value
                    Kontakt = Worksheets("Ark2").Range("H14").Value
                    Telefon = Worksheets("Ark2").Range("I14").Value
                    Email = Worksheets("Ark2").Range("J14").Value
                    uKunde = Worksheets("Ark2").Range("K14").Value
                    uKontakt = Worksheets("Ark2").Range("L14").Value
                    uTlf = Worksheets("Ark2").Range("M14").Value
                    uEmail = Worksheets("Ark2").Range("N14").Value
                    Produkt = Worksheets("Ark2").Range("A14").Value
                Case 13
                    ID1 = Worksheets("Ark2").Range("C15").Value
                    Firma = Worksheets("Ark2").Range("D15").Value
                    Adresse = Worksheets("Ark2").Range("E15").Value
                    Postnr = Worksheets("Ark2").Range("F15").Value
                    By = Worksheets("Ark2").Range("G15").Value
                    Kontakt = Worksheets("Ark2").Range("H15").Value
                    Telefon = Worksheets("Ark2").Range("I15").Value
                    Email = Worksheets("Ark2").Range("J15").Value
                    uKunde = Worksheets("Ark2").Range("K15").Value
                    uKontakt = Worksheets("Ark2").Range("L15").Value
                    uTlf = Worksheets("Ark2").Range("M15").Value
                    uEmail = Worksheets("Ark2").Range("N15").Value
                    Produkt = Worksheets("Ark2").Range("A15").Value
                Case 14
                    ID1 = Worksheets("Ark2").Range("C16").Value
                    Firma = Worksheets("Ark2").Range("D16").Value
                    Adresse = Worksheets("Ark2").Range("E16").Value
                    Postnr = Worksheets("Ark2").Range("F16").Value
                    By = Worksheets("Ark2").Range("G16").Value
                    Kontakt = Worksheets("Ark2").Range("H16").Value
                    Telefon = Worksheets("Ark2").Range("I16").Value
                    Email = Worksheets("Ark2").Range("J16").Value
                    uKunde = Worksheets("Ark2").Range("K16").Value
                    uKontakt = Worksheets("Ark2").Range("L16").Value
                    uTlf = Worksheets("Ark2").Range("M16").Value
                    uEmail = Worksheets("Ark2").Range("N16").Value
                    Produkt = Worksheets("Ark2").Range("A16").Value
                Case 15
                    ID1 = Worksheets("Ark2").Range("C17").Value
                    Firma = Worksheets("Ark2").Range("D17").Value
                    Adresse = Worksheets("Ark2").Range("E17").Value
                    Postnr = Worksheets("Ark2").Range("F17").Value
                    By = Worksheets("Ark2").Range("G17").Value
                    Kontakt = Worksheets("Ark2").Range("H17").Value
                    Telefon = Worksheets("Ark2").Range("I17").Value
                    Email = Worksheets("Ark2").Range("J17").Value
                    uKunde = Worksheets("Ark2").Range("K17").Value
                    uKontakt = Worksheets("Ark2").Range("L17").Value
                    uTlf = Worksheets("Ark2").Range("M17").Value
                    uEmail = Worksheets("Ark2").Range("N17").Value
                    Produkt = Worksheets("Ark2").Range("A17").Value
                Case 16
                    ID1 = Worksheets("Ark2").Range("C18").Value
                    Firma = Worksheets("Ark2").Range("D18").Value
                    Adresse = Worksheets("Ark2").Range("E18").Value
                    Postnr = Worksheets("Ark2").Range("F18").Value
                    By = Worksheets("Ark2").Range("G18").Value
                    Kontakt = Worksheets("Ark2").Range("H18").Value
                    Telefon = Worksheets("Ark2").Range("I18").Value
                    Email = Worksheets("Ark2").Range("J18").Value
                    uKunde = Worksheets("Ark2").Range("K18").Value
                    uKontakt = Worksheets("Ark2").Range("L18").Value
                    uTlf = Worksheets("Ark2").Range("M18").Value
                    uEmail = Worksheets("Ark2").Range("N18").Value
                    Produkt = Worksheets("Ark2").Range("A18").Value
                Case 17
                    ID1 = Worksheets("Ark2").Range("C19").Value
                    Firma = Worksheets("Ark2").Range("D19").Value
                    Adresse = Worksheets("Ark2").Range("E19").Value
                    Postnr = Worksheets("Ark2").Range("F19").Value
                    By = Worksheets("Ark2").Range("G19").Value
                    Kontakt = Worksheets("Ark2").Range("H19").Value
                    Telefon = Worksheets("Ark2").Range("I19").Value
                    Email = Worksheets("Ark2").Range("J19").Value
                    uKunde = Worksheets("Ark2").Range("K19").Value
                    uKontakt = Worksheets("Ark2").Range("L19").Value
                    uTlf = Worksheets("Ark2").Range("M19").Value
                    uEmail = Worksheets("Ark2").Range("N19").Value
                    Produkt = Worksheets("Ark2").Range("A19").Value
                Case 18
                    ID1 = Worksheets("Ark2").Range("C20").Value
                    Firma = Worksheets("Ark2").Range("D20").Value
                    Adresse = Worksheets("Ark2").Range("E20").Value
                    Postnr = Worksheets("Ark2").Range("F20").Value
                    By = Worksheets("Ark2").Range("G20").Value
                    Kontakt = Worksheets("Ark2").Range("H20").Value
                    Telefon = Worksheets("Ark2").Range("I20").Value
                    Email = Worksheets("Ark2").Range("J20").Value
                    uKunde = Worksheets("Ark2").Range("K20").Value
                    uKontakt = Worksheets("Ark2").Range("L20").Value
                    uTlf = Worksheets("Ark2").Range("M20").Value
                    uEmail = Worksheets("Ark2").Range("N20").Value
                    Produkt = Worksheets("Ark2").Range("A20").Value
                Case 19
                    ID1 = Worksheets("Ark2").Range("C21").Value
                    Firma = Worksheets("Ark2").Range("D21").Value
                    Adresse = Worksheets("Ark2").Range("E21").Value
                    Postnr = Worksheets("Ark2").Range("F21").Value
                    By = Worksheets("Ark2").Range("G21").Value
                    Kontakt = Worksheets("Ark2").Range("H21").Value
                    Telefon = Worksheets("Ark2").Range("I21").Value
                    Email = Worksheets("Ark2").Range("J21").Value
                    uKunde = Worksheets("Ark2").Range("K21").Value
                    uKontakt = Worksheets("Ark2").Range("L21").Value
                    uTlf = Worksheets("Ark2").Range("M21").Value
                    uEmail = Worksheets("Ark2").Range("N21").Value
                    Produkt = Worksheets("Ark2").Range("A21").Value
                Case 20
                    ID1 = Worksheets("Ark2").Range("C22").Value
                    Firma = Worksheets("Ark2").Range("D22").Value
                    Adresse = Worksheets("Ark2").Range("E22").Value
                    Postnr = Worksheets("Ark2").Range("F22").Value
                    By = Worksheets("Ark2").Range("G22").Value
                    Kontakt = Worksheets("Ark2").Range("H22").Value
                    Telefon = Worksheets("Ark2").Range("I22").Value
                    Email = Worksheets("Ark2").Range("J22").Value
                    uKunde = Worksheets("Ark2").Range("K22").Value
                    uKontakt = Worksheets("Ark2").Range("L22").Value
                    uTlf = Worksheets("Ark2").Range("M22").Value
                    uEmail = Worksheets("Ark2").Range("N22").Value
                    Produkt = Worksheets("Ark2").Range("A22").Value
                Case 21
                    ID1 = Worksheets("Ark2").Range("C23").Value
                    Firma = Worksheets("Ark2").Range("D23").Value
                    Adresse = Worksheets("Ark2").Range("E23").Value
                    Postnr = Worksheets("Ark2").Range("F23").Value
                    By = Worksheets("Ark2").Range("G23").Value
                    Kontakt = Worksheets("Ark2").Range("H23").Value
                    Telefon = Worksheets("Ark2").Range("I23").Value
                    Email = Worksheets("Ark2").Range("J23").Value
                    uKunde = Worksheets("Ark2").Range("K23").Value
                    uKontakt = Worksheets("Ark2").Range("L23").Value
                    uTlf = Worksheets("Ark2").Range("M23").Value
                    uEmail = Worksheets("Ark2").Range("N23").Value
                    Produkt = Worksheets("Ark2").Range("A23").Value
                Case 22
                    ID1 = Worksheets("Ark2").Range("C24").Value
                    Firma = Worksheets("Ark2").Range("D24").Value
                    Adresse = Worksheets("Ark2").Range("E24").Value
                    Postnr = Worksheets("Ark2").Range("F24").Value
                    By = Worksheets("Ark2").Range("G24").Value
                    Kontakt = Worksheets("Ark2").Range("H24").Value
                    Telefon = Worksheets("Ark2").Range("I24").Value
                    Email = Worksheets("Ark2").Range("J24").Value
                    uKunde = Worksheets("Ark2").Range("K24").Value
                    uKontakt = Worksheets("Ark2").Range("L24").Value
                    uTlf = Worksheets("Ark2").Range("M24").Value
                    uEmail = Worksheets("Ark2").Range("N24").Value
                    Produkt = Worksheets("Ark2").Range("A24").Value
                Case 23
                    ID1 = Worksheets("Ark2").Range("C25").Value
                    Firma = Worksheets("Ark2").Range("D25").Value
                    Adresse = Worksheets("Ark2").Range("E25").Value
                    Postnr = Worksheets("Ark2").Range("F25").Value
                    By = Worksheets("Ark2").Range("G25").Value
                    Kontakt = Worksheets("Ark2").Range("H25").Value
                    Telefon = Worksheets("Ark2").Range("I25").Value
                    Email = Worksheets("Ark2").Range("J25").Value
                    uKunde = Worksheets("Ark2").Range("K25").Value
                    uKontakt = Worksheets("Ark2").Range("L25").Value
                    uTlf = Worksheets("Ark2").Range("M25").Value
                    uEmail = Worksheets("Ark2").Range("N25").Value
                    Produkt = Worksheets("Ark2").Range("A25").Value
                Case 24
                    ID1 = Worksheets("Ark2").Range("C26").Value
                    Firma = Worksheets("Ark2").Range("D26").Value
                    Adresse = Worksheets("Ark2").Range("E26").Value
                    Postnr = Worksheets("Ark2").Range("F26").Value
                    By = Worksheets("Ark2").Range("G26").Value
                    Kontakt = Worksheets("Ark2").Range("H26").Value
                    Telefon = Worksheets("Ark2").Range("I26").Value
                    Email = Worksheets("Ark2").Range("J26").Value
                    uKunde = Worksheets("Ark2").Range("K26").Value
                    uKontakt = Worksheets("Ark2").Range("L26").Value
                    uTlf = Worksheets("Ark2").Range("M26").Value
                    uEmail = Worksheets("Ark2").Range("N26").Value
                    Produkt = Worksheets("Ark2").Range("A26").Value
                Case 25
                    ID1 = Worksheets("Ark2").Range("C27").Value
                    Firma = Worksheets("Ark2").Range("D27").Value
                    Adresse = Worksheets("Ark2").Range("E27").Value
                    Postnr = Worksheets("Ark2").Range("F27").Value
                    By = Worksheets("Ark2").Range("G27").Value
                    Kontakt = Worksheets("Ark2").Range("H27").Value
                    Telefon = Worksheets("Ark2").Range("I27").Value
                    Email = Worksheets("Ark2").Range("J27").Value
                    uKunde = Worksheets("Ark2").Range("K27").Value
                    uKontakt = Worksheets("Ark2").Range("L27").Value
                    uTlf = Worksheets("Ark2").Range("M27").Value
                    uEmail = Worksheets("Ark2").Range("N27").Value
                    Produkt = Worksheets("Ark2").Range("A27").Value
                Case 26
                    ID1 = Worksheets("Ark2").Range("C28").Value
                    Firma = Worksheets("Ark2").Range("D28").Value
                    Adresse = Worksheets("Ark2").Range("E28").Value
                    Postnr = Worksheets("Ark2").Range("F28").Value
                    By = Worksheets("Ark2").Range("G28").Value
                    Kontakt = Worksheets("Ark2").Range("H28").Value
                    Telefon = Worksheets("Ark2").Range("I28").Value
                    Email = Worksheets("Ark2").Range("J28").Value
                    uKunde = Worksheets("Ark2").Range("K28").Value
                    uKontakt = Worksheets("Ark2").Range("L28").Value
                    uTlf = Worksheets("Ark2").Range("M28").Value
                    uEmail = Worksheets("Ark2").Range("N28").Value
                    Produkt = Worksheets("Ark2").Range("A28").Value
                Case 27
                    ID1 = Worksheets("Ark2").Range("C29").Value
                    Firma = Worksheets("Ark2").Range("D29").Value
                    Adresse = Worksheets("Ark2").Range("E29").Value
                    Postnr = Worksheets("Ark2").Range("F29").Value
                    By = Worksheets("Ark2").Range("G29").Value
                    Kontakt = Worksheets("Ark2").Range("H29").Value
                    Telefon = Worksheets("Ark2").Range("I29").Value
                    Email = Worksheets("Ark2").Range("J29").Value
                    uKunde = Worksheets("Ark2").Range("K29").Value
                    uKontakt = Worksheets("Ark2").Range("L29").Value
                    uTlf = Worksheets("Ark2").Range("M29").Value
                    uEmail = Worksheets("Ark2").Range("N29").Value
                    Produkt = Worksheets("Ark2").Range("A29").Value
                Case 28
                    ID1 = Worksheets("Ark2").Range("C30").Value
                    Firma = Worksheets("Ark2").Range("D30").Value
                    Adresse = Worksheets("Ark2").Range("E30").Value
                    Postnr = Worksheets("Ark2").Range("F30").Value
                    By = Worksheets("Ark2").Range("G30").Value
                    Kontakt = Worksheets("Ark2").Range("H30").Value
                    Telefon = Worksheets("Ark2").Range("I30").Value
                    Email = Worksheets("Ark2").Range("J30").Value
                    uKunde = Worksheets("Ark2").Range("K30").Value
                    uKontakt = Worksheets("Ark2").Range("L30").Value
                    uTlf = Worksheets("Ark2").Range("M30").Value
                    uEmail = Worksheets("Ark2").Range("N30").Value
                    Produkt = Worksheets("Ark2").Range("A30").Value
                Case 29
                    ID1 = Worksheets("Ark2").Range("C31").Value
                    Firma = Worksheets("Ark2").Range("D31").Value
                    Adresse = Worksheets("Ark2").Range("E31").Value
                    Postnr = Worksheets("Ark2").Range("F31").Value
                    By = Worksheets("Ark2").Range("G31").Value
                    Kontakt = Worksheets("Ark2").Range("H31").Value
                    Telefon = Worksheets("Ark2").Range("I31").Value
                    Email = Worksheets("Ark2").Range("J31").Value
                    uKunde = Worksheets("Ark2").Range("K31").Value
                    uKontakt = Worksheets("Ark2").Range("L31").Value
                    uTlf = Worksheets("Ark2").Range("M31").Value
                    uEmail = Worksheets("Ark2").Range("N31").Value
                    Produkt = Worksheets("Ark2").Range("A31").Value
                Case 30
                    ID1 = Worksheets("Ark2").Range("C32").Value
                    Firma = Worksheets("Ark2").Range("D32").Value
                    Adresse = Worksheets("Ark2").Range("E32").Value
                    Postnr = Worksheets("Ark2").Range("F32").Value
                    By = Worksheets("Ark2").Range("G32").Value
                    Kontakt = Worksheets("Ark2").Range("H32").Value
                    Telefon = Worksheets("Ark2").Range("I32").Value
                    Email = Worksheets("Ark2").Range("J32").Value
                    uKunde = Worksheets("Ark2").Range("K32").Value
                    uKontakt = Worksheets("Ark2").Range("L32").Value
                    uTlf = Worksheets("Ark2").Range("M32").Value
                    uEmail = Worksheets("Ark2").Range("N32").Value
                    Produkt = Worksheets("Ark2").Range("A32").Value
                Case 31
                    ID1 = Worksheets("Ark2").Range("C33").Value
                    Firma = Worksheets("Ark2").Range("D33").Value
                    Adresse = Worksheets("Ark2").Range("E33").Value
                    Postnr = Worksheets("Ark2").Range("F33").Value
                    By = Worksheets("Ark2").Range("G33").Value
                    Kontakt = Worksheets("Ark2").Range("H33").Value
                    Telefon = Worksheets("Ark2").Range("I33").Value
                    Email = Worksheets("Ark2").Range("J33").Value
                    uKunde = Worksheets("Ark2").Range("K33").Value
                    uKontakt = Worksheets("Ark2").Range("L33").Value
                    uTlf = Worksheets("Ark2").Range("M33").Value
                    uEmail = Worksheets("Ark2").Range("N33").Value
                    Produkt = Worksheets("Ark2").Range("A33").Value
                Case 32
                    ID1 = Worksheets("Ark2").Range("C34").Value
                    Firma = Worksheets("Ark2").Range("D34").Value
                    Adresse = Worksheets("Ark2").Range("E34").Value
                    Postnr = Worksheets("Ark2").Range("F34").Value
                    By = Worksheets("Ark2").Range("G34").Value
                    Kontakt = Worksheets("Ark2").Range("H34").Value
                    Telefon = Worksheets("Ark2").Range("I34").Value
                    Email = Worksheets("Ark2").Range("J34").Value
                    uKunde = Worksheets("Ark2").Range("K34").Value
                    uKontakt = Worksheets("Ark2").Range("L34").Value
                    uTlf = Worksheets("Ark2").Range("M34").Value
                    uEmail = Worksheets("Ark2").Range("N34").Value
                    Produkt = Worksheets("Ark2").Range("A34").Value
                Case 33
                    ID1 = Worksheets("Ark2").Range("C35").Value
                    Firma = Worksheets("Ark2").Range("D35").Value
                    Adresse = Worksheets("Ark2").Range("E35").Value
                    Postnr = Worksheets("Ark2").Range("F35").Value
                    By = Worksheets("Ark2").Range("G35").Value
                    Kontakt = Worksheets("Ark2").Range("H35").Value
                    Telefon = Worksheets("Ark2").Range("I35").Value
                    Email = Worksheets("Ark2").Range("J35").Value
                    uKunde = Worksheets("Ark2").Range("K35").Value
                    uKontakt = Worksheets("Ark2").Range("L35").Value
                    uTlf = Worksheets("Ark2").Range("M35").Value
                    uEmail = Worksheets("Ark2").Range("N35").Value
                    Produkt = Worksheets("Ark2").Range("A35").Value
                Case 34
                    ID1 = Worksheets("Ark2").Range("C36").Value
                    Firma = Worksheets("Ark2").Range("D36").Value
                    Adresse = Worksheets("Ark2").Range("E36").Value
                    Postnr = Worksheets("Ark2").Range("F36").Value
                    By = Worksheets("Ark2").Range("G36").Value
                    Kontakt = Worksheets("Ark2").Range("H36").Value
                    Telefon = Worksheets("Ark2").Range("I36").Value
                    Email = Worksheets("Ark2").Range("J36").Value
                    uKunde = Worksheets("Ark2").Range("K36").Value
                    uKontakt = Worksheets("Ark2").Range("L36").Value
                    uTlf = Worksheets("Ark2").Range("M36").Value
                    uEmail = Worksheets("Ark2").Range("N36").Value
                    Produkt = Worksheets("Ark2").Range("A36").Value
                Case 35
                    ID1 = Worksheets("Ark2").Range("C37").Value
                    Firma = Worksheets("Ark2").Range("D37").Value
                    Adresse = Worksheets("Ark2").Range("E37").Value
                    Postnr = Worksheets("Ark2").Range("F37").Value
                    By = Worksheets("Ark2").Range("G37").Value
                    Kontakt = Worksheets("Ark2").Range("H37").Value
                    Telefon = Worksheets("Ark2").Range("I37").Value
                    Email = Worksheets("Ark2").Range("J37").Value
                    uKunde = Worksheets("Ark2").Range("K37").Value
                    uKontakt = Worksheets("Ark2").Range("L37").Value
                    uTlf = Worksheets("Ark2").Range("M37").Value
                    uEmail = Worksheets("Ark2").Range("N37").Value
                    Produkt = Worksheets("Ark2").Range("A37").Value
                Case 36
                    ID1 = Worksheets("Ark2").Range("C38").Value
                    Firma = Worksheets("Ark2").Range("D38").Value
                    Adresse = Worksheets("Ark2").Range("E38").Value
                    Postnr = Worksheets("Ark2").Range("F38").Value
                    By = Worksheets("Ark2").Range("G38").Value
                    Kontakt = Worksheets("Ark2").Range("H38").Value
                    Telefon = Worksheets("Ark2").Range("I38").Value
                    Email = Worksheets("Ark2").Range("J38").Value
                    uKunde = Worksheets("Ark2").Range("K38").Value
                    uKontakt = Worksheets("Ark2").Range("L38").Value
                    uTlf = Worksheets("Ark2").Range("M38").Value
                    uEmail = Worksheets("Ark2").Range("N38").Value
                    Produkt = Worksheets("Ark2").Range("A38").Value
                Case 37
                    ID1 = Worksheets("Ark2").Range("C39").Value
                    Firma = Worksheets("Ark2").Range("D39").Value
                    Adresse = Worksheets("Ark2").Range("E39").Value
                    Postnr = Worksheets("Ark2").Range("F39").Value
                    By = Worksheets("Ark2").Range("G39").Value
                    Kontakt = Worksheets("Ark2").Range("H39").Value
                    Telefon = Worksheets("Ark2").Range("I39").Value
                    Email = Worksheets("Ark2").Range("J39").Value
                    uKunde = Worksheets("Ark2").Range("K39").Value
                    uKontakt = Worksheets("Ark2").Range("L39").Value
                    uTlf = Worksheets("Ark2").Range("M39").Value
                    uEmail = Worksheets("Ark2").Range("N39").Value
                    Produkt = Worksheets("Ark2").Range("A39").Value
                Case 38
                    ID1 = Worksheets("Ark2").Range("C40").Value
                    Firma = Worksheets("Ark2").Range("D40").Value
                    Adresse = Worksheets("Ark2").Range("E40").Value
                    Postnr = Worksheets("Ark2").Range("F40").Value
                    By = Worksheets("Ark2").Range("G40").Value
                    Kontakt = Worksheets("Ark2").Range("H40").Value
                    Telefon = Worksheets("Ark2").Range("I40").Value
                    Email = Worksheets("Ark2").Range("J40").Value
                    uKunde = Worksheets("Ark2").Range("K40").Value
                    uKontakt = Worksheets("Ark2").Range("L40").Value
                    uTlf = Worksheets("Ark2").Range("M40").Value
                    uEmail = Worksheets("Ark2").Range("N40").Value
                    Produkt = Worksheets("Ark2").Range("A40").Value
                Case 39
                    ID1 = Worksheets("Ark2").Range("C41").Value
                    Firma = Worksheets("Ark2").Range("D41").Value
                    Adresse = Worksheets("Ark2").Range("E41").Value
                    Postnr = Worksheets("Ark2").Range("F41").Value
                    By = Worksheets("Ark2").Range("G41").Value
                    Kontakt = Worksheets("Ark2").Range("H41").Value
                    Telefon = Worksheets("Ark2").Range("I41").Value
                    Email = Worksheets("Ark2").Range("J41").Value
                    uKunde = Worksheets("Ark2").Range("K41").Value
                    uKontakt = Worksheets("Ark2").Range("L41").Value
                    uTlf = Worksheets("Ark2").Range("M41").Value
                    uEmail = Worksheets("Ark2").Range("N41").Value
                    Produkt = Worksheets("Ark2").Range("A41").Value
                Case 40
                    ID1 = Worksheets("Ark2").Range("C42").Value
                    Firma = Worksheets("Ark2").Range("D42").Value
                    Adresse = Worksheets("Ark2").Range("E42").Value
                    Postnr = Worksheets("Ark2").Range("F42").Value
                    By = Worksheets("Ark2").Range("G42").Value
                    Kontakt = Worksheets("Ark2").Range("H42").Value
                    Telefon = Worksheets("Ark2").Range("I42").Value
                    Email = Worksheets("Ark2").Range("J42").Value
                    uKunde = Worksheets("Ark2").Range("K42").Value
                    uKontakt = Worksheets("Ark2").Range("L42").Value
                    uTlf = Worksheets("Ark2").Range("M42").Value
                    uEmail = Worksheets("Ark2").Range("N42").Value
                    Produkt = Worksheets("Ark2").Range("A42").Value
                Case 41
                    ID1 = Worksheets("Ark2").Range("C43").Value
                    Firma = Worksheets("Ark2").Range("D43").Value
                    Adresse = Worksheets("Ark2").Range("E43").Value
                    Postnr = Worksheets("Ark2").Range("F43").Value
                    By = Worksheets("Ark2").Range("G43").Value
                    Kontakt = Worksheets("Ark2").Range("H43").Value
                    Telefon = Worksheets("Ark2").Range("I43").Value
                    Email = Worksheets("Ark2").Range("J43").Value
                    uKunde = Worksheets("Ark2").Range("K43").Value
                    uKontakt = Worksheets("Ark2").Range("L43").Value
                    uTlf = Worksheets("Ark2").Range("M43").Value
                    uEmail = Worksheets("Ark2").Range("N43").Value
                    Produkt = Worksheets("Ark2").Range("A43").Value
                Case 42
                    ID1 = Worksheets("Ark2").Range("C44").Value
                    Firma = Worksheets("Ark2").Range("D44").Value
                    Adresse = Worksheets("Ark2").Range("E44").Value
                    Postnr = Worksheets("Ark2").Range("F44").Value
                    By = Worksheets("Ark2").Range("G44").Value
                    Kontakt = Worksheets("Ark2").Range("H44").Value
                    Telefon = Worksheets("Ark2").Range("I44").Value
                    Email = Worksheets("Ark2").Range("J44").Value
                    uKunde = Worksheets("Ark2").Range("K44").Value
                    uKontakt = Worksheets("Ark2").Range("L44").Value
                    uTlf = Worksheets("Ark2").Range("M44").Value
                    uEmail = Worksheets("Ark2").Range("N44").Value
                    Produkt = Worksheets("Ark2").Range("A44").Value
                Case 43
                    ID1 = Worksheets("Ark2").Range("C45").Value
                    Firma = Worksheets("Ark2").Range("D45").Value
                    Adresse = Worksheets("Ark2").Range("E45").Value
                    Postnr = Worksheets("Ark2").Range("F45").Value
                    By = Worksheets("Ark2").Range("G45").Value
                    Kontakt = Worksheets("Ark2").Range("H45").Value
                    Telefon = Worksheets("Ark2").Range("I45").Value
                    Email = Worksheets("Ark2").Range("J45").Value
                    uKunde = Worksheets("Ark2").Range("K45").Value
                    uKontakt = Worksheets("Ark2").Range("L45").Value
                    uTlf = Worksheets("Ark2").Range("M45").Value
                    uEmail = Worksheets("Ark2").Range("N45").Value
                    Produkt = Worksheets("Ark2").Range("A45").Value
                Case 44
                    ID1 = Worksheets("Ark2").Range("C46").Value
                    Firma = Worksheets("Ark2").Range("D46").Value
                    Adresse = Worksheets("Ark2").Range("E46").Value
                    Postnr = Worksheets("Ark2").Range("F46").Value
                    By = Worksheets("Ark2").Range("G46").Value
                    Kontakt = Worksheets("Ark2").Range("H46").Value
                    Telefon = Worksheets("Ark2").Range("I46").Value
                    Email = Worksheets("Ark2").Range("J46").Value
                    uKunde = Worksheets("Ark2").Range("K46").Value
                    uKontakt = Worksheets("Ark2").Range("L46").Value
                    uTlf = Worksheets("Ark2").Range("M46").Value
                    uEmail = Worksheets("Ark2").Range("N46").Value
                    Produkt = Worksheets("Ark2").Range("A46").Value
                Case 45
                    ID1 = Worksheets("Ark2").Range("C47").Value
                    Firma = Worksheets("Ark2").Range("D47").Value
                    Adresse = Worksheets("Ark2").Range("E47").Value
                    Postnr = Worksheets("Ark2").Range("F47").Value
                    By = Worksheets("Ark2").Range("G47").Value
                    Kontakt = Worksheets("Ark2").Range("H47").Value
                    Telefon = Worksheets("Ark2").Range("I47").Value
                    Email = Worksheets("Ark2").Range("J47").Value
                    uKunde = Worksheets("Ark2").Range("K47").Value
                    uKontakt = Worksheets("Ark2").Range("L47").Value
                    uTlf = Worksheets("Ark2").Range("M47").Value
                    uEmail = Worksheets("Ark2").Range("N47").Value
                    Produkt = Worksheets("Ark2").Range("A47").Value
                Case 46
                    ID1 = Worksheets("Ark2").Range("C48").Value
                    Firma = Worksheets("Ark2").Range("D48").Value
                    Adresse = Worksheets("Ark2").Range("E48").Value
                    Postnr = Worksheets("Ark2").Range("F48").Value
                    By = Worksheets("Ark2").Range("G48").Value
                    Kontakt = Worksheets("Ark2").Range("H48").Value
                    Telefon = Worksheets("Ark2").Range("I48").Value
                    Email = Worksheets("Ark2").Range("J48").Value
                    uKunde = Worksheets("Ark2").Range("K48").Value
                    uKontakt = Worksheets("Ark2").Range("L48").Value
                    uTlf = Worksheets("Ark2").Range("M48").Value
                    uEmail = Worksheets("Ark2").Range("N48").Value
                    Produkt = Worksheets("Ark2").Range("A48").Value
                Case 47
                    ID1 = Worksheets("Ark2").Range("C49").Value
                    Firma = Worksheets("Ark2").Range("D49").Value
                    Adresse = Worksheets("Ark2").Range("E49").Value
                    Postnr = Worksheets("Ark2").Range("F49").Value
                    By = Worksheets("Ark2").Range("G49").Value
                    Kontakt = Worksheets("Ark2").Range("H49").Value
                    Telefon = Worksheets("Ark2").Range("I49").Value
                    Email = Worksheets("Ark2").Range("J49").Value
                    uKunde = Worksheets("Ark2").Range("K49").Value
                    uKontakt = Worksheets("Ark2").Range("L49").Value
                    uTlf = Worksheets("Ark2").Range("M49").Value
                    uEmail = Worksheets("Ark2").Range("N49").Value
                    Produkt = Worksheets("Ark2").Range("A49").Value
                Case 48
                    ID1 = Worksheets("Ark2").Range("C50").Value
                    Firma = Worksheets("Ark2").Range("D50").Value
                    Adresse = Worksheets("Ark2").Range("E50").Value
                    Postnr = Worksheets("Ark2").Range("F50").Value
                    By = Worksheets("Ark2").Range("G50").Value
                    Kontakt = Worksheets("Ark2").Range("H50").Value
                    Telefon = Worksheets("Ark2").Range("I50").Value
                    Email = Worksheets("Ark2").Range("J50").Value
                    uKunde = Worksheets("Ark2").Range("K50").Value
                    uKontakt = Worksheets("Ark2").Range("L50").Value
                    uTlf = Worksheets("Ark2").Range("M50").Value
                    uEmail = Worksheets("Ark2").Range("N50").Value
                    Produkt = Worksheets("Ark2").Range("A50").Value
                Case 49
                    ID1 = Worksheets("Ark2").Range("C51").Value
                    Firma = Worksheets("Ark2").Range("D51").Value
                    Adresse = Worksheets("Ark2").Range("E51").Value
                    Postnr = Worksheets("Ark2").Range("F51").Value
                    By = Worksheets("Ark2").Range("G51").Value
                    Kontakt = Worksheets("Ark2").Range("H51").Value
                    Telefon = Worksheets("Ark2").Range("I51").Value
                    Email = Worksheets("Ark2").Range("J51").Value
                    uKunde = Worksheets("Ark2").Range("K51").Value
                    uKontakt = Worksheets("Ark2").Range("L51").Value
                    uTlf = Worksheets("Ark2").Range("M51").Value
                    uEmail = Worksheets("Ark2").Range("N51").Value
                    Produkt = Worksheets("Ark2").Range("A51").Value
                Case 50
                    ID1 = Worksheets("Ark2").Range("C52").Value
                    Firma = Worksheets("Ark2").Range("D52").Value
                    Adresse = Worksheets("Ark2").Range("E52").Value
                    Postnr = Worksheets("Ark2").Range("F52").Value
                    By = Worksheets("Ark2").Range("G52").Value
                    Kontakt = Worksheets("Ark2").Range("H52").Value
                    Telefon = Worksheets("Ark2").Range("I52").Value
                    Email = Worksheets("Ark2").Range("J52").Value
                    uKunde = Worksheets("Ark2").Range("K52").Value
                    uKontakt = Worksheets("Ark2").Range("L52").Value
                    uTlf = Worksheets("Ark2").Range("M52").Value
                    uEmail = Worksheets("Ark2").Range("N52").Value
                    Produkt = Worksheets("Ark2").Range("A52").Value
                Case 51
                    ID1 = Worksheets("Ark2").Range("C53").Value
                    Firma = Worksheets("Ark2").Range("D53").Value
                    Adresse = Worksheets("Ark2").Range("E53").Value
                    Postnr = Worksheets("Ark2").Range("F53").Value
                    By = Worksheets("Ark2").Range("G53").Value
                    Kontakt = Worksheets("Ark2").Range("H53").Value
                    Telefon = Worksheets("Ark2").Range("I53").Value
                    Email = Worksheets("Ark2").Range("J53").Value
                    uKunde = Worksheets("Ark2").Range("K53").Value
                    uKontakt = Worksheets("Ark2").Range("L53").Value
                    uTlf = Worksheets("Ark2").Range("M53").Value
                    uEmail = Worksheets("Ark2").Range("N53").Value
                    Produkt = Worksheets("Ark2").Range("A53").Value
                Case 52
                    ID1 = Worksheets("Ark2").Range("C54").Value
                    Firma = Worksheets("Ark2").Range("D54").Value
                    Adresse = Worksheets("Ark2").Range("E54").Value
                    Postnr = Worksheets("Ark2").Range("F54").Value
                    By = Worksheets("Ark2").Range("G54").Value
                    Kontakt = Worksheets("Ark2").Range("H54").Value
                    Telefon = Worksheets("Ark2").Range("I54").Value
                    Email = Worksheets("Ark2").Range("J54").Value
                    uKunde = Worksheets("Ark2").Range("K54").Value
                    uKontakt = Worksheets("Ark2").Range("L54").Value
                    uTlf = Worksheets("Ark2").Range("M54").Value
                    uEmail = Worksheets("Ark2").Range("N54").Value
                    Produkt = Worksheets("Ark2").Range("A54").Value
                Case 53
                    ID1 = Worksheets("Ark2").Range("C55").Value
                    Firma = Worksheets("Ark2").Range("D55").Value
                    Adresse = Worksheets("Ark2").Range("E55").Value
                    Postnr = Worksheets("Ark2").Range("F55").Value
                    By = Worksheets("Ark2").Range("G55").Value
                    Kontakt = Worksheets("Ark2").Range("H55").Value
                    Telefon = Worksheets("Ark2").Range("I55").Value
                    Email = Worksheets("Ark2").Range("J55").Value
                    uKunde = Worksheets("Ark2").Range("K55").Value
                    uKontakt = Worksheets("Ark2").Range("L55").Value
                    uTlf = Worksheets("Ark2").Range("M55").Value
                    uEmail = Worksheets("Ark2").Range("N55").Value
                    Produkt = Worksheets("Ark2").Range("A55").Value
                Case 54
                    ID1 = Worksheets("Ark2").Range("C56").Value
                    Firma = Worksheets("Ark2").Range("D56").Value
                    Adresse = Worksheets("Ark2").Range("E56").Value
                    Postnr = Worksheets("Ark2").Range("F56").Value
                    By = Worksheets("Ark2").Range("G56").Value
                    Kontakt = Worksheets("Ark2").Range("H56").Value
                    Telefon = Worksheets("Ark2").Range("I56").Value
                    Email = Worksheets("Ark2").Range("J56").Value
                    uKunde = Worksheets("Ark2").Range("K56").Value
                    uKontakt = Worksheets("Ark2").Range("L56").Value
                    uTlf = Worksheets("Ark2").Range("M56").Value
                    uEmail = Worksheets("Ark2").Range("N56").Value
                    Produkt = Worksheets("Ark2").Range("A56").Value
                Case 55
                    ID1 = Worksheets("Ark2").Range("C57").Value
                    Firma = Worksheets("Ark2").Range("D57").Value
                    Adresse = Worksheets("Ark2").Range("E57").Value
                    Postnr = Worksheets("Ark2").Range("F57").Value
                    By = Worksheets("Ark2").Range("G57").Value
                    Kontakt = Worksheets("Ark2").Range("H57").Value
                    Telefon = Worksheets("Ark2").Range("I57").Value
                    Email = Worksheets("Ark2").Range("J57").Value
                    uKunde = Worksheets("Ark2").Range("K57").Value
                    uKontakt = Worksheets("Ark2").Range("L57").Value
                    uTlf = Worksheets("Ark2").Range("M57").Value
                    uEmail = Worksheets("Ark2").Range("N57").Value
                    Produkt = Worksheets("Ark2").Range("A57").Value
                Case 56
                    ID1 = Worksheets("Ark2").Range("C58").Value
                    Firma = Worksheets("Ark2").Range("D58").Value
                    Adresse = Worksheets("Ark2").Range("E58").Value
                    Postnr = Worksheets("Ark2").Range("F58").Value
                    By = Worksheets("Ark2").Range("G58").Value
                    Kontakt = Worksheets("Ark2").Range("H58").Value
                    Telefon = Worksheets("Ark2").Range("I58").Value
                    Email = Worksheets("Ark2").Range("J58").Value
                    uKunde = Worksheets("Ark2").Range("K58").Value
                    uKontakt = Worksheets("Ark2").Range("L58").Value
                    uTlf = Worksheets("Ark2").Range("M58").Value
                    uEmail = Worksheets("Ark2").Range("N58").Value
                    Produkt = Worksheets("Ark2").Range("A58").Value
                Case 57
                    ID1 = Worksheets("Ark2").Range("C59").Value
                    Firma = Worksheets("Ark2").Range("D59").Value
                    Adresse = Worksheets("Ark2").Range("E59").Value
                    Postnr = Worksheets("Ark2").Range("F59").Value
                    By = Worksheets("Ark2").Range("G59").Value
                    Kontakt = Worksheets("Ark2").Range("H59").Value
                    Telefon = Worksheets("Ark2").Range("I59").Value
                    Email = Worksheets("Ark2").Range("J59").Value
                    uKunde = Worksheets("Ark2").Range("K59").Value
                    uKontakt = Worksheets("Ark2").Range("L59").Value
                    uTlf = Worksheets("Ark2").Range("M59").Value
                    uEmail = Worksheets("Ark2").Range("N59").Value
                    Produkt = Worksheets("Ark2").Range("A59").Value
                Case 58
                    ID1 = Worksheets("Ark2").Range("C60").Value
                    Firma = Worksheets("Ark2").Range("D60").Value
                    Adresse = Worksheets("Ark2").Range("E60").Value
                    Postnr = Worksheets("Ark2").Range("F60").Value
                    By = Worksheets("Ark2").Range("G60").Value
                    Kontakt = Worksheets("Ark2").Range("H60").Value
                    Telefon = Worksheets("Ark2").Range("I60").Value
                    Email = Worksheets("Ark2").Range("J60").Value
                    uKunde = Worksheets("Ark2").Range("K60").Value
                    uKontakt = Worksheets("Ark2").Range("L60").Value
                    uTlf = Worksheets("Ark2").Range("M60").Value
                    uEmail = Worksheets("Ark2").Range("N60").Value
                    Produkt = Worksheets("Ark2").Range("A60").Value
                Case 59
                    ID1 = Worksheets("Ark2").Range("C61").Value
                    Firma = Worksheets("Ark2").Range("D61").Value
                    Adresse = Worksheets("Ark2").Range("E61").Value
                    Postnr = Worksheets("Ark2").Range("F61").Value
                    By = Worksheets("Ark2").Range("G61").Value
                    Kontakt = Worksheets("Ark2").Range("H61").Value
                    Telefon = Worksheets("Ark2").Range("I61").Value
                    Email = Worksheets("Ark2").Range("J61").Value
                    uKunde = Worksheets("Ark2").Range("K61").Value
                    uKontakt = Worksheets("Ark2").Range("L61").Value
                    uTlf = Worksheets("Ark2").Range("M61").Value
                    uEmail = Worksheets("Ark2").Range("N61").Value
                    Produkt = Worksheets("Ark2").Range("A61").Value
                Case 60
                    ID1 = Worksheets("Ark2").Range("C62").Value
                    Firma = Worksheets("Ark2").Range("D62").Value
                    Adresse = Worksheets("Ark2").Range("E62").Value
                    Postnr = Worksheets("Ark2").Range("F62").Value
                    By = Worksheets("Ark2").Range("G62").Value
                    Kontakt = Worksheets("Ark2").Range("H62").Value
                    Telefon = Worksheets("Ark2").Range("I62").Value
                    Email = Worksheets("Ark2").Range("J62").Value
                    uKunde = Worksheets("Ark2").Range("K62").Value
                    uKontakt = Worksheets("Ark2").Range("L62").Value
                    uTlf = Worksheets("Ark2").Range("M62").Value
                    uEmail = Worksheets("Ark2").Range("N62").Value
                    Produkt = Worksheets("Ark2").Range("A62").Value
              End Select
        End If
            UserForm1!ID1.Text = ID1
            UserForm1!Firma.Text = Firma
            UserForm1!Adresse.Text = Adresse
            UserForm1!PostnrBy.Text = Postnr & " " & By
            UserForm1!Kontakt.Text = Kontakt
            UserForm1!Tlf.Text = Telefon
            UserForm1!Email.Text = Email
            UserForm1!uKunde.Text = uKunde
            UserForm1!uKontakt.Text = uKontakt
            UserForm1!uTlf.Text = uTlf
            UserForm1!uEmail.Text = uEmail
            UserForm1!Produkt.Text = Produkt
            UserForm1.Show
  End If
 
Slut:
Exit Sub

End Sub