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
|