Hallo,
da stellt sich als erstes mal die Frage, wie die Vatiable t3 Dim"ensioniert" wurde und wie die entsprechende Set Anweisung dazu aussieht. Das sollte dann so aussehen:
Dim t3 As Worksheet
set t3 = ThisWorkbook.Worksheets("DeinTabellenblatt")
Dann müssen, wenn du das in eine With - End With Klammer packst vor allen Range Objekten jeweils ein Punkt gesetzt werden, damit auf die im With angegebene Tabelle referenziert wird.
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
Gruß Werner
|