vergleich einer Spalte in excel unter vb

[Sonic3]

Ich brauche jetzt euer Hilfe?
DAnke im Vorraus!
---------------------------------------------------------------
Sub TabellenVergleich()
txt_Ausgabebericht = "Tabellen werden verglichen"
Dim optStatusBar As Boolean

Dim lngDiffCnt As Long
Dim zahler As Integer
Dim zeile As Integer
Dim zeile2 As Integer
Dim A() As String ' array objekt
Dim A2() As String ' array objekt

Application.ScreenUpdating = False 'Bildschirmaktualisierung deaktivieren:

Application.StatusBar = True
Application.StatusBar = "Vergleichstabelle wird erstellt..."
Application.DisplayAlerts = False 'Anzeige Excel-Warnungen und -Meldungen deaktivieren:

'Anzeige Excel-Warnungen und -Meldungen aktivieren:
Application.DisplayAlerts = True
zahler = 1
zeile = 1
zeile2 = 2

Dim c As Integer
Dim j As Integer
Dim zeilenrow As Long
Dim zeilenrow2 As Long
Dim intCol As Integer
Dim intCol2 As Integer
Dim lngRow As Long
Dim lngRow2 As Long
intCol = 1
intCol2 = 1

Workbooks(Workbookname1).Worksheets(WorksheetnamedererstenDatei).Activate

With Worksheets(1)
If Application.WorksheetFunction.CountA( _
.Columns(intCol).EntireColumn) > 0 Then
lngRow = .Cells(.Rows.Count, intCol).End(xlUp).Row
'lngRow = .Cells(65536, intCol).End(xlUp).Row

End If

End With
zeilenrow = lngRow

For b = zeile To zeilenrow Step 1


ReDim Preserve Feldinhalt(b)
Feldinhalt(b) = Workbooks(Workbookname1).Worksheets(WorksheetnamedererstenDatei).Cells(b, 1)
'MsgBox ("erstens" & Feldinhalt(b))

Workbooks("Note 06.03 Generali Teil 1").Worksheets(WorksheetnamederzweitenDatei).Activate

With Worksheets(1)
If Application.WorksheetFunction.CountA( _
.Columns(intCol2).EntireColumn) > 0 Then
lngRow2 = .Cells(.Rows.Count, intCol2).End(xlUp).Row
'lngRow2 = .Cells(65536, intCol2).End(xlUp).Row
zeilenrow2 = lngRow2 - 10
End If
End With

For c = zeile2 To zeilenrow2 Step 1

ReDim Preserve fehler(b)
ReDim Preserve Feldinhalt2(c)
Feldinhalt2(c) = Workbooks(Workbookname2).Worksheets (WorksheetnamederzweitenDatei).Cells(c, 1)

If Feldinhalt(b) = Feldinhalt2(c) Then

'Hier brauche ich hilfe

Else
'Hier brauche ich hilfe
End If

Next c
Next b
End Sub
--------------------------------------------------------------


Wie vergleiche die ich Spalte A Arbeitsmappe1 mit Spalte A Arbeitsmappe2?

zeileA vergleichen mit kompletter SpalteA
zeileB vergleichen mit kompletter SpalteA
zeileC vergleichen mit kompletter SpalteA
zeileD vergleichen mit kompletter SpalteA
u.s.w

wenn vorhanden ok,
wenn nicht dann in variable speichern und ausgeben in neuer Tabelle,die nicht gefundene zeile .



Viel Viel Danke

[MeLLe]

Kannst Du Dden Zweck, den Du mit Deinem VBA-Häppchen verfolgst, nochmal in paar kurzen Sätzen, vielleicht auch mit nem direkten Beispiel, näher beleuchten? Mir ist gtrad etwas schwummrig, hast mich mit Deiner Erklärung mehr verwirrt als alles andere ... :D