Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle in einer Spalte suchen

Zelle in einer Spalte suchen
12.02.2003 18:13:59
Michael
Hallo Gemeinde,

ich suche die Zeile, in der in Spalte D der Inhalt mit dem Inhalt einer Variablen übereinstimmt.
Bsp.
Variable: "Fisch".

Aufgabe: in Welcher Reihe befindet sich das Wort "Fisch" in Spalte D

Antwort z.B.: Zeile 23

Wer hat einen Tip ?

Vorab Danke!

Michael

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

Betreff
Datum
Anwender
Anzeige
Re: Zelle in einer Spalte suchen
12.02.2003 18:22:47
Bernd Held

Hallo Michael,

über folgendes Makro findest Du Deinen Fisch:

Sub BegriffSuchen()
Dim Zelle As Range
Dim sBegriff As String

sBegriff = "Fisch"
Set Zelle = Worksheets(1).Cells.Find(sBegriff, lookat:=xlWhole)

If Zelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!"
Else
Zelle.Select
MsgBox sBegriff & " in Zelle: " & Zelle.Address
End If

End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de


Anzeige
Re: Zelle in einer Spalte suchen
12.02.2003 18:25:25
Hajo_Zi

Hallo Michael

hier noch ein Code nur für Spalte D

Gruß Hajo

Re: Zelle in einer Spalte suchen
12.02.2003 18:37:27
Michael

Danke für die Info.
Es soll aber nur in Spalte D gesucht werden.

Re: Zelle in einer Spalte suchen
12.02.2003 18:40:12
Bernd Held

Hallo Michael,

ach ja stimmt. OK.

Sub BegriffSuchen()
Dim Zelle As Range
Dim sBegriff As String

sBegriff = "Fisch"
Set Zelle = Worksheets(1).Columns(4).Find(sBegriff, lookat:=xlWhole)

If Zelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!"
Else
Zelle.Select
MsgBox sBegriff & " in Zelle: " & Zelle.Address
End If

End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de



Anzeige
Re: Zelle in einer Spalte suchen
12.02.2003 18:40:58
L.Vira

Set Zelle = Worksheets(1).Columns(4).Find(sBegriff, lookat:=xlWhole)

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige