2 DeinMsg As Object im gl. Tabellenblatt
20.09.2020 16:18:17
Nils
ich bin schon mehreren Stunden auf der Suche.
Ich würde gern diese beiden Codes im gleichen Tabellenblatt verwenden. Jedoch habe ich noch kein Lösung gefunden, um die Mehrfachdeklaration zu vermeiden.
Hätte Ihr ein Lösung für mich, bitte?
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B37")) Is Nothing Then
Range("E72").Select
Range("E72").ClearContents
Dim DeinMsg As Object, sec_
sec_ = 5
Set DeinMsg = CreateObject("WScript.Shell")
DeinMsg.Popup "Bitte Wert in Zelle B49 eintragen!", sec_, _
"Wert", 32
If Not Intersect(Target, Range("B37")) Is Nothing Then
Range("E72").Select
Range("E72").ClearContents
Dim DeinMsg As Object, sec_
sec_ = 5
Set DeinMsg = CreateObject("WScript.Shell")
DeinMsg.Popup "Bitte Wert in Zelle B49 eintragen!", sec_, _
"Wert", 32
End If
End Sub
Gruß Nils