Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range mehrere Bereiche setzen

Forumthread: Range mehrere Bereiche setzen

Range mehrere Bereiche setzen
24.09.2014 20:27:41
Sascha

Hallo liebe Experten,
Ich steh auf dem Schlauch.
Ich möchte eine doppelte Eingabe Abfangen.
Wenn ich nur einen Bereich angebe funktioniert es tadellos.
Mehrere Bereiche zu definieren, schaffe ich nicht.
Obwohl ich den Range-Bereich im sub test() genau gleich angebe. Beim sub test() markiert es mir aber die Bereiche so wie ich es will.
Kann mir jemand helfen?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A3:A15,B3:B9,C3:C9")
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
MsgBox ("Doppelter Eintrag nicht zulässig")
Application.EnableEvents = False
Target.Value = ""
End If
End Sub
Sub test()
Sheets("Hilf").Range("A3:A15,B3:B9,C3:C9").Select
End Sub
Liebe Grüsse
Sascha

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range mehrere Bereiche setzen
24.09.2014 22:21:05
Beverly
Hi Sascha,
su kannst es so lösen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A3:A15,B3:B9,C3:C9")
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich.Areas(1), Target.Value) + _
WorksheetFunction.CountIf(Bereich.Areas(2), Target.Value) + _
WorksheetFunction.CountIf(Bereich.Areas(3), Target.Value) > 1 Then
MsgBox ("Doppelter Eintrag nicht zulässig")
Application.EnableEvents = False
Target.Value = ""
End If
End Sub

Anzeige
AW: Range mehrere Bereiche setzen
25.09.2014 07:20:54
Sascha
Hallo Beverly,
Vielen Dank für Deine Hilfe.
Leider funktioniert es so auch noch nicht.
Nun funktioniert es NUR im Bereich ("C3:C9").
Die anderen beiden Bereiche werden ignoriert...
Hast Du noch eine andere Idee?
Gruss Sascha

AW: Range mehrere Bereiche setzen
25.09.2014 08:18:38
Beverly
Hi Sascha,
du musst die Reaktion auf die Eingabe auch wieder einschalten (diesen generellen Fehler hatte ich in deinem Ausgangscode übersehen):
    If WorksheetFunction.CountIf(Bereich.Areas(1), Target.Value) + _
WorksheetFunction.CountIf(Bereich.Areas(2), Target.Value) + _
WorksheetFunction.CountIf(Bereich.Areas(3), Target.Value) > 1 Then
MsgBox ("Doppelter Eintrag nicht zulässig")
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
End If

Anzeige
AW: Range mehrere Bereiche setzen
25.09.2014 19:06:55
Sascha
Hallo Beverly,
Aaaaahhh Super!
So funktioniert es Prima.
Bin froh!
Vielen Dank nochmals für Deine Hilfe!
Ganz liebe Grüsse
Sascha

AW: Range mehrere Bereiche setzen
25.09.2014 07:42:25
Sascha
Hallo,
Ich habe folgende Lösung gefunden.
So funktioniert es: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("A3:A15"), Target) > 1 Then
Target = ""
MsgBox ("Doppelter Eintrag nicht zulässig")
End If
If Application.WorksheetFunction.CountIf(Range("B3:B9"), Target) > 1 Then
Target = ""
MsgBox ("Doppelter Eintrag nicht zulässig")
End If
If Application.WorksheetFunction.CountIf(Range("C3:C9"), Target) > 1 Then
Target = ""
MsgBox ("Doppelter Eintrag nicht zulässig")
End If
End Sub
Vielen Dank
Gruss Sascha

Anzeige
;

Forumthreads zu verwandten Themen

Range aus mehreren Zellbereichen als Variabeln
Randolf

Hallo,
ich möchte folgenden Zeile mit Variabeln darstellen:
Range("AM65:AN65,BB65:BC65").Select folgenden Ansatz habe ich derzeit, aber mir mach der Doppelpunkt zu schaffen:
Range(Cells(i, 39), Cells(i, 40), Cells(i, 54), Cells(i, 55)).Select
versuche wie Range(Cells(i, 3...
08.05.2009 11:06:07
Thread-ID: 1073827
13 Beiträge
Anzeige
Befehl Range("A1") bei mehreren Zellen?
Christian

Hallo,
ich hab im Excel Ein Makro geschrieben, mit dessen hilfe per Knopfdruck eine Mail an einen bestimmten Empfänger gesendet wird. Im Betreff und Text sind bestimmte Zelleninhalte mit dem Befehl Range("A1")
Wie kann ich das machen, wenn ich mehrere Zelleninhalte hab (A1, A2, A3, A4....
05.10.2009 12:54:12
Thread-ID: 1107243
5 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
VBA Suche in eine Tabelle und mehreren Bereichen
Milan

Hallo liebe Excel Freunde,
ich brauche wieder mal ein Makro.
Suchen in mehreren Spalten-Bereichen, nur in Tabelle: „Artikelstamm“
In Spalten A7:A40000, B7:B40000, C7:C40000, I7:I40000, K7:K40000
Beim klicken auf Schaltfläche: MsgBox: “Bitte Suchbegriff eingeben!”
Gesucht wer...
27.12.2010 17:52:29
Thread-ID: 1192961
4 Beiträge
Excel_VBA_ mehrere Zellen Addieren
B.Varli

Hi Leute,
Das ist mein Erster Beitrag.
Folgendes Problem hab ich das mir den kopf zerbricht.
Ich möchte gerne mehrere zellen addieren.
Am besten mit VBa in Excel
Ich hab ein kleines beispiel erstellt um mein problem zu veranschaulichen.
https://www.herber.de/bbs/user/914...
11.07.2014 17:51:21
Thread-ID: 1369977
3 Beiträge
Anzeige
[VBA] Bedingte Formatierung mit mehreren Bereichen
Nils

Hallo zusammen!
Ich habe eine recht umfangreiche bedingte Formatierung in VBA realisiert. Sie funktioniert auf jeden Fall, nur frage ich mich, ob es nicht viel viel leichter geht?
Hier meine Datei:
https://www.herber.de/bbs/user/104015.xlsm
01.03.2016 19:21:56
Thread-ID: 1479121
24 Beiträge
VBA - Befehl für mehrere Zellen =
Jörg
Hallo,
ich habe z.B. folgenden VBA Befehl:
Case "A15"
If Rows("22:24").Hidden Then
Rows("22:24").Hidden = False
Else
If Rows("25:28").Hidden Then Rows("22:24").Hidden = True
End If
Dieser Befehl wiederholt sich bei A26, A37, A48,... und der Bereich ist immer gleich...
11.07.2016 06:36:24
Thread-ID: 1503640
9 Beiträge
zellen einfügen in mehrere dateien vba
Sasko

Hallo zusammen,
folgendes Problem: Ich habe 900 Excel Dateien, alle im selben Order und alle Listen haben den gleichen Aufbau etc.
Jetzt muss in jede einzelne Excel Datei, 1 neue Zelle eingebaut werden an einer bestimmtem Stelle mit Überschrift. Natürlich kann man jetzt in 500 Dateien...
09.06.2017 16:03:17
Thread-ID: 1563252
2 Beiträge
mehrere Bereiche auswählen
Ulf

Moin, moin
ich bekomme es nicht gebacken.
In folgendem Code werden die Zellen B13:B111 nach einer Zahl >0 abgefragt und wenn ja, dann grün eingefärbt.
Private Sub CB_reset_Click() Dim Zelle As Range For Each Zelle In Range("B13:B111") Select Case Zelle.Value Case Is > 0: Zelle...
09.11.2018 11:29:48
Thread-ID: 1656403
4 Beiträge
Anzeige
VBA - mehrere Zellen versetzen
Arnd-Olav

Guten Morgen,
keine Ahnung warum, aber ich krieg eine - eigentlich glaube ich "einfache" Sache - nicht hin.
- Screenshot ist hier:
Ich habe eine Tabelle (SAP Extrakt) in der immer mal wieder einige Zeilen versetzt sind.
Die Tabelle begingt ab Spalte "C". Die versetzten Zeilen t...
14.02.2019 11:38:18
Thread-ID: 1675540
2 Beiträge
Excel VBA - Text über mehrere markierte Zellen
ManuelL.

Hallo Excel-Profis!
Lange Zeit war ich heimlicher Mitleser hier und ihr habt mir schon sehr weiter geholfen. Bei einem Problem komme ich aber einfach nicht weiter und hoffe auf eure Hilfe, da ich auch sonst im Netz nichts gefunden habe.
Ich habe eine Produktionsplanung erstellt wo mithi...
14.03.2019 13:59:29
Thread-ID: 1681269
4 Beiträge
VBA Wertübergabe mehrerer Zellen über eine Schleif
Constantin

Guten Tag,
ich sitze hier an einem Makro-Code und komme nicht weiter.
Ich möchte aus der Tabelle "Gefiltert" die Werte aus den einzelnen Zellen in eine andere Tabelle "Druckversion" reinkopieren und hier ist ein anderer formatierter Zellbereich. Je nach dem was ich an Daten gefiltert zu...
30.07.2019 10:46:04
Thread-ID: 1704928
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Excel VBA: Mehrere Bereiche setzen und doppelte Einträge abfangen

Schritt-für-Schritt-Anleitung

Um in Excel VBA mehrere Bereiche für die Eingabe zu definieren und doppelte Einträge abzufangen, gehe wie folgt vor:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Rechtsklicke auf den Projektnamen und wähle Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bereich As Range
    Set Bereich = Range("A3:A15,B3:B9,C3:C9")

    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Intersect(Bereich, Target) Is Nothing Then Exit Sub

    If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
        MsgBox ("Doppelter Eintrag nicht zulässig")
        Application.EnableEvents = False
        Target.Value = ""
        Application.EnableEvents = True
    End If
End Sub

  4. Teste die Eingabe: Gehe zurück zu deinem Excel-Blatt und gib Werte in die definierten Bereiche ein.

Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nur für einen bestimmten Bereich.

    • Lösung: Stelle sicher, dass du die Application.EnableEvents nach der Änderung wieder aktivierst, um die Reaktion auf Eingaben zu gewährleisten. Siehe die korrigierte Version im oberen Abschnitt.

  • Problem: Doppelte Einträge werden nicht erkannt.

    • Lösung: Überprüfe, ob die Bereiche korrekt definiert sind. Du kannst die Intersect-Funktion verwenden, um sicherzustellen, dass die Eingabe im richtigen Bereich ist.

Alternative Methoden

Eine Alternative zur Verwendung von Range ist, die Bereiche direkt in der CountIf-Funktion anzugeben:

If Application.WorksheetFunction.CountIf(Range("A3:A15"), Target) > 1 Then
    Target = ""
    MsgBox ("Doppelter Eintrag nicht zulässig")
End If

Diese Methode ermöglicht es dir, jeden Bereich einzeln zu überprüfen, was bei größeren Datenmengen effektiver sein kann.

Praktische Beispiele

Hier ist ein Beispiel, wie du mehrere Bereiche mit der Union-Funktion zusammenfassen kannst:

Dim Bereich As Range
Set Bereich = Application.Union(Range("A3:A15"), Range("B3:B9"), Range("C3:C9"))

Jetzt kannst du mit Bereich arbeiten, als wäre es ein einzelner Bereich. So kannst du die Eingaben in excel vba range mehrere bereiche effizienter verwalten.

Tipps für Profis

  • Nutze ActiveRange in VBA, um schnell auf den aktuellen Bereich zuzugreifen. Dies kann nützlich sein, wenn du dynamisch mit den Eingaben arbeiten möchtest.
  • Verwende die Application.InputBox-Funktion, um Benutzer zur Eingabe neuer Werte aufzufordern und die Eingaben vorab zu validieren.

FAQ: Häufige Fragen

1. Frage
Wie kann ich mehrere Zellen in Excel VBA gleichzeitig auswählen?
Antwort: Du kannst die Union-Methode verwenden, um mehrere Zellen zu kombinieren und sie dann mit der Select-Methode auszuwählen.

2. Frage
Was mache ich, wenn mein Code nicht reagiert?
Antwort: Überprüfe, ob Application.EnableEvents korrekt gesetzt ist. Wenn es False ist, wird der Code nicht auf Änderungen reagieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige