|
Hallo zusammen :)
Ich habe ein kleines Problem beim Nachvollziehen meines Makros. Ich muss dazu sagen, dass ich mit VBA erst seit kurzer Zeit arbeite und bisher nur ein Fachbuch dazu gelesen habe.
Dies ist der Code(leider weiß ich nicht, wie der Text-Editor genutzt werden kann. Hoffe es ist trotzdem lesbar :/)
Sub ErlöseSuchen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim ZeileFrei As Long
Dim Treffer As Range
Workbooks.Open (Quelle)
With Worksheets("5 G+V")
ZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
For Zeile = 2 To ZeileMax
Set Treffer = tbl_Schluesselung.Range("A:A").Find(what:=.Cells(Zeile, "A").Value,lookAt:=xlWhole)
If Treffer Is Nothing Then
ZeileFrei = _
tbl_Schluesselung.Range("A" & tbl_Schluesselung.Rows.Count).End(xlUp).Row
tbl_Schluesselung.Cells(ZeileFrei, "A").Value = .Cells(Zeile, "A").Value
tbl_Schluesselung.Cells(ZeileFrei, "B").Value = .Cells(Zeile, "B").Value
Else
Treffer.Offset(0, 1).Value = .Cells(Zeile, "B").Value
End If
Next Zeile
End With
End Sub
Kurze Hintergrunderklärung: Dieses Makro soll in meiner zuvor definierten Quelle das Arbeitsblatt "5 G+V" durchsuchen und schauen ob es in Zeile A dieses Blatts eine Übereinstimmung des Inhalts mit dem Inhalt aus Zeile A in meinem Arbeitsblatt "tbl_Schluesselung" findet. Falls dies der Fall ist, soll er den Wert aus Zeile B übernehmen.
Grundsätzlich funktioniert das super, solang der gesuchte Wert in der letzten Zeile im Arbeitsblatt "5 G+V" steht. Steht der gesuchte Wert allerdings in der vorletzten Zeile, wird trotzdem der letzte Wert ausgespuckt.
Beispiel:
2015
2016
2015 ist gesucht, der Wert für 2016 wird aber zurückgegeben.
Ich hoffe ich konnte mein Verständnisproblem verständlich darstellen. Hat jemand eine Idee warum dem so ist?
Gruß
Mark |