Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1488to1492
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
Inhaltsverzeichnis

Werte suchen

Werte suchen
20.04.2016 22:11:18
Michael
Hallo zusammen,
Ich stehe gerade voll auf dem Schlauch. Ich habe ca. 500 Zeilen in einer Tabelle mit ca. 30 Spalten. In Zelle a1 möchte ich jetzt einen Wert eingeben. Dieser soll dann mit den werten in spalte f verglichen werden. Bei Übereinstimmung soll die Zelle g neben dem Wert angesteuert werden.
Vielleicht kann jemand helfen.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte suchen
20.04.2016 22:27:48
Piet
Hallo Michael,
sowas kannst du mit dem Makro Recorder als Suchlauf aufzeichnen.
Wird die Zelle gefunden springe mit Offset um 1 Spalte nach rechts
mfg Piet
Sub Suchen()
Dim SuName as String
SuName = Range("A1")
On Error Resume Next
Range("F1:F500").Find(What:=SuName, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 1).Select
End Sub

Anzeige
AW: Werte suchen
20.04.2016 22:31:06
Michael
Danke einstweilen,
Ich mache mich morgen wieder ran...

AW: Werte suchen
21.04.2016 11:54:30
Peter
Hallo Michael,
mit Hinweis, wenn nichts gefunden wird
Option Explicit
Sub Suchen()
Dim WkSh          As Worksheet
Dim rZelle        As Range
Dim sSuchbegriff  As String
sSuchbegriff = Range("A1")
On Error Resume Next
Set WkSh = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
With WkSh.Range("F1:F500")
Set rZelle = .Find(What:=sSuchbegriff, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
If Not rZelle Is Nothing Then
ActiveCell.Offset(0, 1).Select
Else
MsgBox "Der Begriff  """ & sSuchbegriff & """  wurde nicht gefunden.", _
48, "   Hinweis für " & Application.UserName
End If
End With
End Sub

Gruß Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige