Select or not Select bei FIND

Moin!
Ich versuche gerade, alle SELECT und ACTIVATE zu eleminieren...
Kann mir jemand verraten, warum folgende Prozedur läuft:
.Activate 'Tabelle MitarbeiterIn auswählen
.Range("G6:G" & ZeileMax).Select
Selection.Find(What:=NameKlient, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Folgende Prozedur aber mit der Fehlermeldung 13 "Typen unverträglich" abbricht?
.Range("G6:G" & ZeileMax).Find(What:=NameKlient, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Vielen Dank im Voraus
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Test() Dim rZelle As Range Dim NameKlient As String Dim ZeileMax As Long NameKlient = "Ingrid" With ThisWorkbook.Worksheets("MitarbeiterIn") ZeileMax = .Cells(.Rows.Count, 7).End(xlUp).Row Set rZelle = .Range("G6:G" & ZeileMax).Find(What:=NameKlient, LookIn:=xlFormulas, _ LookAt:=xlPart) If Not rZelle Is Nothing Then Range("G" & rZelle.Row).Activate Else MsgBox "Der Begriff """ & NameKlient & """ wurde nicht gefunden." End If End With End Sub

set rF = .Range("G6:G" & ZeileMax).Find(What:=NameKlient, After:=.range("G6"), LookIn:= _ xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) if not rf is nothing then .activate rf.activate end if

Hi Jürgen
Der Parameter AFTER:=ActiveCell verursacht den Fehler
hier gibst du ja die Zelle an, bei welcher die Suche beginnen soll.
die Zelle, die du hier angibst, muss logischerweise Bestandteil des Zellbereichs sein, den du durchsuchst (dh diese Zelle muss zum Bereich gehören, den du vor .FIND stehen hast)
liegt diese Zelle ausserhalb des zu durchsuchenden Bereichs, kommt der Fehler 13 "Typen unverträglich"
die ActiveCell ist immer Teil der Selection, dh wenn du zu durchsuchenden Zellbereich vorher selektierst dann funktioniert After:=ActiveCell immer.
Selektierst du nicht, dann liegt die ActiveCell noch in der letzten Selektion und damit wahrscheinlich nicht im zu durchsuchenden Bereich.
Lass den Parameter einfach weg, dieser Parameter ist selten notwendig.
Er wird nur dann benötigt, wenn du eine Liste nach einem mehrfach vorkommenden Suchbegriff durchsuchst um zu verhindern, dass du jedesmal den ersten Wert findest.
(Eselsbrücke: After ist für'n Arsch (meistens zumindest))
also etwa nach dem Prinzip:

set ErsteFundstelle = Columns(1).Find(What:="Suchtext")
Set ZweiteFundstelle = Columns(1).Find(what:="Suchtext", after:=ErsteFundstelle)
if ErsteFundstelle.Address = ZweiteFundstelle.Address Then
Msgbox "Suchtext nur 1x im Text vorhanden"
Else
Msgbox "Suchtext gefunden in: " & ErsteFundstelle.Address & ", " & ZweiteFundstelle.Address
End If

Gruß Daniel

Option Explicit Sub test() Dim ZeileMax& Dim NameKlient$ NameKlient = "MustermannFrau" With Sheets("MitarbeiterIn") ZeileMax = .Range("G" & .Rows.Count).End(xlUp).Row .Activate 'Tabelle MitarbeiterIn auswählen .Range("G6:G" & ZeileMax).Select Selection.Find(What:=NameKlient, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate MsgBox "Mit Select" .Range("A1").Activate ' liegt außerhalb des zu durchsuchenden Bereichs ' damit bleibt das Makro mit der Fehlermeldung stehen. .Range("G6:G" & ZeileMax).Find(What:=NameKlient, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate MsgBox "Ohne Select und OHNE After-Angabe" .Range("G6").Activate ' liegt innerhalb des zu durchsuchenden Bereichs .Range("G6:G" & ZeileMax).Find(What:=NameKlient, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate MsgBox "Ohne Select und MIT After-Angabe" End With End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

87 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Select or not Select bei FIND

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

87 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread