Option Explicit
Public thisWindow As Excel.Workbook
Public fft As Excel.Worksheet, uebertrag As Excel.Worksheet
Public Sub initExcel()
    Set thisWindow = Excel.ActiveWorkbook
 
    Set fft = thisWindow.Worksheets("fft")
    Set uebertrag = thisWindow.Worksheets("Uebertrag")
    Call provideValues("B84:C884", "B32")
End Sub

Felder mit * m?ssen korrekt ausgef?llt werden