Wie konnte ich dies richtig anpassen; Habe zwei Mappen in einen Ordner. In MappeA befindet sich der Makro "ArtikelNummerEintragen" und nach Mappe B werden die Artikel Nummer eingetragen, Das funktioniert alles super.
So jetzt will ich den Makro "ArtikelNummerEintragen" ins MappeB einbauen(d.h. er soll die Artikel Nummer aus bestimmte MappeXY in MappeB holen) und bin ich es mir nicht sicher wie kann ich es mir den Stamverzeichnis richtig anpassen.
" Workbooks.Open ThisWorkbook.Path & "\" & Range("Zieldatei").Value iRow = 2"
ich wüder es nur probieren zum beschreiben:
" Hole mir die Artikel Nummer aus MappeXY.xlsx nach MappeB.xlsm wo sich nämlich diese Makro befindet"
Hier das orginale;
Sub ArtikelNummerEintragen()
Dim wks As Worksheet
Dim vRow As Variant
Dim iRow As Integer
Set wks = ActiveSheet
Application.ScreenUpdating = False
On Error GoTo ERRORHANDLER
Workbooks.Open ThisWorkbook.Path & "\" & Range("Zieldatei").Value
iRow = 2
Do Until IsEmpty(wks.Cells(iRow, 1))
vRow = Application.Match(wks.Cells(iRow, 1).Value, Columns(1), 0)
If Not IsError(vRow) Then
Cells(vRow, 6).Value = Cells(vRow, 6).Value + wks.Cells(iRow, 3). _
Value
End If
iRow = iRow + 1
Loop
ActiveWorkbook.Close savechanges:=True
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub
Ich Danke Euch für Euer Mühen
Freue mich über jeden Hinweis!
Netten Gruß
Becker