Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

INPUTBOX - Abbrechen

INPUTBOX - Abbrechen
Erich
Hallo EXCEL-Freunde;
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

		

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: INPUTBOX - Abbrechen
Ramses
Hallo
auf die harte Tour :-)

Sub F2_Input()
'Alle Werte in Zahlenwerte umwandeln
On Error Resume Next
Dim zelle2 As Object
Dim myName As String
Dim myRange As Range
Set myRange = Application.InputBox("Wählen Sie den Bereich", "Nachbearbeitung", Type:=8)
If myRange Is Nothing Then Exit 

Sub  ' <--- funktioniert hier nicht!?
myRange.Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
End Sub

Gruss Rainer
Danke - Rainer; perfekt!! o.T.
Erich
Merci :-) Geschlossen o.T.
Ramses
...
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige