Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1620to1624
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

VBA Anweisung erweitern

VBA Anweisung erweitern
06.05.2018 07:16:13
Mirco
Hallo,
folgende Anweisung funktioniert so weit einwandfrei
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("n21") > 1 Then
MsgBox ("Überbelegung")
Exit Sub
End If
End Sub
Nun möchte ich aber diese Anweisung auf mehrere Zellen. Zum Beispiel C4 bis N21, oder aber auch Spalten oder Zeilen bezogen. Auf jedenfall soll dann in dem Bereich jedesmal bei überschreiten die Fehlermeldung ausgegeben werden.
Gruß Mirco

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Anweisung erweitern
06.05.2018 07:24:50
Luschi
Hallo Mirco,
versuch es mal so:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count  1 Then Exit Sub
If Not (Application.Intersect(Range("C4:N21"), Target) Is Nothing) Then
If Target.Value > 1 Then
MsgBox ("Überbelegung")
Exit Sub
End If
End If
End Sub
Gruß von Luschi
aus klein-Paris
AW: VBA Anweisung erweitern
06.05.2018 07:24:50
Crazy
moin
meinst du so?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngBereich As Range
Set rngBereich = Range("C4:N21")
If Not Intersect(Target, rngBereich) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 1 Then
MsgBox ("Überbelegung")
End If
End If
End Sub
MfG Tom
Anzeige
AW: VBA Anweisung erweitern
06.05.2018 07:55:08
Mirco
Leider funktioniert das mit beiden Versionen nicht. Es wird kein Popup ausgelöst. Vielleicht mach ich auch etwas falsch, weil VBA ist nicht so mein Steckenpferd. Wenn ich meine Version nehme wird auf jedenfall bei N21 größer als 1 eine Fehlermeldung ausgelöst. In dieser Zelle wird abgefragt ob größer 1. Gezählt wird dort wieviel mal "UM" vorkommt. Hab mal die Tabelle hochgelaaden. Vielleicht hat noch jemand eine Lösung
https://www.herber.de/bbs/user/121460.xlsx
AW: VBA Anweisung erweitern
06.05.2018 12:45:42
Mirco
Hallo .....
keiner eine Idee oder Lösung für mein Problem?
Mirco
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige