VBA Find-Methode erweitern
Dirk
habe da ein Problem wo ich nicht weiter komme ...
... und hoffe auf EURE Hilfe !?
Also...
ich habe ein funktionierendes Makro (siehe unten) welches mir Daten aus TB GeBereiche nach TB Datenblatt ausgibt.
Jetzt muss ich dieses Makro aber um ein weiteres Kriterium (Datumsabfrage) erweitern ... und hier scheitere ich kläglich!
So als Leihe gesprochen...
Suche in TB GeBereiche den Eintrag aus TB Datenblatt, Spalte E (kann auch mehrfach vorkommen! Bei einem Treffer soll das Datum aus TB Datenblatt, Spalte D mit dem Datum aus dem TB GeBereiche, Spalte G verglichen werden!
Jetzt soll der Inhalt aus TB GeBereiche, Spalte C mit dem nächst größeren Datum übernommen werden!
Ich kann leider keine Demo anhängen, sorry!!! ...
... aber ich hoffe ich habe mich verständlich genug ausgedrückt?!
Schon mal vielen Dank für EURE Unterstützung!
Gruß Dirk
Option Explicit Sub Sverweis() Dim i As Long Dim wsdaten As Worksheet Dim wsGeBe As Worksheet Dim searchRange As Range Set wsdaten = Sheets("Datenblatt") Set wsGeBe = Sheets("GeBereiche") With wsdaten For i = 2 To .Cells(Rows.Count, 5).End(xlUp).Row Set searchRange = wsGeBe.Columns(1).Find(.Cells(i, 5).Value, lookat:=xlWhole) If Not searchRange Is Nothing Then 'wenn was gefunden wurde .Cells(i, 6).Value = searchRange(1, 3) 'nimm den wert der 3ten Spalte in der Matrix Else .Cells(i, 6).Value = "nicht vorhanden" 'wenn nichts gefunden wurde Meldung ausgeben End If Next End With End Sub Datenblatt
D | E | F | |
2 | 14.10.2009 | P10 | P10_31.12.9999 |
3 | 01.11.2009 | P10 | P10_31.12.9999 |
4 | 01.01.2008 | P10 | P10_30.06.2009 |
GeBereiche
A | B | C | D | E | F | G | |
12 | P10 | aaa | P10_31.12.9999 | 1 | 2 | 3 | 31.12.9999 |
13 | P10 | aaa | P10_30.06.2009 | 1 | 2 | 3 | 30.06.2009 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4