Suche nach Wert in einer bestimmten Spalte

Peter · 2018-02-20T20:39:40+00:00

Hallo alle miteinander, wie kann ich in der Spalte, in der ich mich befinde, nach einem bestimmten Wert x suchen? Habe mir überlegt irgendwie Target.column da in ein Find einzubauen...aber wie ? Dim RaFound As Range Set RaFound1 = Tabelle1.Cells.Find(x, , , xlWhole, xlByRows, xlNext) If Not RaFound1 Is Nothing Then Tabelle4.Rows(RaFound1.Row).Delete MsgBox ("Wurde gefunden in zeile....") ' hier vl. noch die Ausgabe hinein, in welcher Zeile der wert ist. WertEintritt = "" Set RaFound1 = Nothing

Hallo Werner ,
Bin gerade unterwegs und leider nicht am Rechner, Mappe hochladen wird daher gerade schwierig.
Ich versuche dir das noch mal kurz zu erläutern. Eigentlich komme ich danach ja schon weiter, mir fehlt nur die Suche nach der Koordinate in der betreffenden Spalte.
Mit Worksheet Change wird ein Ereignis in zb Spalte d ausgelöst. Nehmen wir mal an in Zelle d10 wird etwas gelöscht - das erkennt dann excel und soll jetzt nach oben und nach unten jeweils in der ausgewählten Spalte (hier ja jetzt d) nach dem Wert X suchen. Wenn ich jetzt noch die variablen einfach in Form der cell- Koordinaten (zb 1/4 oder 18/4) erhalte, in denen das x gefunden wird, dann bin ich glücklich ...es reicht ja quasi die Ausgabe der Zeilennummern, da ja die Spalte durch das Target ja schon vorgegeben ist.
Ich hoffe du hast mich verstanden, was ich meine ... alles andere kann ich dann selbst lösen ! Mir fehlt nur der Wink die Zeilennummern zu bekommen.

Hallo Peter,
das Makro setzt in der Spalte der aktiven Zelle den Autofilter, filtert die Spalte nach x und kopiert das Filterergebnis aus Spalte A nach Blatt 2.

Sub Makro1()
Dim loLetzte As Long, loSpalte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(1, 1), .Cells(loLetzte, loSpalte)).AutoFilter Field:=ActiveCell.Column,  _
Criteria1:="x"
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
If loLetzte > 1 Then
.Range(.Cells(2, 1), .Cells(loLetzte, 1)).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Cells(1, 1) 'Blattname Adresse Ziel anpassen
Else
MsgBox "Keine Filterdaten vorhanden."
End If
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

Gruß Werner

Suche nach Wert in einer bestimmten Spalte

Forumthread: Suche nach Wert in einer bestimmten Spalte

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Suche nach Wert in einer bestimmten Spalte

Forumthread: Suche nach Wert in einer bestimmten Spalte

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread