Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Abfrage erweitern
 12.05.2018 09:16:04 Mirco
Solved
12.05.2018 09:28:49 Gast58769
Solved
13.05.2018 21:15:02 Gast14916
NotSolved

Ansicht des Beitrags:
Von:
Mirco		 Datum:
12.05.2018 09:16:04		 Views:
987		 Rating:
     
Antwort:
 Nein
Thema:
VBA Abfrage erweitern

Hi ...

folgende Anweisung funktioniert so weit einwandfrei
 

Code: Alles auswählen
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.
Habe schon mehrere Versuche hinter mir die aber alle nicht funktionieren


Code: Alles auswählen
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

Code: Alles auswählen
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



Gruß Mirco

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Abfrage erweitern
 12.05.2018 09:16:04 Mirco
Solved
12.05.2018 09:28:49 Gast58769
Solved
13.05.2018 21:15:02 Gast14916
NotSolved