VBA: Test in Spalte suche und Fundspalte ausgeben

09/07/2009 - 10:50 von thomas müller | Report spam
Hallo,

wie kann ich unter 2007 per Makro den per Inbutbox abgefragten
Suchbegriff in Zeile 1 , Spalte 1 bis 1000 suchen lassen, und mir dann
ausgeben lassen, in welcher Spalte (n) er gefunden wurde?

DAnke

thomas
 

Lesen sie die antworten

#1 Andreas Killer
09/07/2009 - 12:18 | Warnen spam
On 9 Jul., 10:50, thomas müller wrote:

wie kann ich unter 2007 per Makro den per Inbutbox abgefragten
Suchbegriff in Zeile 1 , Spalte 1 bis 1000 suchen lassen, und mir dann
ausgeben lassen, in welcher Spalte (n) er gefunden wurde?


Wie unter vorherigen Versionen auch.

Andreas.

Sub Makro1()
Dim C As Range
Suchbegriff = InputBox("Suchbegriff")
Set C = Rows("1:1000").Find( _
What:=Suchbegriff, _
LookIn:=xlValues, _
LookAt:=xlPart)
If C Is Nothing Then
MsgBox "Nicht gefunden"
Else
'Zelle auswàhlen
C.Select
End If
End Sub

Ähnliche fragen