Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
'Artikelnummer prüfen
pruefe_nummer()
ElseIf Target.Column = 2 Then
'Sortiment prüfen
pruefe_sortiment()
ElseIf Target.Column = 4 Then
'Seitenzahl prüfen
pruefe_seitenzahl()
End If
End Sub
und das ganze halt 26 fach verschachtelt, für jedes sortiment eine schleife. ich habe das sowohl mit der "&"-verbindung als auch der "Or"-verbindung und auch als If Not. irgendwie kam aber nie das richtige ergebnis.' überprüfen des Sortiments
For a = 3 To zeilen
If Tabelle1.Cells(a, 3) = "DOB" Then '1. schleife
Else
If Tabelle1.Cells(a, 3) = "Schuhe" Then '2. schleife
Else
If Tabelle1.Cells(a, 3) = "Sonst. Textilien" Then '3. schleife
Else
usw...
...wenn hier im grunde genommen erst bei änderung überprüft wird...