Eine einfachere Lösung
13.04.2021 22:39:22
Daniel
Habe da mal was gebastelt. Funktioniert auch. Denke aber, ein Profi kann dies mit weniger Zeilen lösen?
Freue mich auf Vorschläge.
Gruss Daniel
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Byte
Dim a As Byte
Bereich = Application.WorksheetFunction.Count(Range("A3:A26"))
For a = 1 To 6
If Bereich = a Then
MsgBox "Braucht nur eine Seite!"
End If
Next
For a = 7 To 12
If Bereich = a Then
MsgBox "Braucht zwei Seiten!"
End If
Next
For a = 13 To 18
If Bereich = a Then
MsgBox "Braucht drei Seiten!"
End If
Next
For a = 19 To 24
If Bereich = a Then
MsgBox "Braucht vier Seiten!"
End If
Next
End Sub
Anzeige
