Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Union Range bis zu 400 Bereichen

Forumthread: Union Range bis zu 400 Bereichen

Union Range bis zu 400 Bereichen
12.11.2018 23:04:45
Lorenz
Hallo
Lässt sich dies eventuell kürzer gestalten?
Union(Range("C47:C78"), Range("E47:E78"), Range("G47:G78"), Range("I47:I78"), Range("K47:K78"), Range("M47:M78"), Range("O47:O78"), _
("C125:C156"), Range("E125:E156"), Range("G125:G156"), Range("I125:I156"), Range("K125:K156"), Range("M125:M156"), Range("O125:O156") _
("C203:C234"), Range("E203:E234"), Range("G203:G234"), Range("I203:I234"), Range("K203:K234"), Range("M203:M234"), Range("O203:O234") _
("C281:C312"), Range("E281:E312"), Range("G281:G312"), Range("I281:I312"), Range("K281:K312"), Range("M281:M312"), Range("O281:O312"))
Das letzte Paket wäre Zeilen "4181:4212" (Es sind zusammenhängend immer 32 Zeilen mit jeweils 47 Zeilen dazwischen)& das immer in den Spalten C,E,G,I,K,M,O
Hat jemand eine Idee?
Gruß
Lorenz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Union Range bis zu 400 Bereichen
12.11.2018 23:28:52
Daniel
Hi
1. mit ner Schleife und Union die Zeilen in einer Variable sammeln und dann über Intersect mit den Spalten die schnittmenge bilden:
dim z as long
dim Bereich as Range
set Bereich = Rows(47).Resize(32)
for z = 125 to 4181 Step 78
set Bereich = Union(Bereich, Rows(z).Resize(32))
next
set Bereich = intersect(Bereich, Range("C:C,E:E,G:G,I:I,K:K,M:M,O:O"))

Gruß Daniel
Anzeige
AW: Union Range bis zu 400 Bereichen
13.11.2018 02:33:48
Lorenz
Hi Daniel
Danke für deine Hilfe. Is ja extrem kürzer! Jetzt habe ich aber ein weiteres Problem (für mich scheinbar "unlösbar") Ich habe versucht deine "Schleife" im "Doppelklick-Ereignis" einzubauen.
Untenstehend eins meiner vielen missglückten Versuche: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z As Long
Dim Bereich As Range
Set Bereich = Rows(47).Resize(32)
For z = 125 To 4181 Step 78
Set Bereich = Union(Bereich, Rows(z).Resize(32))
Next
Set Bereich = Intersect(Bereich, Range("C:C,E:E,G:G,I:I,K:K,M:M,O:O"))
'ab hier mein Pfusch!!
If Not Bereich Is Nothing Or Target.Count = 1 Then
Application.EnableEvents = False
With ActiveCell
With .Font
.Name = "Wingdings"
.Size = 11
.Color = -16776961
.TintAndShade = 0
End With
.Value = "ü"
End With
End If
Cancel = True
Application.EnableEvents = True
End Sub

Das "doppel-Klick-Ereignis sollte nur im "Bereich" funktionieren, es läuft aber in jeder ausgewählten (aktivierten) Zelle!
Grüße
Lorenz
Anzeige
AW: Union Range bis zu 400 Bereichen
13.11.2018 09:11:39
Daniel
Hi
beim Programmieren ist Nachdenken ein ganz wichtiger Faktor.
Kann denn Bereich = Nothing sein, wenn wir kurz zuvor Bereich c.a. 3500 einzelne Zellbereiche erfolgreich zugewiesen haben?
du meinst wahrscheinlich: If Not Intersect(Target, Bereich) is Nothing then, um zu prüfen ob die angeklickte Zelle zu dem unter Bereich definierten Zellbereich gehört.
beim Doppelklick kannst du immer nur eine Zelle anklicken, daher ist die Abfrage auf Target.Count = 1 nicht notwendig.
Und wenn, solltest du besser .CountLarge verwenden, weil Excel mittlerweile mehr Zellen hat, als es mit .Count zählen kann.
Gruß Daniel
Anzeige
AW: Union Range bis zu 400 Bereichen
14.11.2018 00:18:10
Lorenz
Hallo Daniel!
Das war´s!
Alles funktioniert(wunschgemäß)
Nochmals Danke & Grüße
Lorenz
;

Forumthreads zu verwandten Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Bereich markieren bis zur ersten Zahl
michael

Hallo zusammen,
ich möchte in einem bestimmten Bereich alle Leerzellen bis zum Ersten Eintrgag pro Zeile markieren.
Habe schon verschiedene probiert, z.B. gehe zu Leerzellen, da sich aber zwischen den Einträgen Zellen ohne Werte befinden und ich die Leerzellen nur die Leerzellen vor dem...
21.09.2008 12:38:00
Thread-ID: 1011285
5 Beiträge
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 Beiträge
Bei wert in Spalte zeile A bis P in Neues Blatt
juergen

Hallo liebe Excel Freunde
Hab da ein kleines Problem.
Ich hab da 2 Tabellen eine mit Eingaben und eine zum Auswerten.
Nun soll das Makro:
Wenn in der Spalte (D) der Tabelle Eingaben eine Wert bzw.eine Zahl steht , dann soll die Zeile von A bis P in die Tabelle Rechentab fortlauf...
25.02.2009 18:12:34
Thread-ID: 1054119
2 Beiträge
Spalte bis zur letzten Zeile mit akt. Datum füllen
Stefan

Hallo,
ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
Wie gehe ich da am besten vor?
Die gefüllten Spa...
03.03.2009 13:35:30
Thread-ID: 1055961
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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