Anzeige eines Hinweises

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$B$25" Then If Target.Value = "Zubehör" And _ IsNumeric(Range("B18").Value) And _ Range("B18").Value > 3000 Then MsgBox "Der Wert in Zelle B18 ist größer als 3.000" & Chr(10) & _ "und in Zelle B25 steht ""Zubehör"".", _ 64, " Hinweis für " & Application.UserName End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$B$25" Then If Target.Value = "Zubehör" And _ IsNumeric(Range("B18").Value) And _ Range("B18").Value > 3000 And _ Range("A29").Value > 2 And Range("A29").Value 7 And Range("A29").Value

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$B$25" Then If Target.Value = "Zubehör" And _ IsNumeric(Range("B18").Value) And _ Range("B18").Value > 3000 Then Select Case Range("A29").Value Case 3 To 5, 8 To 10 MsgBox " In Zelle B25 steht ""Zubehör"" und" & Chr(10) & _ "der Wert in Zelle B18 ist größer als 3.000" & Chr(10) & _ "und in Zelle A29 steht der Wert """ & Range("A29").Value & """.", _ 64, " Hinweis für " & Application.UserName End Select End If End If End Sub

Guten Morgen Peter,
habe es getestet und es funktioniert :-). Danke dafür! Habe aber noch ne Frage....komm mir schon wie Columbo vor, aber leider fällt mir sowas immer erst beim testen ein. Besteht die Möglichkeit, dass ich die Felder variabel gestallte? Bedeutet, wenn ich z.B. den Betrag in Feld B18 nachträglich veränder und der Betrag wird dadurch kleiner als 3000, dann bekomme ich ja keinen Hinweis eingeblendet, denn mein Bezug "Zubehör" hat sich nicht verändert. Erst wenn ich nochmals "Zubehör" eingebe, dann erscheint die MsgBox. Vom Prinzip ist der Ablauf die chronologische Abarbeitung der einzelnen Felder, aber der Mensch ist immer kreativ. Schonmal Danke für die bisherige Hilfe!!
Grüße
Markus

Hallo Markus,
ich hoffe, dich richtig verstanden zu haben - es soll der Hinweis erscheinen, wenn eine der drei Zellen (A29, B18, B25) verändert wird.
Dann versuch es so:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   If Target.Address = "$B$25" Then
      If Target.Value = "Zubehör" And _
         IsNumeric(Range("B18").Value) And _
         Range("B18").Value > 3000 Then
         Select Case Range("A29").Value
            Case 3 To 5, 8 To 10
            GoSub Hinweis_Ausgeben
         End Select
      End If
   ElseIf Target.Address = "$B$18" Then
      If IsNumeric(Target.Value) And _
         Target.Value > 3000 Then
         If Range("B25").Value = "Zubehör" Then
            Select Case Range("A29").Value
               Case 3 To 5, 8 To 10
               GoSub Hinweis_Ausgeben
            End Select
         End If
      End If
   ElseIf Target.Address = "$A$29" Then
      Select Case Target.Value
         Case 3 To 5, 8 To 10
         If Range("B25").Value = "Zubehör" And _
            IsNumeric(Range("B18").Value) And _
            Range("B18").Value > 3000 Then
            GoSub Hinweis_Ausgeben
         End If
      End Select
   End If
   Exit Sub
Hinweis_Ausgeben:
   MsgBox " In Zelle B25 steht ""Zubehör"" und" & Chr(10) & _
      "der Wert in Zelle B18 ist größer als 3.000" & Chr(10) & _
      "und in Zelle A29 steht der Wert """ & Range("A29").Value & """.", _
      64, "   Hinweis für " & Application.UserName
Return
End Sub

Gruß Peter

Private Sub Worksheet_Change(ByVal Target As Range) Dim MSG_Bereich As Range Set MSG_Bereich = Range("B6") 'Bereich für die Info If Not Target = "56B" Then Exit Sub 'Abfrage der Eingabe If Target.Value = "56B" Then MsgBox " Achtung! Falls ..........!", _ 64, " Hinweis für " & Application.Username End If End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread