2 Spalten vergleichen
09.11.2017 17:01:56
gast123
ich habe folgendes VBA (Excel) Problem:
Ich habe in einem Tabellenblatt zwei Spalten. Nun will ich die zweite Spalte in
ein anderes Arbeitsblatt (Tabelle2) übertragen.
Es sollen aber nur die Nummern übertragen werden (von Spalte 2), welche sich nicht auch in der ersten Spalte befinden. Das heisst ich überprüfe, ob die Einträge der zweiten Spalte
auch in der ersten Spalte vorhanden sind. Falls nicht, dann übertrage sie in die Ausgabe Tabelle im zweiten Arbeitsblatt ("Tabelle2"). Falls vorhanden, dann übertrage die Nummer (von Spalte 2) nicht.
Ich habe folgendes Programm geschrieben. Das Programm funktioniert bis er die erste Nummer in Spalte 2 findet, die auch in Spalte 1 ist. Dann wird die Nummer nicht übertragen (wie gewollt). Aber alle nachfolgenden Werte werden auch nicht übertragen. Das heißt irgendwie muss die Schleife unterbrochen worden sein. Wahrscheinlich hat das Problem irgendwas mit der äußeren for..next schleife zu tun.
Ich wäre sehr dankbar wenn wir jemand weiterhelfen kann, da ich einfach nicht auf den Fehler komme.
Mfg
Meine Arbeitsmappe: https://www.herber.de/bbs/user/117570.xlsm
Sub programm()
Dim neu As String
Dim alt As String
Dim i As Integer
Dim z As Integer
Dim gleicherwert As Boolean
Dim letzteZeile As Integer
For z = 3 To Worksheets("Tabelle1").UsedRange.Rows.Count
letzteZeile = Worksheets("Tabelle2").UsedRange.Rows.Count + 1
neu = Worksheets("Tabelle1").Cells(z, 4).Value
For i = 3 To Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
alt = Worksheets("Tabelle1").Cells(i, 2).Value
If alt = neu Then
gleicherwert = True
End If
Next i
If gleicherwert = False Then
Worksheets("Tabelle2").Cells(letzteZeile, 2).Value = Worksheets("Tabelle1"). _
Cells(z, 4).Value
End If
If gleicherwert = True Then
End If
Next z
End Sub