Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA suchen in Spalte von unten nach oben

VBA suchen in Spalte von unten nach oben
11.05.2023 15:13:58
Joschi Witchcraft

Hallo Forum,

wie kann ich in einer Spalte (3) die Zeile oberhalb der aktuellen Zeile finden, die denselben Begriff beinhaltet wie die aktuelle Zeile?

Den Begriff kann es durchaus mehrfach geben. Interessant ist lediglich der letzte Eintrag vor der aktuellen Zeile.

Meine Tabelle ist nach Datum aufsteigend sortiert. Gesucht wird immer der letzte Eintrag vor dem aktuellen Eintrag

Wer kann weiterhelfen? Geht das ohne Loop?

Gruß Joschi

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA suchen in Spalte von unten nach oben
11.05.2023 15:24:52
Daniel
Hi
so bekommen sie die Zeilennummer des darüberliegenden Eintrags mit dem gleichen Wert.
Z = aktuelle Zeile 'wie auch immer ermittelt
F = Range(Cells(1, 3), Cells(Z, 3)).Find(what:=Cells(Z, 3).Value, after:=cells(z, 3), lookat:=xlwhole, lookin:=xlvalues, Seachdirection:=xlprevious).row
if F = Z then
    msgbox "nicht gefunden"
Else
    msgbox "nächster Wert in Zeile " & F
end if


AW: VBA suchen in Spalte von unten nach oben
11.05.2023 15:48:36
Joschi Witchcraft
Hallo Daniel

bei Deinem Code gibt es Probleme mit dem Parameter Seachdirection:=
"Benanntes Argument nicht gefunden"

Gruß Joschi


Anzeige
AW: VBA suchen in Spalte von unten nach oben
11.05.2023 15:53:36
Daniel
kann gut sein, dass ich mich da verschrieben habe.
die korrekte Schreibweise findest du in der Hilfe (F1 mit Cursor auf F1), oder mit dem Makrorecorder oder einfach durch Anwendung grundlegender Englischkenntnisse.
Gruß Daniel


AW: VBA suchen in Spalte von unten nach oben
11.05.2023 16:31:26
Joschi Witchcraft
Hallo Onur.

Danke für Dein Beispiel. Aber ich suche eine Lösung unter VBA.

Gruß Joschi


Anzeige
AW: VBA suchen in Spalte von unten nach oben
11.05.2023 16:45:18
snb
Verwende Autofilter


AW: VBA suchen in Spalte von unten nach oben
11.05.2023 19:21:02
Yal
Hallo Joschi,

es geht nicht ohne Loop. Der Loop muss abgebrochen werden, wenn die StartZelle wieder gefunden wird.

Allgemeine Version:
Sub Makro2()
Dim Z As Range 'Z wie Zelle
Dim StartAdresse As String
    Set Z = Cells(Rows.Count, 1).End(xlUp)
    StartAdresse = Z.Address 'Wichtig, Teil 1
    Set Z = Cells.Find(What:=Z.Value, After:=Z, LookAt:=xlWhole, SearchDirection:=xlPrevious)
    If Not Z Is Nothing Then 
        Do
            Debug.Print Z.Address, Z.Value 
            Set Z = Cells.FindPrevious(After:=Z)
        Loop While Z.Address > StartAdresse 'Wichitg, Teil 2: ohne das, endlose Schleife
    End If
End Sub
Aber weil der gesuchte Wert auch Teil des gesuchten Bereichs ist, und somit immer was gefunden wird, kann am abkürzen (wenngleich nicht wesentlich "besser"):
Sub Makro2()
Dim Z As Range 'Z wie Zelle
Dim StartAdresse As String
    Set Z = Cells(Rows.Count, 1).End(xlUp)
    StartAdresse = Z.Address
    Set Z = Cells.Find(What:=Z.Value, After:=Z, LookAt:=xlWhole, SearchDirection:=xlPrevious)
'Sonderfall "die gesuchte ist Teil des gesuchten Bereichs
    Do While Z.Address > StartAdresse
        Debug.Print Z.Address, Z.Value
        Set Z = Cells.FindPrevious(After:=Z)
    Loop
End Sub
VG
Yal


Anzeige
AW: VBA suchen in Spalte von unten nach oben
11.05.2023 21:17:54
GerdL
Moin

Sub Unit()

    Dim Z As Range, F As Long
    
    Set Z = Cells(ActiveCell.Row, 3) 'wie auch immer ermittelt
    F = Range(Cells(1, 3), Z).Find(what:=Z.Value, after:=Z, lookat:=xlWhole, _
                                   LookIn:=xlValues, Searchdirection:=xlPrevious).Row
    If F = Z.Row Then
        MsgBox "nicht gefunden"
    Else
        MsgBox "vorheriger Wert in Zeile " & F
    End If

    Set Z = Nothing
End Sub
Gruß Gerd


AW: VBA suchen in Spalte von unten nach oben
16.05.2023 09:58:56
Joschi Witchcraft
Sorry. Habe total vergessen, ein positives "Dankeschön, hat geholfen" zu senden,

Gruß Joschi

Anzeige

318 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Spalte nach Schlüsselwörtern auswerten
Mumber

Hallo Experten,
brauche dringend Eure Unterstützung.
Ich würde gerne im Rahmen einer Auswertung eine bestimmte Spalte (Text) mittels VBA nach bestimmten Schlüsselwörtern durchsuchen lassen und bei Treffer eine dem Schlüsselwort entsprechende Kategoriebezeichnung in anderer Spalte (glei...
08.09.2008 11:31:00
Thread-ID: 1008091
5 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in anderer Datei suchen, kopiertes rechts ein
Rudolf

Hallo an alle, bin neu hier und benötige Hilfe.
Wie kann ich in Spalte A einen Text z.B. K1 (Kommt immer nur 1x vor) suchen.
Das aus anderer Datei kopierte dann rechts in Sp. C gleiche Zeile einfügen,
so das Range("C45").Select wegfallen kann.
Ich hätte dann die Möglichkeit bel...
12.09.2008 15:29:00
Thread-ID: 1009393
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
4
8
4
3
7
4
2
14
4
2
2
20
7
4
4
2
6
4
6
6
12
11
3