Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereich Wert ändern

Bereich Wert ändern
01.03.2015 12:42:52
Tom

Hallo
mein Problem ist folgendes
ich habe ein Bereich von "A1:E20"
wenn ich eine Zelle in diesem Bereich änder, und der Wert größer als 100 ist, dann soll eine Meldung kommen
Bsp.:
Zelle D3 ist leer - trage 101 ein - jezt soll eine meldung kommen
MsgBox "Wert übersteigt 100" & Chr(10) & Chr(10) & "Bitte Wert ändern", _
vbOKOnly, "Fehler"
die Msgbox ist ja kein Problem, aber ich bekomme das nicht mit dem Bereich hin, wenn sich da der Wert änder bzw der max Wert übersteigt
kann mir jemand helfen
danke euch schon einmal im Vorraus
Tom

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich Wert ändern
01.03.2015 12:50:57
Hajo_Zi
Hallo Tom,
Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("L22:M39, O21:O26")       ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
MsgBox 1
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub


Anzeige
AW: Bereich Wert ändern
01.03.2015 13:05:33
Tom
Hallo
danke dir Hajo
hat mir sehr weiter geholfen
schönes Wochenende noch
Tom

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige