Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte suchen

Forumthread: 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.

Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige