in diesem Code hat die Zelle DruckAufl den Wert xy
Gebe ich in der Inputbox einen Wert Wo liegt mein Denkfehler?
Grüße - Jörg
Sub AuflagenTesten()
Dim vAuflTest As Variant
Dim ws As Worksheet
vAuflTest = InputBox("", "Andere Auflagen testen...:")
If vAuflTest = "" Then
Exit Sub
ElseIf Not IsNumeric(vAuflTest) Then
Exit Sub
ElseIf vAuflTest