Hallo Zusammen
Ich hab schon wieder eine frage
Ich versuche verschiedene Werte miteinander zuvergleichen. Dies funktioniert auch.
Aber nach dem Vergleichen möchte ich, die Werte welche nicht schon vorhanden sind, der Liste welche ich mit den neuen Werten verglichen habe anhängen.
Dies funktioniert so halb. Gewisse Werte werden hingeschrieben, meistens solche am Anfang und mache werde auch doppelt geschrieben.
Was ist an meinen Code falsch ?
Oder hat mir jemand einen anderen Lösungsansatz ?
Hier mein Code:
Vielen Dank
Ich hab schon wieder eine frage
Ich versuche verschiedene Werte miteinander zuvergleichen. Dies funktioniert auch.
Aber nach dem Vergleichen möchte ich, die Werte welche nicht schon vorhanden sind, der Liste welche ich mit den neuen Werten verglichen habe anhängen.
Dies funktioniert so halb. Gewisse Werte werden hingeschrieben, meistens solche am Anfang und mache werde auch doppelt geschrieben.
Was ist an meinen Code falsch ?
Oder hat mir jemand einen anderen Lösungsansatz ?
Hier mein Code:
VB.NET-Quellcode
- Sub Vergleich()
- Dim temp1 As String
- Dim temp2 As String
- Dim Tempgesamt As String
- Dim ende As Integer
- ende = Sheets("Portfolio").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
- For i = 2 To 10
- temp1 = Sheets("Portfolio").Range("P" & i).Value & " " & Sheets("Portfolio").Range("Q" & i).Value
- For a = 2 To ende + 1
- temp2 = Sheets("Portfolio").Range("A" & a).Value & " " & Sheets("Portfolio").Range("B" & a).Value
- If temp1 <> temp2 Then
- Else
- GoTo naechster ' ja ich weiss GoTo st nicht sauber aber ich weiss sonst nicht wie
- End If
- If a = ende Then
- ende = Sheets("Portfolio").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
- Sheets("Portfolio").Range("A" & a).Value = Sheets("Portfolio").Range("P" & i).Value
- Sheets("Portfolio").Range("B" & a).Value = Sheets("Portfolio").Range("Q" & i).Value
- End If
- Next a
- naechster:
- Next i
- End Sub
Vielen Dank