Zellinhalt in Spalte finden und zur Zeile springen

Moin Leute,
ich weiß nicht wie lange ich hier nichts gepostet habe,
daher noch einmal kurz: Ich heisse Jan und würde mich über Hilfe freuen,
meine Excel Kenntnisse basieren mehr auf Try and Error, Codes googeln,
herumprobieren etc. als auf gelerntem, Daher bitte ich um Nachsicht, ich kann Codes aber recht gut verstehen mittlerweile.
Zur Aufgabe:
In meiner Tabelle ermittle ich über eine (nicht VBA) WENN Funktion
in den Zellen L3 bis L96 eine Bedingung wenn Gewissen Vorgaben in selber Zeile
erfüllt. Mittels Button und Verknüpften Modul mit Sub möchte ich per Klick
in die erste Zelle von oben angefangen springen, in der die Bedingung erfüllt ist.
Ich habe über Makro Aufzeichnung und Excel Suchfunktion herumprobiert, mein Problem
ist jedoch das Excel jede Zelle anspringt da ja in jeder Zelle in der WENN Funktion
gesuchter Text vorhanden ist. Ebenfalls versucht habe ich es über Bedingte Formatierung, leider auch ohne Erfolg.
Wie muss der Code also lauten, kann man nach erfüllten WENN Bedingungen in
der betroffenen Spalte suchen?
ALternativ habe ich versucht in der Spalte M3:M96 Wert 0 / Wert 1 auszugeben
wenn Bedingung erfüllt und diese anzuspringen, auch ohne Erfolg.
Sollte ich spezieller erklären bitte ich um Info.
Hier noch zur Hilfe die Wenn Funktion:

WENN(M3=1;"

LG Jan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private rng As Range Sub getNext() If rng Is Nothing Then Set rng = Range("L3:L96").Find(What:="Fehleingabe", After:=Range("L3"), LookIn:=xlValues, LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If Not rng Is Nothing Then Application.Goto rng Else Set rng = Range("L3:L96").FindNext(rng) If Not rng Is Nothing Then Application.Goto rng End If End Sub Sub getPrevious() If rng Is Nothing Then Set rng = Range("L3:L96").Find(What:="Fehleingabe", After:=Range("L96"), LookIn:=xlValues, LookAt:=xlPart, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False) If Not rng Is Nothing Then Application.Goto rng Else Set rng = Range("L3:L96").FindPrevious(rng) If Not rng Is Nothing Then Application.Goto rng End If End Sub

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Sub getNext() Call getFind(Range("L3:L96"), "Fehleingabe", xlNext) End Sub Sub getPrevious() Call getFind(Range("L3:L96"), "Fehleingabe", xlPrevious) End Sub Private Sub getFind(ByRef Target As Range, ByVal FindWhat As Variant, ByVal Direction As XlSearchDirection) Dim firstCell As Range Static rng As Range With Target If rng Is Nothing Then Set firstCell = IIf(Direction = xlNext, .Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)) Set rng = .Find(What:=FindWhat, After:=firstCell, LookIn:=xlValues, LookAt:=xlPart, _ SearchDirection:=Direction, MatchCase:=False, SearchFormat:=False) Else Set rng = IIf(Direction = xlNext, .FindNext(rng), .FindPrevious(rng)) End If End With If Not rng Is Nothing Then Application.Goto rng End Sub

Beliebteste Forumthreads (12 Monate)

Zellinhalt in Spalte finden und zur Zeile springen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellinhalt in Spalte finden und zur Zeile springen

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread