.activate umgehen...
17.12.2020 10:04:26
Tim
ich möchte aktuell verschiedene Werte kopieren und in einer anderen Tabelle geordnet einfügen.
Dabei soll ein Makro diesen Aufwand übernehmen. Da meine Makro Kenntnisse noch sehr beschränkt _ sind komme ich nicht drum rum .activate und .select drin zu haben.
Cells(a, 2).Copy
Windows("Neusetzung.xlsx").Activate
Cells(w, 8).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Bewerberverzeichnis.xlsm").Activate
Nach einer Weile googlen kam ich zu folgenden Ausdruck:
Dim sWB As Workbook
Dim sWS As Worksheet
Dim zWB As Workbook
Dim zWS As Worksheet
Set sWB = Workbooks("Bewerberverzeichnis.xlsm")
Set sWS = sWB.ActiveSheet
Set zWB = Workbooks("Neusetzung.xlsx")
Set zWS = zWB.Worksheets("Tabelle1")
sWS.Cells(9, 2).Copy.Value
zWS.Cells(360, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Hier gibt er mir bei sWS.Cells(9,2).Value den Laufzeitfehler 424 aus und ich weiß leider nicht woran es liegt. Die Lösung ist wahrscheinlich ziemlich einfach...
Bin über jede einzelne Hilfe dankbar!
VG
Tim