ich habe dank der Hilfe von Ramses ein
Private Sub gebastelt.
Meine Datei umfasst ca. 34 Tabellen.
Das untenstehende
Private Sub soll allerdings nur aktiv sein, wenn ich mich in den Tabellen g1-g16 befinde.
Momentan habe ich dieses Sub in jede der 16 Tabellen eingefügt, allerdings mit dem Problem dass es eben 16x vertreten ist und ich bei einer Änderung alle ändern müsste.
Wäre nett wenn mir jemand helfen könnte wie man diese Prüfung schreibt.
Viele Grüsse
Ralle
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Qe As Integer
If Target.Row = 11 And Target.Column = 3 And (Cells(5, 6) = "2" Or Cells(5, 6) = "4") Then
If Target.Value > 1000 And Target.Value <= 1450 Then
Qe = MsgBox("Über einer Breite von 1000mm ist schleifen nur mit Mehraufwand möglich!!", vbInformation + vbOKCancel, "Hinweis")
ElseIf Target.Value > 1450 Then
Qe = MsgBox("Über einer Breite von 1450 ist Schleifen nicht möglich!!", vbInformation + vbOKOnly, "Hinweis")
End If
End If
If Target.Row = 11 And Target.Column = 5 And (Cells(5, 6) = "2" Or Cells(5, 6) = "4") Then
If Target.Value > 2000 Then
Qe = MsgBox("Über einer Länge von 2000 ist Schleifen nicht möglich!!", vbInformation + vbOKOnly, "Hinweis")
End If
End If
End Sub