Variable innerhalb einer FOR Schleife ein 2. Mal nutzen

REM @echo off
REM ******************** START Kopiert die aktuelle Sicherung auf 2 Ziele **************************
Set Quelle=D:\Vault_Backup
Set Ziel1=D:\Vault_Backup_Sammler
Set Ziel2=\\SERVER2\g\vm-vltprod
Set /a MaxDirs=3
Set /a counter=0

set LogFileDir=%Quelle%_Log
set LogFile=%~n0.log
set Log=%LogFileDir%\%LogFile%

>>%log% echo.
>>%log% echo.

>>%log% echo *X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*
>>%log% echo -----------------------------------------------------------------
>>%Log% Echo 1 Datum: %date% %time% Start Protokoll %LogFile% 
>>%log% echo -----------------------------------------------------------------
>>%log% echo.

REM >>%Log% Echo 2 Datum: %date% %time% %Ziel1%
REM for /f "tokens=3 delims=\" %%a in ('xcopy "%Quelle%%1" "%Ziel1%" /I /H /E /Y') do >>%log% echo Kopiere %%~a ... & REM goto :eof1  
REM :eof1
REM IF %Errorlevel% EQU 0 (
REM >>%Log% Echo %time% Datei %%~a erfolgreich kopiert
REM ) Else (
REM >>%Log% Echo %time% Datei %%~a NICHT kopiert, Fehler %Errorlevel%
REM )
REM>>%log% echo.
REM>>%log% echo ------------------------------------------------------
REM>>%log% echo.

>>%log% echo -----------------------------------------------------------------
>>%Log% Echo 3 Datum: %date% %time% Ziel2=%Ziel2%
>>%log% echo -----------------------------------------------------------------
for /f "tokens=3 delims=\" %%a in ('xcopy "%Quelle%%1" "%Ziel2%" /I /H /E /Y') do >>%Log% echo Kopiere %%~a ...& goto :eof2  
:eof2

IF %Errorlevel% EQU 0 (
>>%Log% Echo %time% Backup %%~a erfolgreich kopiert
 ) Else (
>>%Log% Echo %time% Backup %%~a NICHT kopiert, Fehler %Errorlevel%
 )


REM ******************** ENDE Kopiert die aktuelle Sicherung auf 2 Ziele  ***********************


REM **************************** START Erhalte max 3 Vault-Backups ******************************

>>%Log% echo.
>>%Log% echo.
>>%log% echo -----------------------------------------------------------------
>>%Log% Echo 4 Datum: %date% %time%
>>%log% echo -----------------------------------------------------------------
@echo :: ALTE SICHERUNGEN LOESCHEN 

for /f "delims=" %%i in ('dir /Ad /A-h /b /O-N "%Quelle%"') do call :loop "%%i"  
goto :eof

:loop
set /a counter=%Counter%+1 >>%Log%
if %counter% LEQ %MaxDirs% (echo %~1 ...%Counter% ^<^= %MaxDirs%....ok, kann bleiben ) >>%Log% & goto :eof

@echo BACKUP BEENDET!

REM **************************** Start Backupordnergröße auslesen *******************************

>>%log% echo.
set temp="%temp%\temp.vbs"  

echo WScript.Echo Round(Abs(CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments(0)).Size/1024/1024/1024),4)>%temp%  
for /f %%i in ('cscript //nologo %temp% "%Quelle%\%~1"') do set Gr=%%i  
>>%LoG% echo Das Backup %Quelle%\%~1 ...  
>>%LoG% echo ... welches gelöscht wurde, war %Gr% GB gross.
del %temp%

REM **************************** Ende Backupordnergröße auslesen ********************************
rd /s /q "%Quelle%\%~1"  
REM goto :eof
REM **************************** ENDE Erhalte max 3 Vault-Backups *******************************