Private Sub Worksheet_Change(ByVal Target As Range)
Dim xWks As Worksheet
Set xWks = ThisWorkbook.Worksheets(1)
y = xWks.Cells(1, 5)
If y > 0 And y < 53 And IsNumeric(y) Then
xWks.Cells(4, 15 + 3 * y).Value = xWks.Cells(4, 14).Value
End If
End Sub
Hiermit funktioniert es super für Zeile 4
Ich als blutiger Neuling dachte mir für Zeile 5 mache ich einfach den hier
Private Sub Worksheet_Change1(ByVal Target As Range)
Dim xWks As Worksheet
Set xWks = ThisWorkbook.Worksheets(1)
y = xWks.Cells(1, 5)
If y > 0 And y < 53 And IsNumeric(y) Then
xWks.Cells(5, 15 + 3 * y).Value = xWks.Cells(5, 14).Value
End If
End Sub
Aber das wird nix voran liegt das?