Zwei Tabellen miteinandervergleichen und in einer
19.01.2017 14:08:36
Fabian
Ich möchte Zwei Excel Tabellen gegenseitig überprüfen lassen, die zu prüfende Daten sind z.B in Spalte E4 bis End of File. Wenn jetzt Spalte E4 mit der anderen Tabelle übereinstimmt möchte ich das in einer TextBox Zeile 4 richtig steht. Wenn die Zeilen unterschiedlich sind möchte ich in einer anderen TextBox falsch drinsteht.
Da ich leider nicht viel VBA Kenntnisse habe, habe ich mir im Internet etwas zusammen gesucht dies funktioniert leider nicht so wie ich es möchte.
Danke für jede Antwort
Mein bisheriger Code:
'************************************************************************************************************************************************************************
' Vergelichen der Daten
'************************************************************************************************************************************************************************
Public Sub Vergleich()
Dim Zelle, rng As range
Dim positiv As Integer
Dim negativ As Integer
Dim i As Integer
Dim eofile As Integer
Set rng = Sheets("Standardisierte-IL").range("E4").CurrentRegion 'soll nur bis ende der Zeile suchen
For Each Zelle In rng
If Zelle = Sheets("Step7-Projekt").range(Zelle.Address) Then
positiv = positiv + 1 ' soll noch für eine TextBox ersetzt werden
Else
negativ = negativ + 1
End If
Next
'Für Test zweck
MsgBox "Anzahl Richtig " & positiv & vbCrLf & "Anzahl Fehler " & negativ
Danke Fabian