Hallo Leute!

Weiß jemand von euch wie man bei den Formularen mehrere nach einander folgende Codes auf ein anderes Tabellenblatt beziehen könnte?

Ich habe versucht einfach "With" zu benutzen, aber scheinbar ist das falsch :(

Also im Tabellenblatt 1 ist ein Formular hinterlegt und die Codes werden dort alle geschrieben. Jetzt will ich aber, dass die unten angegebene Codes im Tabellenblatt 3 (t3) ausgeführet werden.

Ich hoffe auf eure Hilfe! Danke euch!

VG

 With t3
 
 'Tabellenblatt Mengeneingabe: Spalte A, C automatisch fortführen

    Dim lngLastRow As Long
    Dim lngCounter As Long

    Application.ScreenUpdating = True

    lngLastRow = Range("D1").End(xlDown).Row 'letzte Zeile ohne Unterbrechung in Spalte D feststellen

    For lngCounter = lngLastRow - 2 To lngLastRow
        Cells(lngCounter, 1).Formula = "=YEAR(TODAY())"
 
    Next lngCounter

    Application.ScreenUpdating = True

  
'Tabellenblatt Mengeneingabe: SVERWEIS für Spalte B

    Dim z As Long
    Dim lz As Long
    
    lz = Range("D65536").End(xlUp).Row

    If Range("D65536") <> "" Then lz = 65536
        On Error Resume Next

        For z = Cells(Rows.Count, 4).End(xlUp).Row - 2 To lz
        Cells(z, 2).value = "=VLOOKUP(RC[2], Datum, 9, 0)"
        
        Next z

'Tabellenblatt Mengeneingabe: Spalte C

   For z = Cells(Rows.Count, 4).End(xlUp).Row - 2 To lz
        Cells(z, 3).value = "=WEEKNUM(RC[-1],1)"
        
        Next z
 End With