Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

764to768

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Letzte Zelle mit Farbe ermitteln...

Forumthread: Letzte Zelle mit Farbe ermitteln...
16 Beiträge zu diesem Forumthread
Anzeige
302 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

15.05.2006 15:48:34

Walter

Hallo,
ich möchte gern in der Spalte "A" die letzte Farbige Zelle ermitteln.
Kann mir jemand helfen ?
gruß Walter

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Letzte Zelle mit Farbe ermitteln...

15.05.2006 16:00:22

Bertram
Hallo

15.05.2006 16:07:50

Walter
AW: Hallo

15.05.2006 16:11:33

Bertram
AW: Hallo

15.05.2006 16:19:03

Andi
AW: Hallo Bertram und Andi

15.05.2006 16:33:11

Walter
AW: Hallo Bertram und Andi

15.05.2006 16:44:41

Andi
AW: Hallo Bertram und Andi

15.05.2006 16:45:42

Bertram
AW: Hallo Bertram und Andi

15.05.2006 17:05:08

Walter
AW: Hallo Bertram und Andi

15.05.2006 17:10:11

Bertram
AW: Hallo Bertram und Andi

15.05.2006 17:18:41

Andi
Das kriegen wir schon noch hin:-) oT

15.05.2006 17:24:36

Bertram
na klar :-)

15.05.2006 17:29:10

Andi
Bin gerade erst zu Hause angekommen

15.05.2006 21:36:46

Walter
AW: Bin gerade erst zu Hause angekommen

15.05.2006 21:55:27

Bertram
Dies ja aber

16.05.2006 09:47:49

Walter
Alles jetzt i.o. o.t.

16.05.2006 10:04:58

Walter

AW: Letzte Zelle mit Farbe ermitteln...

15.05.2006 16:00:22

Bertram

Hi Walter,
so etwa?


Sub LetzeFarbige()
Dim zelle As Range
Dim Merker As Single
For Each zelle In ActiveSheet.Columns(1).Cells
If zelle.Interior.ColorIndex <> xlNone Then
If Merker < zelle.Row Then Merker = zelle.Row
End If
Next zelle
Cells(Merker, 1).Activate
End Sub

Gruß
Bertram

Hallo

15.05.2006 16:07:50

Walter

Hallo Bertram,
angefangen ab Zeile "7" !
Ich habe die Zeilen über Zahlenformat "Bedingte Formatierung" eingefärbt.
mfg Walter

AW: Hallo

15.05.2006 16:11:33

Bertram

Hi Walter,
das ist schlecht:-( Dann geht's so nämlich nicht. Bedingte Formatierung läßt sich so nicht erfassen.
Gruß
Bertram

AW: Hallo

15.05.2006 16:19:03

Andi

Hi,
die Zellfarbe der bedingten Formatierung auszulesen ist nicht so ganz ohne.
Am einfachsten wäre, Du suchst nicht nach der Farbe, sondern nach der zugehörigen Bedingung.
Angelehnt an Bertrams Vorschlag, und vorausgesetzt die Bedingung lautet 'Wert zwischen 10 und 20' sähe das dann zB so aus:
Dim zelle As Range
Dim Merker As Single
For Each zelle In ActiveSheet.Columns(1).Cells
If zelle.value &gt= 10 and zelle.value &lt= 20 then
If Merker &lt zelle.Row Then Merker = zelle.Row
End If
Next zelle
Cells(Merker, 1).Activate
Schönen Gruß,
Andi

AW: Hallo Bertram und Andi

15.05.2006 16:33:11

Walter

Hallo Ihr Zwei,
habe in der Zelle B1 das aktuelle Datum: z.b. 15.05.2006
Spalte "A"------------Spalte"B" (ändere ich aber noch.
Erszulassung-------3 Monate weiter
02.01.2006---------02.04.2006 ist Rot
u.s.w
15.02.2006---------15.05.2006 ist Rot z.b. letzte Rote
Hoffentlich habe ich das Verständlich erklärt ?
gruß walter

AW: Hallo Bertram und Andi

15.05.2006 16:44:41

Andi

Hi,
so ganz kapier ich das noch ned.
Du hast doch bei der bedingten Formatierung ne Formel drinstehn; diese Formel übersetzt Du in VBA und änderst folgende Zeile aus meinem Code entsprechend:
If zelle.value >= 10 and zelle.value Wenn Du Probleme mit der Übersetzung hast, dann poste einfach die Formel selbst.
Schönen Gruß,
Andi

AW: Hallo Bertram und Andi

15.05.2006 16:45:42

Bertram

Hi,
wennn ich dich recht verstehe, ist die letzte gefärbte Zelle, die mit dem aktuellen Datum. Dann kannst du sie auch so finden:


Sub HeuteSuchen()
Dim Zelle As Range
On Error Resume Next
Set Zelle = ActiveSheet.Columns(2).Find(what:=Date)
Zelle.Activate
End Sub

Gruß
Bertram

AW: Hallo Bertram und Andi

15.05.2006 17:05:08

Walter

Hallo Bertram,
das Funktioniert, habe allerdings 3x das Datum, beim 1.Datum bleibt der Courser.
Kann man das noch ändern?
gruß Walter

AW: Hallo Bertram und Andi

15.05.2006 17:10:11

Bertram

Hi Walter,
kann man bestimmt irgenwie. Aber ohne die oft erwähnte Glaskugel, den Upload deiner Datei oder einer genaueren Beschreibung wird's schwierig:-)
Gruß
Bertram

AW: Hallo Bertram und Andi

15.05.2006 17:18:41

Andi

Hi,
dann fangen wir eben unten an zu suchen...


Sub t()
Dim a As Long
For a = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(a, 2).Value = Date Then
Cells(a, 2).Select
Exit Sub
End If
Next a
End Sub

Schönen Gruß,
Andi

Das kriegen wir schon noch hin:-) oT

15.05.2006 17:24:36

Bertram

na klar :-)

15.05.2006 17:29:10

Andi

Wäre halt gut gewesen, wenn wir von Anfang an gewusst hätten, um was es geht; so nach dem Motto:
ich habe eine Spalte voller Daten und möchte gerne die letzte, die das heutige Datum enthält markiert haben.
(@Walter: is nich bös gemeint; nur ne Anregung, wie man Fragen so stellen kann, dass auch jemand der die Mappe nicht kennt weiss worum's geht...)
Schönen Gruß,
Andi

Bin gerade erst zu Hause angekommen

15.05.2006 21:36:46

Walter

Hallo Ihr Zwei,
war für die Firma unterwegs.
Es ist schon Richtig, habe die Frage ein wenig(verschönt) blöd gestellt,
Danke für die Info.
Herzlichen Dank
Walter

AW: Bin gerade erst zu Hause angekommen

15.05.2006 21:55:27

Bertram

Guten Abend,
ist das Problem nun gelöst, oder brauchst du noch was, da die Frage noch offen ist?
Gruß
Bertram

Dies ja aber

16.05.2006 09:47:49

Walter

Guten Morgen Bertram,
das ist OK.
habe aber jetzt eine andere Frage, wenn ich darf, sonst stelle ich diese mal Neu.
Ich habe eine Tabelle Spalte1 bis 12, ab der der Zeile 5 stehen die Daten,
nun filtere ich die Daten. In der Spalte 11 steht in jeder Zelle eine Formel, bei Erfüllung (Filterung wird da eine 1 reingesetzt.
Ich brauch jetzt für den Druckbereich die letzte 1 in der Spalte11, geht das ?
Habe mal gerade was zusammengefummelt, aber es wird mir bei der Filterung immer der
gesamt Bereich angezeigt z.b. Liste geht bis 155 und die Zahl in der Spalte 11 geht nur bis 45, wird aber 155 angezeigt.
gruß walter

Alles jetzt i.o. o.t.

16.05.2006 10:04:58

Walter

Hallo Bertram,
ich war wohl ein wenig BLÖÖÖÖÖd !!!
Habe das über eine weitere Filtering in der Spalte durchgeführt,
klappt alles , ich bin zufrieden.
gruß Walter