Mehrere Bereiche definieren

Forumthread: Mehrere Bereiche definieren

Volker

Hallo zusammen,
erst einmal ein gutes 2010.
Ich möchte mehrere Bereiche mittels folgendem Code bearbeiten:
Dim zelle As Range
For Each zelle In Range("I3:I379") '(Target.Address)
With zelle
Select Case .Interior.ColorIndex
Case Is .Offset(0, 1).Interior.ColorIndex
.Interior.ColorIndex = .Offset(0, 1).Interior.ColorIndex
End Select
End With
Next zelle
Allerdings bekomme ich das nur in Einzelschritten hin. (Für jeden Bereich eine separate Anweisung wie oben) Kann man die Bereiche ("I3:I379") , ("K3:K379") und ("M3:M379") nicht irgendwie zusammenfassen?
Es kann allerdings nicht der Bereich I3:M379 gewählt werden, Da die Spalten J und L nicht betroffen sind.
Danke und Gruß
Volker

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Mehrere Bereiche definieren

Daniel
AW: Mehrere Bereiche definieren

Volker

AW: Mehrere Bereiche definieren

05.01.2010 15:19:30

Daniel

HI
entweder so: Range("I3:I379, K3:K379, M3:M379")
oder so: Union(Range("I3:I379"), Range("K3:K379"), Range("M3:M379"))
oder so: Intersect(Range("3:379"), Range("I:I, K:K, M:M"))
oder noch anders
Gruß, Daniel

AW: Mehrere Bereiche definieren

05.01.2010 15:25:35

Volker

Hallo Daniel,
so ähnlich hatte ich es auch allerdings mit mehr Klammern. Daraufhin fing Excel an zu meckern.
Jetzt verstehe ich warum.....
Danke für die Hilfe
Gruß
Volker

Infobox / Tutorial

Mehrere Bereiche in Excel definieren und bearbeiten

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um mehrere Bereiche in Excel zu definieren und in einer Formel zu verwenden, kannst Du folgende Schritte befolgen:

VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul erstellen: Klicke mit der rechten Maustaste im Projektfenster und wähle Einfügen -> Modul.

Code einfügen: Füge den folgenden Code in das Modul ein:

Dim zelle As Range
For Each zelle In Union(Range("I3:I379"), Range("K3:K379"), Range("M3:M379"))
    With zelle
        Select Case .Interior.ColorIndex
            Case Is = .Offset(0, 1).Interior.ColorIndex
                .Interior.ColorIndex = .Offset(0, 1).Interior.ColorIndex
        End Select
    End With
Next zelle

Code ausführen: Schließe den VBA-Editor und führe das Makro aus, um die definierten Bereiche zu bearbeiten.

Häufige Fehler und Lösungen

Fehler: "Typ nicht definiert"
Lösung: Stelle sicher, dass Du das richtige Objekt (z.B. Range) verwendest und dass der VBA-Editor korrekt geöffnet ist.
Fehler: "Syntaxfehler"
Lösung: Überprüfe die Syntax Deiner Formel. Achte darauf, dass alle Klammern korrekt gesetzt sind.
Fehler: Excel meckert über Bereiche
Lösung: Stelle sicher, dass Du die Union-Funktion korrekt verwendest, um mehrere Bereiche in einer Formel zusammenzufassen.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, um mehrere Bereiche in Excel zu definieren:

Direkte Bereichsangabe:
```
Range("I3:I379, K3:K379, M3:M379")
```

Verwendung von Intersect:

Intersect(Range("3:379"), Range("I:I, K:K, M:M"))

Excel mehrere Bereiche auswählen: Du kannst auch Selection verwenden, um Bereiche auszuwählen und zu bearbeiten, jedoch ist das oft weniger effizient.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du mehrere Bereiche in einer Formel verwenden kannst:

Farbänderung mehrerer Bereiche:

Dim zelle As Range
For Each zelle In Union(Range("A1:A10"), Range("C1:C10"))
    zelle.Interior.Color = RGB(255, 0, 0) ' Ändert die Hintergrundfarbe zu Rot
Next zelle

Berechnung über mehrere Bereiche:

Dim summe As Double
summe = Application.WorksheetFunction.Sum(Union(Range("B1:B10"), Range("D1:D10")))
MsgBox "Die Summe beträgt: " & summe

Tipps für Profis

Verwende Range und Union effizient: Durch die Verwendung von Union kannst Du mehrere nicht zusammenhängende Bereiche in einer Formel zusammenfassen, was die Lesbarkeit erhöht.
Makros speichern: Speichere Deine Excel-Datei im .xlsm-Format, um sicherzustellen, dass Deine VBA-Makros erhalten bleiben.
Fehlermeldungen vermeiden: Nutze On Error Resume Next, um unerwartete Fehler zu ignorieren, und On Error GoTo 0, um die Fehlerbehandlung zurückzusetzen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Bereiche in einer Formel nutzen?
Du kannst die Union-Funktion verwenden, um mehrere Bereiche zu kombinieren und dann mit ihnen in deiner Formel zu arbeiten.

2. Funktioniert das in allen Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, die VBA unterstützen.

3. Was kann ich tun, wenn Excel mehrere Bereiche nicht akzeptiert?
Überprüfe die Syntax und stelle sicher, dass keine Leerzeichen oder ungültigen Zeichen in den Bereichsnamen enthalten sind.

Beliebteste Forumthreads (12 Monate)