Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1804to1808
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

Spalte durchsuchen VBA

Spalte durchsuchen VBA
15.01.2021 15:39:24
Gast
Hi
ich möchte eine Spalte im Blatt Tabelle2 Spalte C anhand eines Wertes in Zelle A1 (Blatt 1) durchsuchen und mir alle Treffer in Spalte F ausgeben lassen.
Der Wert in Zelle A1 ist dabei meist nur ein Teil von den zugehörigen Werten die in Blatt 2 Spalte C stehen.
Funktioniert sowas? ich habe leider kaum Kenntnisse in VBA
Danke schon mal

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte durchsuchen VBA
15.01.2021 15:46:46
Hajo_Zi

Option Explicit
Sub Find_mehrmals()
'* H. Ziplies                                     *
'* 29.03.2020                                     *
'* erstellt von HajoZiplies@WEB.de     Spam       *
'* http://Hajo-Excel.de
Dim Rafound As Range
Dim StAdresse As String
With Worksheets("Projekte")
Set Rafound = .Columns(4).find("Ha", .Range("D1"), , xlPart, , xlNext)
' xlPart enthalten
' xlWhole kompletter Vergleich
If Not Rafound Is Nothing Then
MsgBox Rafound.Address
StAdresse = Rafound.Address             ' erste Adresse merken
Do                                      ' Such wiederholen
Set Rafound = .Columns(4).FindNext(Rafound)
If Not Rafound Is Nothing Then
If StAdresse = Rafound.Address Then
Exit Do                     ' erstes Ergebniszelle
Else
MsgBox Rafound.Address
End If
End If
Loop
End If
End With
Set Rafound = Nothing
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige