Live-Forum - Die aktuellen Beiträge
Datum
Titel
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)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

range.select aufrund Colorindex durchführen

Forumthread: range.select aufrund Colorindex durchführen

range.select aufrund Colorindex durchführen
23.12.2004 20:27:48
Hans
Hallo Experten,
ich hätte folgende Aufgabe zu lösen:
über Doppelklick auf eine beliebige EINGEFÄRBTE Zelle soll
- der gesamte gleich eingefärbte Bereich um die angeklickte Zelle herum selektiert werden. Ist die Doppelgeklickte zelle nicht eingefärbt, soll keine Aktion stattfinden.
Beispiele anbei.
https://www.herber.de/bbs/user/15239.xls
Da ich im VB keine Erfahrung habe, würdet Ihr mir einen großen Gefallen tun, wenn Ihr das Problem über eine function oder ein Makro lösen könntet.
Vielen Dank im Voraus!
Hans
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: range.select aufrund Colorindex durchführen
23.12.2004 20:37:46
Josef
Hallo Hans!
Rechtsklick auf das Blattregister &gt Code Anzeigen &gt in das rechte Fenster diesen Code kopieren:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim farbe As Integer
Dim rng As Range
Dim rngU As Range
Cancel = True
If Target.Interior.ColorIndex = xlNone Then Exit Sub
Set rngU = Target
farbe = Target.Interior.ColorIndex
For Each rng In Target.CurrentRegion
If rng.Interior.ColorIndex = farbe Then Set rngU = Union(rngU, rng)
Next
rngU.Select
Target.Activate
End Sub

Gruß Sepp
Anzeige
AW: range.select aufrund Colorindex durchführen
Hans
Danke für die superschnelle Lösung,
habe die Anleitung genau befolgt, mache ich jetzt einen doppelklick auf eine gefärbte Zelle, so wird der Bereich nicht erweitert, es passiert nichts? Vielleicht fehlt noch irgendwo ein Punkt oder Beistrich?
ev. ist das das problem?
Hans
Hallo sepp,
habe einige Versuche gemacht. Das Problem ist wahrscheinlich target.currentregion.
Es erweitert die Region nur, wenn die Zellen nicht leer sind.
ich möchte ja auf alle Zellen erweitern, die mit der gleichen Farbe eingefärbt sind, egal ob der Zellinhalt leer ist oder nicht.
Bitte nimm Dir nochmal kurz Zeit, das zu analysieren!
Vielen Dank!
Anzeige
AW: ev. ist das das problem?
23.12.2004 22:29:33
Josef
Hallo Hans!
Dann ändere
"Target.CurentRegion"
in
"UsedRange"
oder, wenn du den von dir genutzten Breich genau eingrenzen kannst
"Range("A1:?)"
wobei die ? für die letzte Zelle deines bereiches stehen!
Gruß Sepp
AW: ev. ist das das problem?
Dankeschön
- das war die Lösung!!!
;

Forumthreads zu verwandten Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
ComboBox 1 = ComboBox 2
mtremer

Hallo Excel-Freunde,
wie kann man die 2. ComboBox so programmieren, dass sie anfangs die gleichen Auswal wie die 1. Combobox anzeigt?
Wenn also die 1. "a" zeigt, soll die 2. auch "a" zeigen.
Die 2. soll aber auch weiterhin einstellbar sein. Man soll auch in der 2. "b" auswählen kön...
09.10.2008 14:33:00
Thread-ID: 1015355
5 Beiträge
combobox füllen durch textbox
kirsche

hallo leute,
ich stehe mal wieder vor einem problem und hoffe auf eure hilfe.
ich habe eine tabelle(artikelstamm) mit ca. 2000 einträgen. in spalte L steht die PLU, welche bei einigen artikeln gleich ist. außerdem habe ich eine userform mit einer textbox und combobox.
in die textb...
17.11.2008 13:46:00
Thread-ID: 1025207
6 Beiträge
checkboxen durchzählen: Syntax?
Jörg

Guten Abend oder guten Morgen...
simples Problem - ich weiß nur nicht, wie man das schreibt...
man kann doch alles mögliche durchzählen - Beispiel:
for i = 2 to 5
if irgendwas then range("Zelle" & i).irgendwas
wie geht denn das bei Checkboxen?
wenn ich z.B. schreibe...
18.03.2009 00:58:30
Thread-ID: 1061245
5 Beiträge
Checkboxen durchzählen
Jörg

Guten Abend, Gemeinde
mein Problem von vor einigen Tagen ist noch ungelöst - hab die Beispieldatei noch etwas modifiziert
https://www.herber.de/bbs/user/60530.xls
Es geht "ganz einfach" um die Frage, wie ich für eine For-next-Schleife, an der mehrere Checkboxen beteiligt sind, den...
20.03.2009 22:12:51
Thread-ID: 1062387
9 Beiträge
Anzeige
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Excel Formel durch eigene Ergänzen ?
Hafner

Hallo
Ist es möglich, bei dem fixen Formeln unter Mathematikformeln eine eigene Formel zu speichern
es geht um diese Formel =@Ganzzahl(20*........+0.5)/20
ich benötige diese immer wieder und es ist Mühsam, diese jedesmal neu zu schreiben
23.05.2009 13:56:13
Thread-ID: 1076845
13 Beiträge
.find -> Suche erst nach x Durchläufen erfogreich
Suppenhuhn

Hallo Gemeinde !
Angehängte Makro-Routinen habe ich geschrieben um aus einer sehr, sehr langen Excel-Tapete die Zeilenpaare in ein neues Blatt auszusortieren, die in Spalte 13 bzw. 14 den gleichen Eintrag haben und deren Summe der Beträge in Spalte 17 gleich NULL sind.
Das Problem ist,...
24.05.2009 09:14:17
Thread-ID: 1076910
13 Beiträge
range("A1")= strText
Michael

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub URL_Load() Dim myIE_App As Object, strText As String Set myIE_App = CreateObject("InternetExplorer.Application") myIE_App.Navigate "http://www.kicker.de" Do Sleep 10 Loop Until myIE_App.B...
05.09.2009 16:16:24
Thread-ID: 1100785
2 Beiträge
Textbox1=Textbox2 wie?
Sascha


einen schönen guten abend...
kurze frage :)
wert einer textbox1 in eine andere textbox2 gleichzeitig übernehmen?
mit: TextBox4 = TextBox1?
lieben gruß
sascha
15.09.2009 17:42:27
Thread-ID: 1103029
3 Beiträge
Anzeige
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 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