Hinweis per MsgBox nach Dateneingabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MSG_Bereich As Range Static booEinmal As Boolean If Not booEinmal Then 'Anzeige nur einmal auslösen Set MSG_Bereich = Range("A1:A10") 'Bereich für die Info If Not Intersect(Target, MSG_Bereich) Is Nothing Then 'prüfen ob im Bereich MsgBox "Geben Sie im Bereich " & MSG_Bereich.Address(0, 0) & " ein Datum ein!", vbInformation booEinmal = True End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim MSG_Bereich As Range Set MSG_Bereich = Range("A1:A10") 'Bereich für die Info If Not Intersect(Target, MSG_Bereich) Is Nothing Then 'prüfen ob im Bereich MsgBox strMSG(Target.Value), vbInformation End If End Sub 'Funktion für die Meldungen Private Function strMSG(iWert As Integer) As String Select Case iWert Case 56: strMSG = "Hinweis zu 56" Case 57: strMSG = "Hinweis zu 56" Case 58: strMSG = "Hinweis zu 56" Case 59: strMSG = "Hinweis zu 56" End Select End Function

Hallo,
sorry das ich mich erst jetzt melde,
nach einem Vista Update hatte ich mit einem blauen Bildschirm zu kämpfen.
Hier mal etwas erweiter, ist die Nummer in der Funktion nicht vorhanden, wird auch keine Meldung ausgegeben.
kommt als Code in Tabelle

Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim MSG_Bereich As Range 
Dim strText As String 
 
    Set MSG_Bereich = Range("A1:A10") 'Bereich für die Info 
     
    If Not Intersect(Target, MSG_Bereich) Is Nothing Then 'prüfen ob im Bereich 
         
        strText = strMSG(Target.Value) 'Textabfrage 
      
        If strText <> "" Then 'wurde ein Text zurückgegeben 
           MsgBox strMSG(Target.Value), vbInformation 'Ausgabe 
        End If 
     
    End If 
End Sub 
 
 
'Funktion für die Meldungen 
Private Function strMSG(iWert As Integer) As String 
    Select Case iWert 
     'Nummer und Texte entsprechend anpassen 
     Case 56: strMSG = "Hinweis zu 56" 
     Case 57: strMSG = "Hinweis zu 57" 
     Case 58: strMSG = "Hinweis zu 58" 
     Case 59: strMSG = "Hinweis zu 59" 
     Case 60 To 65: strMSG = "Hinweis zu 60 bis 65" 
     'usw... 
    End Select 
End Function

Gruß Tino

Hi Tino,
nochmals Danke das Du geschaut hast. Hoffentlich haste das mit dem Vista Update wieder hinbekommen und der PC läuft wieder so wie immer. Is ja leider nicht immer so.........
Hatte so langsam die Hoffnung aufgegeben, aber das Gute war, dass ich jetzt Deinen Code verstehe. Ich könnte ihn zwar immer noch nicht schreiben, aber ich verstehe es und das beruhigt mich etwas. Habe aus der Function (iWert As Integer) ein iWert As String gemacht, da ich leider auch eine 56B zur Auswahl habe. Hatte auch so lange rumgetüfftelt, dass ich jetzt eine MsgBox für einen einzelnen Wert bekomme. Ich weiß, der Code wird für viele ein leichtes sein, aber Kleinvieh macht auch Mist und bin en bissl stolz auf mich. Okay, soviel zu meiner aktuellen Gemütsverfassung :-)
Dein Code funktioniert genau so wie ich es mir vorgestellt habe. Es erfolgt nur dann ein Hinweis, wenn die entsprechende Eingabe erfolgt.
Nochmals Danke für Deine Hilfe!
Grüße Markus

Beliebteste Forumthreads (12 Monate)

Hinweis per MsgBox nach Dateneingabe

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hinweis per MsgBox nach Dateneingabe

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread