Ich habe ein kleines Problem mit VBA und weis langsam nicht mehr wo oder was ich noch suchen könnte um es zu beheben.
Ausgang
Importtabelle Ktonrtabelle a b c a b c 1 1 2 2 3 3 4 4 5 123 5 123 6 222 6 222 7 114 7 8 8
In der Importtabelle stehen Kontonummern ab Zelle C5. Diese sollen mit der Ktonrtabelle Zelle A5 verglichen werden und fehlende Kontonummern ( in diesem Fall Zelle C7 Kontonummer 114 ) in die Ktonrtabelle unten angefügt werden ( Zelle A7 ) ohne das Dublikate in der Ktonrtabelle entstehen.
Die Werte der Zelle C5 der Importtabelle verändern sich immer je nach eingelesenem Datensatz der CSV Datei.
Mein Lösungsansatz ist:
Sub werte_lesen()
Sheets("Import").Select
Range("C5").Select
Selection.End(xlDown).Select
letzte_zeile_datei2 = ActiveCell.Row
Sheets("Ktonr").Select
Range("A5").Select
Selection.End(xlDown).Select
letzte_zeile_datei1 = ActiveCell.Row
For i = 1 To letzte_zeile_datei1
gefunden = False
For j = 1 To letzte_zeile_datei1
Sheets("Import").Select
vgl_string = Range("C" + LTrim(Str(i))).Value
Sheets("Ktonr").Select
If Range("A" + LTrim(Str(j))).Value = vgl_string Then
gefunden = True
Exit For
End If
Next
If Not gefunden Then
letzte_zeile_datei2 = letzte_zeile_datei2 + 1
Range("A" + LTrim(Str(letzte_zeile_datei2))).Value = vgl_string
End If
Next
End Sub
Da meine VBA Kenntnisse aber nur sehr dürftig sind, kommt es immer nur zu einem Laufzeitfehler. :-(
Für eine Hilfe bedanke ich mich im voraus.
MfG
Jens