zwei .Find Bedingungen statt einer
meixner
ich würde gerne zwei .find Bedingungen statt aktuell einer in einem Makro aufbauen.
Aktuell sucht das Makro in Sheet2 Spalte 4 nach einer ISIN und schreibt diese in sheet1 Spalte4 wenn gefunden.
Das Makro soll weiterhin in sheet2 nach ISIN aber auch nach Fondsnummer suchen und wenn diese gefunden wurden, dann die Ergebnisse in Sheet1 Spalte 1 und Spalte 4 eintragen.
Macht das für euch Sinn?
Vielen Dank für die Hilfe.
Dani.
____________________________________
Sub Dividende()
Dim strRIC As String, rngSuch As Range
Dim rngF As Range, lngZ As Long, lngErst As Long
Dim specialdividend As Double
Dim AS_Geschäft As Range
Dim Fondsnummer As Long
Dim rngRange As Range
Dim ZeileStart As Long
ISIN = InputBox("Bitte ISIN Aktie eingeben:", "Dateneingabe:")
If ISIN = vbNullString Then Exit Sub
Fondsnummer= InputBox("Bitte Fondsnummer eingeben eingeben:", "Dateneingabe:")
If ISIN = vbNullString Then Exit Sub
With Workbooks("Template.xls")
Set rngSuch = .Worksheets(2).Columns(4)
Set rngF = rngSuch.Find(What:=ISIN, LookAt:=xlPart) '(Makro sucht nur nach ISIN und nicht nach der Fondsnummer?)
If Not rngF Is Nothing Then
lngErst = rngF.Row
With .Worksheets(1)
lngZ = .Cells(.Rows.Count, 4).End(xlUp).Row 'letzte in Sp.D belegte Zeile
ZeileStart = lngZ + 1
Do
'Sheets(5).Range("B5").Value = strRIC
lngZ = lngZ + 1
.Cells(lngZ, 1) = rngF.Offset(0, -3)
.Cells(lngZ, 2) = rngF.Offset(0, -2)
-
-
-