AW: gib mal im Archiv .Find ein_owT
11.06.2008 10:04:33
Chris
Servus Dominik,
im Prizip so:
Option Explicit
Sub t()
Dim rsuche As Range, rFinde As Range
Set rFinde = Sheets("Name des Sheets, wo er suchen soll").Range("A:A")
Set rsuche = rFinde.Find(what:="Hier den Suchbegriff", LookIn:=xlValues, LookAt:=xlWhole)
If Not rsuche Is Nothing Then
Exit Sub
Else
Sheets("Name, wo eingetragen werden soll").Range("A65536").End(xlUp).Offset(1, 0) = Me. _
TextBox1
End If
End Sub
Für ein funktionierendes Makro, braucht man aber mehr Infos:
Wo und was soll gesucht werden? Wie erhält man den Suchstring? Wo soll eingetragen werden oder auch nicht?
Gruß
Chris