Clever-Excel-Forum

Hi zusammen,

ich habe ein Marko geschrieben, was eine Verkettung mehrerer Spalten mit per VBA einzutragende Werte eintragenden Werten vergleicht (In Kurz: Schaut ob der Eintrag schon vorhanden ist).

Hier das Makro:

Code:
Sub Vergleichen()

For i = 20 To 21

    ' --- Hier stehen die Werte aus dem Quellblatt ---

    ID = Cells(i, 1)

    DT = CDbl(Cells(i, 2)) 'Gibt Datum als dezimal Zahl wieder

    ML = Cells(i, 3)

    BE = Cells(i, 4)

    FB = Cells(i, 5)

    AK = Cells(i, 6)

    Ist_Wert = ID & DT & ML & BE & FB & AK

    ' --- Hier stehen die Werte aus dem Quellblatt ---

    For j = 10 To 30 ' --- Suchbereich! ---

        If Ist_Wert = Cells(j, 14) Then ' --- In Spalte 14 steht die Verkettung der 6 Spalten wo die Werte drin stehen. ---

            Debug.Print ("Klappt. Zeile:" & j)

            Exit For

        End If

    Next j

Next i

End Sub

Wo ich das Potential sehe ist die 2. For Schleife ... da gibts bestimmt was schlaueres. :)

Vielen dank schonmal.

Gruß Carsten

Hallo Carsten,

z.B. so:

   ' --- Hier stehen die Werte aus dem Quellblatt ---

  varF = Application.Match(Ist_Wert, Range("N10:N30"), 0)

  If Not IsError(varF) Then

     Debug.Print "Klappt. Zeile:" & varF + 9

  End If

Gruß Uwe

Terades

Kuwer