Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA: Test in Spalte suche und Fundspalte ausgeben

3,956 views
Skip to first unread message

thomas müller

unread,
Jul 9, 2009, 4:50:53 AM7/9/09
to

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

Andreas Killer

unread,
Jul 9, 2009, 6:18:10 AM7/9/09
to

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

thomas müller

unread,
Jul 9, 2009, 7:34:59 AM7/9/09
to
Hallo Andreas,

danke f�r Dein Beispiel. Aber jetzt markiert er ja denn Fundort. Was
muss man einstellen, damit da z.B. Spalte A steht.

Danke

thomas


Andreas Killer schrieb:


> On 9 Jul., 10:50, thomas m�ller <thm2342...@gmx.net> 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

Andreas Killer

unread,
Jul 9, 2009, 9:28:15 AM7/9/09
to
thomas m�ller schrieb:

> danke f�r Dein Beispiel. Aber jetzt markiert er ja denn Fundort. Was
> muss man einstellen, damit da z.B. Spalte A steht.

Wo soll "Spalte A" stehen?

Die Adresse der Zelle kannst Du Dir mit
MsgBox C.Address
anzeigen lassen.

Andreas.

thomas müller

unread,
Jul 9, 2009, 10:02:48 AM7/9/09
to

Danke funktioniert.

thomas

Andreas Killer schrieb:

0 new messages