Application.match - 2te Bedingung
09.03.2004 08:08:41
Dicky
ich habe folgendes Problem:
Mit folgendem Code vergleiche ich 2 spalten in verschiedenen Tabellen und kopiere dann die entsprechende Zeile, bei der keine Übereinstimmung erzielt wurde.
Ich benötige jedoch eine 2te Bedingung. Wie kann ich 2 Vergleichsbedingungen verknüpfen. (es wird dann bei beiden Tabellen zusätzlich die Spalte A verglichen)
Ein Ansatz oder der direkte Befehl würde mirt schon reichen.
Sub erledigteRG()
Dim i As Integer ' Zählerschleife
Dim var As Variant
Dim var1 As Variant
Dim vartot As Variant
Dim RGGS As Worksheet Dim erl As Worksheet
Set RGGS = Worksheets("RG_GS_Journal")
Set erl = Worksheets("Erledigte")
Dim newsheet As Worksheet
Dim n As Integer
Dim lzeile As Integer
'Vergleich neue RG/GS mit Erledigte Kopieren der zu löschenden Zeilen und danach löschen
RGGS.Activate
RGGS.Range("c7").Select
Range(Selection, Selection.End(xlDown)).Select 'bildet Bereich bis letzte gefüllte Zeile
n = Selection.Count 'gibt Anzahl des Bereichs aus
' Vergleich der RG/GS mit erledigte RG/GS
For i = 7 To n + 6
var = Application.Match(RGGS.Cells(i, 3).Value, erl.Columns(7), 0)
If IsError(var) Then
RGGS.Activate
Rows(i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("geloeschte").Select
lzeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(lzeile).Select
ActiveSheet.Paste
End If
Next i
End Sub
Danke im voraus
frank