Hallo David, hier mein Tipp aus meiner Excel Praxis
Probiere es einfach mal mit der Such/Find Methode, hier über eine Set Anweisung (dabei wird die gefundene Celle nicht Selektiert !!)
Der Vorteil ist das man die Startadresse selbst festlegen kann, bekannt als: After:=ActiveCell Hier aber mit Startadresse "A5" oder "A6"
Werden weitere Werte erwartet würde ich die Do Loop Funktion benutzen und mit FindNext alle suchen bis zum Ende. Dafür ersetze ich
Adr1 durch nAdr = Next Adresse und lege die nAdr jedesmal neu fest, bis zum Ende: nAdr = rFind.Addresse (naechste Startadresse)
Sub suchen()
Dim rFind As Object, Adr1 As String
Adr1 = "A5" '1. Zelle für den Suchlauf
Set rFind = Range("A1:A150").Find(What:=gruppenname, After:=Range(Adr1), LookIn:=xlValues, _
LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rFind Is Nothing Then 'nichts gefunden (keine Aktion!! weil danach sofort ElseIf kommt)
ElseIf rFind.Address <> Adr1 Then 'prüfen ob rFind.Adresse <> "A5" ist?
'hier deine weitere Makro Funktion
'............
End If
End Sub
|