UNBEANTWORTET - Codes verknüpfen
24.06.2021 14:41:39
kk86
ich melde mich nochmal, da mein Problem bisher leider noch nicht zu 100% gelöst werden konnte.
Bei meinem Tool wird ein Ordner gewählt, in dem sich verschiedene Angebote befinden.
Das erste Tabellenblatt aus den Angeboten wird auf der ersten Seite im Tool einheitlich dargestellt.
Nun würde ich gerne jeweils das komplette zweite Tabellenblatt aus den Angeboten 1:1 in das zweite Tabellenblatt des Tools übertragen.
Dieser Ausweis im Tool soll untereinander erfolgen.
Das sollte doch bspw. mit den folgenden Befehlen möglich sein oder? Kann man diesen Code mit meinem bisherigen Tool verknüpfen?
Dim rQ, rZ
With wbQ.Worksheets("Tabelle2")
For rQ = 13 To .Range("A9999").End(xlUp).Row
rZ = wsZ.Range("A9999").End(xlUp).Row + 1
wsZ.Cells(rZ, 1) = wbQ.Name
wsZ.Cells(rZ, 2) = .Cells(rQ, 2)
wsZ.Cells(rZ, 3) = .Cells(rQ, 3)
Next
End With
End Sub
Sorry meine VBA Kenntnisse sind in diesem Bereich wirklich schlecht und vielleicht denke ich zu kompliziert.
Ich möchte einfach nur das zweite Tabellenblatt der Angebote in das zweite Tabellenblatt des Tools übertragen.
Für eine Rückmeldung wäre ich sehr dankbar.
1. Beispiel-Datei = Tool: https://www.herber.de/bbs/user/146768.xlsm
2. und 3. Beispiel-Datei = Angebot: https://www.herber.de/bbs/user/146769.xlsx / https://www.herber.de/bbs/user/146770.xlsx