VBA: Zellen kopieren (mehrfaches Suchkriterium)
11.12.2015 13:30:40
Schulz
ich habe leider mal wieder einen Kampf mit Excel gestartet den ich wieder zu verlieren scheine. :(
Ich möchte mehrere Zellen aus einer Zeile von einem Tabellenblat in das andere kopieren. Allerdings nicht irgendwelche, sondern lediglich dann, wenn das Suchkriterium "Vertragsnummer" übereinstimmt.
Mein problem ist allerdings, das dieses Suchkirterium mehrfach vorkommt.
Eigentlich soll das Makro bei z.B. 4 Übereinstimmungen (Vertragsnummer kommt in beiden Tabellenblättern immer gleich oft vor) jeweils die Zellen aus der 1. Zeile mit Übereinstimmung in die eine Zeile im Zielblatt kopieren. Die Daten aus der 2. Übereinstimmung in die DIE NÄCHSTE Zeile im Zielblatt usw.
Allerdings überschreibt mein Makro die bereits gefüllten Zellen in den Zeilen immer wieder. Ich weiß auch warum. Ich habe eine Doppelschleife eingebaut. Diese überpüft die Zellen jedes mal aufs neue auf Übereinstimmung der Vertragsnummer und fügt immer die "aktuellesten" (also als letztes gefundenen) Werte in die Zellen ein.
Deswegen habe ich am Ende in der Zieldatei 4 Zeilen voll mit den Daten aus der letzten gefundenen Übereinstimmung.
Mein Code sieht bisher wie folgt aus:
Option Explicit
Dim z As Integer
Dim i As Integer
Dim wbOTA As Workbook
Dim wsOTA As Worksheet
Dim wsBS As Worksheet
Sub CopyBS()
Set wbOTA = ThisWorkbook
Set wsOTA = wbOTA.Worksheets("OTA")
Set wsBS = wbOTA.Worksheets("BS")
i = 4
z = 3
Do While z Wenn jemand eine Idee hat wie ich das umgehen kann wäre das wunderbar.
Vielen Dank :)