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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AktiveZelle bzw. Markierung in Bereich

Forumthread: AktiveZelle bzw. Markierung in Bereich

AktiveZelle bzw. Markierung in Bereich
03.02.2008 16:07:34
Mathias
Hallo,
folgenden Code hab ich:
Set Bereich = Application.Union(Range("A1:AD1"), Range("A2:D46"))
Jetzt würde ich gern feststellen, ob sich die aktive Zelle oder eine Markierung *ganz oder teilweise* in dem Bereich befindet.
Also in etwa so: If (AktivCell in Bereich) OR (Selection in Bereich) then ...
Hat jemand eine Idee wie das gehen könnte?
Viele Grüße
Mathias

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: AktiveZelle bzw. Markierung in Bereich
03.02.2008 16:11:19
Reinhard
Hi Matthias,
hilft dir der Hinweis auf Intersect weiter?
if not Intersect(...) is nothing then
Gruß
Reinhard

AW: AktiveZelle bzw. Markierung in Bereich
03.02.2008 16:35:00
Mathias
Hallo,
danke für den Tipp. Ich dachte Intersect funktioniert nur bei Eingaben.
Ich hab es in diesem speziellen Fall mit Selection.Row und Selection.Column gelöst:
Viele Grüße
Mathias

Anzeige
AW: AktiveZelle bzw. Markierung in Bereich
03.02.2008 16:21:00
Daniel
HI
schau dir mal das Makro an, ob dir das weiterhilft:

Sub test()
Dim bereich As Range
Set bereich = Application.Union(Range("A1:AD1"), Range("A2:D46"))
If Intersect(bereich, Selection) Is Nothing Then
MsgBox "Selektion hat mit Bereich keine Zellen gemeinsam"
Else
If Intersect(bereich, Selection).Cells.Count = Selection.Cells.Count Then
MsgBox "Selektion ist vollständig in Bereich enthalten"
Else
MsgBox "Selektion stimmt teilweise mit Bereich überein"
End If
End If
End Sub


Gruß, Daniel

Anzeige
AW: AktiveZelle bzw. Markierung in Bereich
03.02.2008 16:37:00
Mathias
Hallo Daniel,
danke für den Code.
Hab das Problem jetz doch noch etwas anders gelöst.
Werde mir deinen Code aber für später aufheben. Vielen Dank!!!
Viele Grüße
Mathias
;

Forumthreads zu verwandten Themen

Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Anzeige
Daten aus Zelle in Bereich
Swen

Hi @ all,
ich möchte gerne einen Wert aus einer zelle in einen bereichübernehmen,
habe es wie folgt versucht
With ThisWorkbook
.Sheets("auto").Range(.Sheets("auto").Cells(2, intCol2), _
.Sheets("auto").Cells(intRowsData, intCol2)).Value _
= .Sheets(strDateiname).Cells(i...
17.10.2008 19:17:00
Thread-ID: 1017255
5 Beiträge
Bereich in Bereich ausblenden
Kai

Hallo zusammen,
ich habe ein Tabellenblatt mit dem Bereich: A1:P38
In Abhängigkeit einer Zahl in einer anderen Zelle eines anderen Tabellenblatts, möchte ich Teilbereiche nicht anzeigen lassen, wie z.b. den Bereich: E20:H38
Ein ausblenden von Zeilen, oder Spalten kommt nicht in Frag...
23.10.2008 18:20:00
Thread-ID: 1018769
21 Beiträge
For each c in Bereich
Gregor

Hallo
Ich habe folgende Abfrage:
For Each c In Bereich
Wert = Cells(c.Row, 7).Value
If Wert "kein" Then
usw.
Ich möchte also bei c (Zeile) Spalte 7 den Wert abfragen und je nach Wert weiterfahren. Bereich ist in Spalte 5 definiert.
Wie komme ich zu dieser Zeilen-Nu...
24.10.2008 16:32:40
Thread-ID: 1019066
8 Beiträge
Wert der letzten Zeile in Bereich SVerweis
Elmar

Hallo,
vielleicht kann mir jemand helfen, wie ich in VBA dieser Formel ==ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Haupttabelle!R1C1:R65000C7,2,FALSE)"== beibringe, die 65000 durch die letzte belegte Zeile in einer Tabelle zu ersetzen. Die Abfrage mache ich mit ***iRow = Cells(Rows.Count, 3...
28.10.2008 20:45:00
Thread-ID: 1020084
5 Beiträge
vba farben erkennen und in bereiche verschieben
M.

Hallo zusammen,
ich habe in einer Excel-Tabelle 3 Bereiche mit je 4x6 Zellen, die grün, blau und rot eingefärbt sind. In den Zellen stehen Namen.
Je nach Wochentag sollten die grünen den Platz der roten, die blauen den Platz der grünen und die roten den Platz der blauen Zellen einnehmen...
21.12.2008 13:39:00
Thread-ID: 1034597
5 Beiträge
Summe mit Bedingung in Bereich
Christian

Hallo zusammen,
ich hoffe, es kann mir jemand helfen :-) Es geht um folgendes Problem:
Ich habe eine Finanztabelle, in der jeder Monat eine eigene Spalte (beginnend bei B) hat. Die Bezeichnungen der monatlich wiederkehrenden Kosten sind in Spalte A untergebracht. Es gibt Ausgaben, die f...
04.01.2009 18:02:00
Thread-ID: 1036788
5 Beiträge
Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
Anzeige
Einfügen in Bereich mit definiertem Namen
Beni

In Tabelle Offerte ist der Name "Bereich"vergeben. A9:H17 aus Tabelle Preis sollten in den "Bereich" eingefügt werden, jeweils in die nächste leere Zelle. Nur geht das so nicht.
Vielen Dank für eure Hilfe
Sheets("Preis"). Range("A9:H17")
Selection.Copy
Range("Bereich").Cells(Row...
20.05.2009 21:35:17
Thread-ID: 1076503
3 Beiträge
Leere Zelle in Bereichen suchen.
Hans

Hallo Leute,
ich habe ein Problem und bekomme es in VBA nicht gelöst.
Es stellt sich folgende Problemstellung :
Ich habe drei Bereich .. jeweils über nur eine Spalte.
Bereich 1 heisst "Wert1" und ist in Spalte A
Bereich 2 heisst "Wert2" und ist in Spalte B
Bereich 3 hei...
11.12.2009 20:05:19
Thread-ID: 1123393
4 Beiträge
UDF, wenn x-te Stelle in Bereichen 0 u. eingeblen.
Simon

Guten Tag
Ich habe folgende Problemstellung, die ich gerne mit einem UDF lösten möchte:
- eine oder mehrere Spaltenbereiche mit gleichviel Zellen (im Beispiel benannt mit Bereich_A, Bereich_V, Bereich_X)
- wenn in der x-ten Zeile aller Bereiche ein Nullwert steht (oder eine der Wert...
06.05.2010 19:33:43
Thread-ID: 1155885
12 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