Microsoft Excel

Herbers Excel/VBA-Archiv

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

Mehr oder weniger



Excel-Version: 10.0 (Office XP)

Betrifft: Mehr oder weniger
von: Marian
Geschrieben am: 30.05.2002 - 09:29:49

Hi Leute

Habe kleines Problem. Wie bekomme ich das hin, dass eine Msgbox erscheint, wenn in einem Textfeld mehr oder weniger als 8 Zeichen eingegeben werden. Danke im Voraus...

Viele Grüsse
Marian :)

  

Re: Mehr oder weniger
von: Harald Kapp
Geschrieben am: 30.05.2002 - 10:32:35

Hallo Marian,
im Code Modul des tabellenblattes folgenden Code eingeben:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Len(Target.Value) <> 8 Then
      MsgBox "Bitte genau 8 Zeichen eingeben"
   End If
End Sub

Falls die Einschränkung nur für bestimmte Zellen gelten soll, musst Du vor der obigen IF-Abfrage noch eine Abfrage einbauen, damit nur die betroffenen Zellen abgefragt werden.

Gruß Harald

 

Beiträge aus den Excel-Beispielen zum Thema "Mehr oder weniger"