Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Loop bei Fehler in RefEdit Feld?

Betrifft: Loop bei Fehler in RefEdit Feld? von: Andreas Hanisch
Geschrieben am: 27.05.2008 11:50:43

Hallo zusammen,

wie kann ich bei einem RefEdit Element veranlassen, daß es unter einer bestimmten Kondition wieder aktiviert wird?

Private Sub cmdAlleIdentisch_Click()

If Range(RefEdit1.Value) = “”
MsgBox "Sie müssen schon einen Bereich auswählen"

Wieder zum Anfang/ RefEdit zurück…
End If

msgbox “wunderbar, das ist ein bereich”

unload me

End Sub



Ich habe schon eine Loop ausprobiert. Die hat mir jedoch alles lahm gelegt. Mit welcher Anweisung kann ich erreichen, daß der Cursor bei einem leeren Bereich wieder im RefEdit Dokument positioniert wird.

  

Betrifft: AW: Loop bei Fehler in RefEdit Feld? von: Erich G.
Geschrieben am: 27.05.2008 12:36:43

Hallo Andreas,
eventuell so?

Private Sub cmdAlleIdentisch_Click()
   While RefEdit1.Value = ""
      MsgBox "Sie müssen schon einen Bereich auswählen"
      RefEdit1.SetFocus
      Exit Sub
   Wend
   MsgBox "wunderbar, das ist ein bereich"

   Unload Me
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: AW: Loop bei Fehler in RefEdit Feld? von: Andreas Hanisch
Geschrieben am: 27.05.2008 16:37:43

Hallo Erich,

funktioniert wunderbar. Ich werde mir While/ Wend einmal ansehen. Scheint eine UserForm- spezifische Befehlskombination zu sein.
Danke für Deine Hilfe. Nun kann ich weiterarbeiten ;-)

Grüße, Andreas


 

Beiträge aus den Excel-Beispielen zum Thema "Loop bei Fehler in RefEdit Feld?"