Nummer vergleichen und Werte überschreiben

Ich bin schon länger am herumtüfteln, nur finde ich mit Hilfe von Sverweis keine vernünftige Lösung. Daher befürchte ich, dass die Lösung nur mit Hilfe von VBA zu lösen ist. Da ich keine Programmiersprache beherrsche, hoffe ich, dass mir jemand dabei behilflich sein kann.
Mein Problem: Ich habe eine Studierendendatei. In Spalte A steht die Matrikelnummer, dann folgen in B - BO weitere Spalten mit Angaben. Zwei Mal im Jahr erhalte ich eine aktuelle Studierendendatei. Jetzt muss ich überprüfen, ob in der neuen Liste die Matrikelnummer vorhanden ist, falls ja, sollen die Spalten B AT mit den neuen Werten ersetzt werden.
Spalte AU BO gibt es in der neuen Liste nicht und sollen daher nicht verändert werden.
Im Anhang sende ich euch die zwei Beispiel Tabellen. Die Daten habe ich natürlich verändert und im Original besteht die Liste aus über 1500 Matrikelnummern.
Ich hoffe, es kann mir jemand dabei helfen!
https://www.herber.de/bbs/user/116936.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kotti,
sollte so funktionieren - die zusätzlichen Matrikelnummern aus Liste 2 werden in Liste 1 ergänzt.
Du brauchst also auch keine Zählenwenn-Funktion mehr:

Sub NeuesSemester()
Dim rng As Range
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
'________________________________________ anpassen
Set wksQuelle = Worksheets("neues Semester")
Set wksZiel = Worksheets("Hauptdatei")
'________________________________________
Dim strMatrikel As String
Dim q As Long
Dim z As Long
Dim a As Long
Dim findRow As Long
Dim lastRowQ As Long
Dim lastRowZ As Long
lastRowQ = wksQuelle.Cells(Rows.Count, "A").End(xlUp).Row
lastRowZ = wksZiel.Cells(Rows.Count, "A").End(xlUp).Row
a = 1
Application.ScreenUpdating = False
With wksQuelle
For q = 2 To lastRowQ
strMatrikel = .Range("A" & q)
findRow = 0
For Each rng In wksZiel.Range("A2:A" & lastRowZ)
If rng.Value = strMatrikel Then
findRow = rng.Row
.Range("B" & q & ": AT" & q).Copy wksZiel.Range("B" & findRow)
Exit For
End If
Next rng
If findRow = 0 Then
.Range("A" & q & ": AT" & q).Copy wksZiel.Range("A" & lastRowZ + a)
a = a + 1
End If
Next q
End With
Application.CutCopyMode = False
Set wksQuelle = Nothing
Set wksZiel = Nothing
Set rng = Nothing
MsgBox a - 1 & " neue Namen kopiert"
End Sub

https://www.herber.de/bbs/user/116956.xls
Gruß
Klaus

Beliebteste Forumthreads (12 Monate)

Nummer vergleichen und Werte überschreiben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread