Danke vielmals, Kode eingebaut und klappt perfekt. Eine Frage hätte ich noch: Wie muss der Einstieg in den Kode sein, wenn ich die Daten über eine Eingabemaske in die Tab1 befülle. Der Kodebeginn:
Code:
Private Sub Workbook_Open()
würde ja nur aktiv werden, wenn ich mit (den Code ) anklicken ausführen lassen.
Ich befülle aber per Eingabemaske (Userform1) und dann reagiert der Kode nicht. Wie müsste ich den Einstiegskode schreiben, um dies zu erreichen. Sobald in der Tabelle Werte verändert werden sollte auch aktualisiert werden. Habe trotz Versuchen das leider nicht hin bekommen.
Code:
Option Explicit
Sub BisZurLetztenZeile() ' geht, es passt so
Dim irow As Integer
Dim rowNr As Integer
Dim lngzeilemax As Long
Dim ws As Worksheet
Set ws = Worksheets("ArbTab")
irow = Cells(Rows.Count, 1).End(xlUp).Row
ws.Range("G2").FormulaLocal = "=WENN($H2<>"""";INDEX(PLZ!$A:$A;VERGLEICH($H2;PLZ!$C:$C;0));"""")"
ws.Range("O2").FormulaLocal = "=WENN(UND(M2<>""p"";M2<>""sz"";M2<>"""");M2-HEUTE();"""")"
Danke und Gruß Josef