Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
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
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sverweis(Schleife - Bitte um Unterstützung

Sverweis(Schleife - Bitte um Unterstützung
24.05.2016 14:52:43
Nilo
Hallo alle zusammen,
ich bin am Grübeln und nicht so firm auf dem Gebiet klug verschleifen und verschachteln mit VBA,
und habe folgendes Problem:
Spalte A in Tabelle Daten: Nummern
Spalte Z in Tabelle Daten: Nummern
Spalte A sind Stammdaten.
Spalte Z sind Bereiche.
In Tabelle "Letzte" hole ich mir den Eintrag aus Z "Bereiche" wenn A "Stammdaten" Suchbegriff gefunden:
=SVERWEIS(A2;Daten!A:Z;26;0)
Nun kommt es vor dass die Nummer in "Bereich" auch schon in den "Stammdaten" steht und ebenfalls wieder durch einen neuen "Bereich" ergänzt wurde usw.
also wieder =SVERWEIS(A2;Daten!A:Z;26;0)
Das ganze müsste ich jetzt x mal in einer Zelle machen um den letzten "Bereich" zu der gesuchten Stammdatennummer zu finden, also die letzte Nummer der Kette "ohne" Eintrag in "Bereich".
Also Sverweis(Sverweis(Sverweis etc.
Habe in der Suche das hier gefunden aber bekomme das nicht angepasst:
https://www.herber.de/forum/archiv/724to728/725057_SVerweis_VBA_mit_Schleife_Werte_kopieren.html
Freue mich auf Support und schon einmal vielen Dank.
Gruß
Nilo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sverweis(Schleife - Bitte um Unterstützung
24.05.2016 17:12:44
ChrisL
Hi Nilo
Siehe Anhang:
https://www.herber.de/bbs/user/105771.xlsm 
Sub mach()
Dim iZeile As Long, tempZeile As Long
Dim tempErgebnis As Long
For iZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
tempZeile = iZeile
tempErgebnis = Cells(iZeile, 26)
Do While WorksheetFunction.CountIf(Columns(1), tempErgebnis) > 0
tempZeile = Application.Match(tempErgebnis, Columns(1), 0)
tempErgebnis = Cells(tempZeile, 26)
Loop
Cells(iZeile, 27) = Cells(tempZeile, 26)
Next iZeile
End Sub

cu
Chris

Anzeige
Moin Chris, besten Dank ! Lüppt ;) owT
26.05.2016 11:26:06
Thorben
.

Sorry der späten Rückmeldung! Läuft besten Dank!
30.05.2016 08:49:03
Nilo
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige