Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchen des aktuellen Zelleninhaltes in Tabelle

Suchen des aktuellen Zelleninhaltes in Tabelle
20.08.2003 13:20:13
Matis
Hi,
ich habs mit Makro aufzeichnen versucht, aber es klappt nicht!
Problem: Der Inhalt der aktiven Zelle in Tabelle A soll auf Tastendruck in Tabelle B gesucht werden (und möglichst noch gleich in der Fundzeile Spalte O mit einem "x" markiert werden)
Bei mir wird immer wieder nach dem Zellinhalt der Zelle beim Aufzeichnen des Makros gesucht und nicht nach dem Inhalt der aktiven Zelle.
Hier der momentane Code:
Selection.Copy
Windows("Adress-Datenbank_internat.xls").Activate
Cells.Find(What:="XYZ", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
Range("AO152").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "x"
Range("A152").Select
Problemstellen: Zeile 3: What:= ?????
Zeile 6 & 9: Range( ????? )
Was kann ich tun? Vergessts mi ned!
Matis

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hilfe naht
20.08.2003 13:38:19
Remo
Hallo Matis
Frage: Kann ein Wert in mehreren Zeilen in Tabelle B vorkommen?
Befindet sich der Wert immer in der gleichen Spalte?
Gruss Remo

AW: Suchen des aktuellen Zelleninhaltes in Tabelle
20.08.2003 13:50:55
Klaus Schubert
Hallo Matis,
hier schon mal ein Ansatz:

Sub BegriffSuchen()
Dim Suchbegriff As String, Fundstelle As Range
Sheets("TabelleA").Activate
Suchbegriff = ActiveCell
Sheets("TabelleB").Activate
Set Fundstelle = Cells.Find(What:=Suchbegriff, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
Range(Fundstelle.Address).Activate
Cells(Fundstelle.Row, 15) = "x"
End Sub

Gruß Klaus

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige