INPUTBOX - Abbrechen
Erich
bei nachfolgendem Makro wollte ich den Code abbrechen, wenn die InputBox
nicht gefüllt wird - aber ohne Erfolg;
gibts da ne Lösung?
Public
Sub F2_Input()
'Alle Werte in Zahlenwerte umwandeln
Dim zelle2 As Object
Dim myName As String
Dim myRange As Range 'String
Set myRange = Application.InputBox("Wählen Sie den Bereich", "Nachbearbeitung", Type:=8)
'If myRange = "" Then Exit
Sub ' <--- funktioniert hier nicht!?
myRange.Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
End Sub
(Die Zeilentrennung bei Exit
Sub wird hier falsch dargestellt;
im Original natürlich eine Zeile!)
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige