@Nepumuk:Suchen
15.06.2003 22:26:38
EL
Ich habe Folgendes:
Public Sub start()
Erase feld
ChDir "C:\ECS"
Dim Arbeitsmappe As Workbook, gefunden As Boolean
For Each Arbeitsmappe In Workbooks
If LCase(Arbeitsmappe.Name) = "rezepturen.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then Workbooks.Open Filename:="C:\ECS\rezepturen.xls"
Dim zelle As Range, adresse As String, zaehler As Integer, tabelle As Worksheet
Set tabelle = Workbooks("rezepturen.xls").Sheets(1)
With tabelle.Range("D1:D65536")
Set zelle = .Find(Cells(9, 8), LookIn:=xlValues, LookAt:=xlPart)
If Not zelle Is Nothing Then
adresse = zelle.Address
Do
zaehler = zaehler + 1
If zaehler <= 100 Then
feld(zaehler, 1) = tabelle.Cells(zelle.Row, zelle.Column)
feld(zaehler, 2) = tabelle.Cells(zelle.Row, zelle.Column - 2)
feld(zaehler, 3) = tabelle.Cells(zelle.Row, zelle.Column - 3)
feld(zaehler, 4) = zelle.Row
Else
Erase feld
MsgBox "Mehr als 100 Einträge gefunden." & vbNewLine & "Bitte Suchbegriff einschränken.", 48, "Hinweis": Exit Sub
End If
Set zelle = .FindNext(zelle)
Loop Until Not zelle Is Nothing And zelle.Address = adresse
Else
MsgBox "Suchbegriff nicht gefunden", 48, "Hinweis": Exit Sub
End If
End With
UserForm1.Show
End Sub
Wie kann ich die suche erweitern daß Arbeitsmapp1
Cells(7,8) einwert von spalte A (A1,A65536) rezepturen.xls
cells(11,8) - (B1:B65536)
cells(9,11) - (C1:C65535)
anders wort:
suchen lt. 1 bis 4 suchbegriffe.
Danke in Voraus!
Gruß
EL