Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

einen Cellinhalt in einem anderen Blatt suchen

einen Cellinhalt in einem anderen Blatt suchen
09.10.2004 18:42:29
Bachner Gerhard
Hallo
allso ich bin ihnen sehr dankbar für eure hilfe.
Mein problem ist das ich immer noch nich den gewüntschten efect habe.
Allso ich möchte aus einer Activen Celle aus Blatt1 den inhalt in einem anderem Blatt2 suchen auch wen der inhalt in dem Blatt2 nicht 100% überein stimt.

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

Betreff
Datum
Anwender
Anzeige
AW: einen Cellinhalt in einem anderen Blatt suchen
09.10.2004 19:03:30
Ulf
Was soll passieren wenn was gefunden wurde?
Was soll passieren wenn nichts gefunden wurde?
Ulf
AW: einen Cellinhalt in einem anderen Blatt suchen
09.10.2004 22:50:12
Bachner Gerhard
ES IST EINE LISTE: allso wenn was gefunden wurde, dann soll ermittelt werden in welcher Zeille die Active Celle in Blatt1 sich befindet und die lezte ausgefülte celle in der gleichen Zeille soll die mit GELBER Schriftfarbe formatiert werden und in Blatt2 soll die gefunde Celle mit Gelber Füllfarbe formatiert werden und da stehen bleiben. Wenn nichts gefunden wurde dan soll der nechste wert aus der Liste aus Blatt1 (eine zeile darunter)und wieder in Blatt2 danach gesucht werden.
Vielen dank.
Anzeige
AW: einen Cellinhalt in einem anderen Blatt suchen
10.10.2004 00:01:38
Ulf
Das ist für mich zu kompliziert.
Ulf
AW: einen Cellinhalt in einem anderen Blatt suchen
10.10.2004 00:04:00
Bachner Gerhard
vielen dank trotz allem.
AW: einen Cellinhalt in einem anderen Blatt suchen
11.10.2004 10:26:36
Beni
Hallo Gerhard
Gruss Beni

Sub Cellinhalt_in_einem_anderen_Blatt_suchen()
Nächstezeile:
With Sheets(2)
Wert = ActiveCell.Value
Set c = .Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlPart)
If c Is Nothing Then
ActiveCell.Offset(1, 0).Select
GoTo Nächstezeile
Else
ls = Cells(ActiveCell.Row, 256).End(xlToLeft).Column
Cells(ActiveCell.Row, ls).Interior.ColorIndex = 6
c(1, 1).Interior.ColorIndex = 6
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige