Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
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
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Letztes Vorkommen eines Wertes ermit

VBA Letztes Vorkommen eines Wertes ermit
23.01.2023 09:48:48
Thomas
Hallo, ich möchte in einer (sortierten) Spalte in der verschiedene Werte mehrmals in unterschiedlicher Anzahl vorkommen können in einer Schleife immer das jeweils letzte Vorkommen abfragen, dazu hatte ich mir überlegt das über Find zu lösen, in Form von 
Set rngKST = tblDaten.Columns(5).Find(tblDaten.Cells(lngFind, 5), , xlValues, xlWhole, , xlPrevious)
Wobei lngFind immer mit der ermittelten Zeile + 1 dann gesetzt würden.

Allerdings ermittelt mir das find nur die letzte nicht ausgeblendete Zeile, allerdings gibt es auch noch ausgeblendete Zeilen die mit berücksichtigt werden müssten, wie könnte ich das machen?
Danke

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Letztes Vorkommen eines Wertes ermit
23.01.2023 10:14:53
Daniel
Hi
Wenn die Spalte aufsteigend sortiert ist, kannst du die Positionsnummer/Zeilennummer des letzten Vorkommens eines Wertes mit der Funktion Vergleich ermitteln, wenn du den dritten Parameter auf 1 setzt. Ein- oder ausgeblendet ist für die Excelfunktionen unwichtig.
In VBA kannst du sie so nutzen:
lngFind = Application.Match(tblDaten.Cells(lngFind, 5), tblDaten.Columns(5), 1) + 1
Gruß Daniel
AW: VBA Letztes Vorkommen eines Wertes ermit
23.01.2023 10:55:41
Thomas
Hallo Daniel,
danke für die schnelle Rückmeldung,
ich glaube mein Problem an der stelle ist, das der Wert "lngFind" hier 
Application.Match(tblDaten.Cells(lngFind, 5)
sich ja eigentlich Variable aus dem letzten Vorkommen des jeweiligen Wertes definieren soll und da stehe ich mir etwas auf dem Schlauch.
Die Schleife die durchläuft wird auf grunde von Daten aus einem anderen Tabellenblatt gesteuert, daher kann ich den Zähler hierfür nicht nutzen.
Im Anhang eine kurze Beispieldatei, hier müsste einmal 4 für das letzte mal "Köln", 5 für "Bonn" 9 für "München" und 11 für "Kiel"
rauskommen.
https://www.herber.de/bbs/user/157425.xlsm
Danke
MFG
Thomas
Anzeige
AW: VBA Letztes Vorkommen eines Wertes ermit
23.01.2023 11:16:05
Rudi
Hallo,
D2:D11: =AGGREGAT(14;6;ZEILE($C$2:$C$11)/($C$2:$C$11=C2);1)
Gruß
Rudi
AW: VBA Letztes Vorkommen eines Wertes ermit
23.01.2023 11:58:25
Daniel
Hi
Deine Beispieltabelle ist nicht aufsteigend sortiert, sondern nur gruppiert.
Gleiche Werte stehen zwar untereinander, aber die Gruppen sind nicht in der alphabetischen Reihenfolge.
Damit kann Application.Match mit 3. param = 1 nicht arbeiten.
Eine Möglichkeit wäre hier, Match mit 0 als dritten Parameter zu verwenden, um die das erste Vorkommen zu erhalten und dann mit CountIf zu ermitteln, wie oft der Wert vorkommen und dann beides zuammenaddieren:
Erste Zeile: 
Application.Match("Köln", Columns(5), 0)
Letzte Zeile:
Application.Match("Köln", Columns(5), 0) + Worksheetfunction.CountIf(Columns(5), "Köln") - 1
Gruß Daniel
Anzeige
AW: VBA Letztes Vorkommen eines Wertes ermit
23.01.2023 10:51:38
Rudi
Hallo,
einfach die Daten in ein Array einlesen und mit ner Schleife von unten durch.
Sub aaa()
  Dim lngFind As Long
  For lngFind = 2 To 10
    MsgBox ZeileLetzterFund(tblDaten.Cells(lngFind, 5), tblDaten, 5)
  Next
End Sub
Function ZeileLetzterFund(SuchWert, SuchBlatt As Worksheet, SuchSpalte) As Long
  Dim arrTmp, i As Long, bolFound As Boolean
  
  arrTmp = SuchBlatt.Cells(1, 1).CurrentRegion.Columns(SuchSpalte)
  
  For i = UBound(arrTmp) To LBound(arrTmp) Step -1
    If CStr(arrTmp(i, 1)) = CStr(SuchWert) Then
      ZeileLetzterFund = i
      Exit For
    End If
  Next i
      
End Function
Gruß
Rudi
Anzeige
AW: VBA Letztes Vorkommen eines Wertes ermit
27.01.2023 09:32:47
Thomas
Hallo zusammen,
ich hab jetzt mal noch ein bisschen rumprobiert und glaube die für mich "beste" Lösung gefunden zu haben, indem ich die Daten über eine Schleife in ein Array einlese und nur eindeutige reinnehme.
Das ganze sieht jetzt so aus:
'Array mit Eindeutigen Werten füllen
    Dim arrOhneDuplikate As Variant
    Dim arrAusgangswerte As Variant
    Dim objdic As Object
    Dim lngI As Long
    
    Set objdic = CreateObject("Scripting.Dictionary")
    
    With tblDaten2022
       arrAusgangswerte = .Range(.Cells(2, 4), .Cells(Rows.Count, 1).End(xlUp)).Value
    End With
    
    For lngI = LBound(arrAusgangswerte, 1) To UBound(arrAusgangswerte, 1)
       If Not objdic.exists(arrAusgangswerte(lngI, 4)) Then _
          objdic.Add arrAusgangswerte(lngI, 4), 1
    Next lngI
    
    arrOhneDuplikate = objdic.keys
    
    Set objdic = Nothing
Wenn es verbesserungs Vorschläge gibt, bin ich da sehr offen für:-)
Vielen Dank für eure Unterstützung.
MFG
Thomas
Anzeige

20 Forumthreads zu ähnlichen Themen

Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Anzeige
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
VBA Zeichen in String
Lukas

Hallo!
Mit InStr() prüfe ich ob mein Text in der Zelle enthalten ist. Wenn ja, möchte ich das Zeichen vor und die beiden Zeichen nach dem Text wissen!
Vielen Dank für eure Hilfe schon im Voraus!
25.06.2016 17:21:48
Thread-ID: 1500958
7 Beiträge
Anzeige
Formel für 2. Zeichen von links
links

Guten Tag Formelspezialisten,
aus einer mehrstelligen Zahl (z.B. in N8) suche ich die Formel, um die 2. Zahl zu erstellen.
Mit Formel (hier bei 4stelliger Zahl): =LÄNGE(N8)-3*1 kommt das richtige Ergebnis.
Wie muss die Formel lauten, damit ich es z.B. mit Links(N8;?)*1 machen...
09.06.2017 11:46:27
Thread-ID: 1563204
7 Beiträge
Zeichenabfolge wieder Finden und Zelle ausgeben
Seni

Guten Tag zusammen,
dieses mal ein simples Problem. Ich Suche nun schon seit einiger Zeit nach einer Lösung aber entweder bin ich blind, blöd oder beides.
Ausgangslage:
Ich habe 4 Stellige Werte nach ihrer Größe Sortiert in Spalte A stehen. z.B. 5068
In Spalte C stehen Textwerte...
06.11.2018 10:37:58
Thread-ID: 1655623
5 Beiträge
Letztes Vorkommen eines Begriffes in Matrix finden
Benny

Hallo zusammen,
bei dem folgenden Problem finde ich einfach keine Lösung:
Ich möchte in einer Matrix die genaue Position der letzten Vorkommens eines gesuchten Begriffs ausgeben.
Mit der genauen Postion ist die Zeile und Spalte gemeint, z.B. D4.
Mit dem letzten Vorkommen ist d...
06.03.2019 11:29:42
Thread-ID: 1679617
6 Beiträge
Letztes Zeichen autom. löschen
Manfred

Hi,
habe folgenden Code:
With wks
strB = .Cells(1, 2).text
For Each rngB In .Range(.Cells(6, 2), .Cells(.Rows.Count, 2).End(xlUp)).Cells
If rngB.text "" Then
strB = strB & rngB.text & ";"
End If
Next
End With
Dadurch werden die Daten von Spalte B...
14.08.2019 13:37:48
Thread-ID: 1707628
5 Beiträge
5. Zeichen von links
Franz W.

Hallo Forum,ich habe in A1 eine Zeichenfolge z.B. abcdefgh. Ich möchte nun das 5. Zeichen von links ermitteln. Mit =LINKS(A1;5) bekomme ich die ersten 5, also "abcde", ich möchte aber nur das "e". Könnt Ihr bitte helfen?Vielen Dank im VorausGruß
Franz

11.03.2003 17:48:47
Thread-ID: 230655
5 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
3
3
3
6
3
6
4
5
4
4
4
5
1
5
4
3
3
3
7
4