Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Füllfarbe VBA

Forumthread: Füllfarbe VBA

Füllfarbe VBA
14.01.2009 14:16:00
Faby71
Hallo,
wie kann ich:
1- Suchen in der Bereich A8:A372 alle Zelle die eine Füllfarbe Rot haben
2- und trägt die Füllfarbe (Rot) bei der Spalte D bis U oder Spaltenr 4 bis 21
z.B.: A10 und A36 haben eine Füllfarbe Rot dann D10:U10 und D10:D36 muss mit Rot gefüllt werden
für jeder Hilfe bin ich dankbar
Gruß
Faby71
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Füllfarbe VBA
14.01.2009 14:30:33
Tino
Hallo,
geht es hiermit?
Den Farbindex musst Du eventuell noch anpassen, 3 ist in der Regel rot.
Sub Test()
Dim Bereich As Range, myZelle As Range

'Farbindex der gesucht werden soll 
Const SuchFarbe As Integer = 3
'Bereich der durchsucht werden soll 
Set Bereich = Range("A8:A372")

Application.ScreenUpdating = False
 For Each myZelle In Bereich
    If myZelle.Interior.ColorIndex = SuchFarbe Then
      Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = SuchFarbe
     Else
      Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = xlNone
    End If
 Next myZelle
Application.ScreenUpdating = True
End Sub


Gruß Tino

Anzeige
AW: Füllfarbe VBA, Performance
14.01.2009 14:40:30
D.Saster
Hallo Tino,
auch das ist eine Performance-Bremse:

Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = SuchFarbe


Warum nicht gleich 4 und 21? So muss das erst interpretiert werden.
Habe heute wohl meinen Meckertag.
Gruß
Dierk

Anzeige
AW: Füllfarbe VBA, Performance
14.01.2009 14:45:45
Tino
Hallo,
macht bei 20000 Zellen eine Hundertstel Sekunde aus.
Gruß Tino
AW: Füllfarbe VBA, Performance
14.01.2009 15:15:00
D.Saster
Hallo,
ich habe 0,183 Sekunden.
Lahme Kiste.

Sub tt1()
Dim i, t
t = Timer
Application.ScreenUpdating = False
For i = 1 To 20000
Range(Cells(i, "D"), Cells(i, "U")).Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
MsgBox Timer - t
End Sub




Sub tt2()
Dim i, t
t = Timer
Application.ScreenUpdating = False
For i = 1 To 20000
Range(Cells(i, 4), Cells(i, 21)).Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
MsgBox Timer - t
End Sub


Gruß
Dierk

Anzeige
AW: Füllfarbe VBA, Performance
14.01.2009 15:32:00
Tino
Hallo,
bei mir
Timer - i = 2,09375

Sub Test()
Dim Bereich As Range, myZelle As Range
Dim i As Single
i = Timer
'Farbindex der gesucht werden soll
Const SuchFarbe As Integer = 3
'Bereich der durchsucht werden soll
Set Bereich = Range("A1:A20000")
Application.ScreenUpdating = False
For Each myZelle In Bereich
If myZelle.Interior.ColorIndex = SuchFarbe Then
Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = SuchFarbe
Else
Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = xlNone
End If
Next myZelle
Application.ScreenUpdating = True
Debug.Print Timer - i
End Sub


Timer - i = 2,083438


Sub Test2()
Dim Bereich As Range, myZelle As Range
Dim i As Single
i = Timer
'Farbindex der gesucht werden soll
Const SuchFarbe As Integer = 3
'Bereich der durchsucht werden soll
Set Bereich = Range("A1:A20000")
Application.ScreenUpdating = False
For Each myZelle In Bereich
If myZelle.Interior.ColorIndex = SuchFarbe Then
Range(Cells(myZelle.Row, 4), Cells(myZelle.Row, 21)).Interior.ColorIndex = SuchFarbe
Else
Range(Cells(myZelle.Row, 4), Cells(myZelle.Row, 21)).Interior.ColorIndex = xlNone
End If
Next myZelle
Application.ScreenUpdating = True
Debug.Print Timer - i
End Sub


Gruß Tino

Anzeige
2 If's = 20'000 zellen ? (owT)
14.01.2009 15:34:51
RS

AW: 2 If's = 20'000 zellen ? (owT)
14.01.2009 15:41:00
Tino
Hallo,
Range("A1:A20000") = bei mir 20000 Zellen, bei Dir nicht?
Gruß Tino
AW: Füllfarbe VBA, Performance
14.01.2009 14:50:45
Faby71
Hallo Tino, Diek,
es funktioniert nicht...das Modul löscht die Füllfarbe von Spalte D bis U und füllt keine Rote Farbe
Noch eine Idee?
Anzeige
Ist das wirklich die Füllfarbe, oder...
14.01.2009 14:52:00
RS
wurde die Farbe mit einer bedingten Formatierung erzeugt?
Dann funktioniert der Code nicht!
Grüsse RS
AW: Ist das wirklich die Füllfarbe, oder...
14.01.2009 14:58:00
Faby71
ok, stimmt die Farbe würde mit eine Bedingte Formatierung erzeugt..gibt es keine Losüng dafür?
dann brauchst du kein VBA, sondern...
14.01.2009 15:02:00
RS
sondern stellst die gleich bedingte Formatierung als Formel ist in den Zellen von Spalte D bis U rein.
Grüsse RS
Anzeige
AW: Ist das wirklich die Füllfarbe, oder...
14.01.2009 15:06:00
Tino
Hallo,
mach es wie von RS vorgeschlagen.
Mit VBA ist dies zu aufwendig.
Man müsste die Bedingung auslesen, prüfen ob diese erfüllt ist und ob diese die Zelle rot färbt.
Ist machbar aber sehr aufwendig.
Gruß Tino
u.v.a steht, DAS überhaupt...
14.01.2009 14:51:38
RS
nicht in den Anforderungen:

Else
Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = xlNone


Grüsse RS

Anzeige
AW: u.v.a steht, DAS überhaupt...
14.01.2009 14:58:50
Tino
Hallo,
was soll sonst aus den bereits roten Zellen werden, es würde alles nicht mehr stimmen?
Ist dies nicht gewollt wird es schon die entsprechende Rückmeldung geben!
Gruß Tino
und woher weisst Du, was vorher...
14.01.2009 15:05:00
RS
für eine Füllfarbe in den Zellen war ?
Grüsse RS
AW: und woher weisst Du, was vorher...
14.01.2009 15:12:15
Tino
Hallo,
stehe ich auf irgendeinem Schlauch?
Wenn es so wäre, wäre bestimmt eine entsprechende Rückmeldung gekommen.
Hellsehen kann ich noch nicht.
Ich finde diese Diskusion irgendwie überflüssig (was wäre wenn).
Gruß Tino
Anzeige
;

Forumthreads zu verwandten Themen

Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Anzeige
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Information aus Excel an Outlook VBA Makro übergeb
Christian

Hallo zusammen,
ich wüsste gerne, wie ich in einem Outlook Makro auf Daten, die in einer Excel Tabelle stehen, zugreifen kann.
Ich verwende ein Outlook Makro welches eine Excel-Datei als e-mail-Anhang an einen Empfänger sendet und wie folgt aussieht:
----------
Sub versand() D...
17.08.2008 18:48:53
Thread-ID: 1002451
8 Beiträge
VBA zur Dateneingabe über mehrere Blätter
Eddie

Hallo @ all,
ich suche ein kleines Makro, womit man in allen Tabellenblättern, außer ein Paar vorher defnierten einen bestimmten Wert in eine bestimmt Zelle reinkopiert...
Vielleicht geht sowas mit Comboboxen ? .. aber auch ein Makro, wo man die TB die nicht dafür verwendet werden solle...
18.08.2008 14:44:00
Thread-ID: 1002607
3 Beiträge
Anzeige
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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