Datenbank

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Datenbank
von: Sandra
Geschrieben am: 10.06.2002 - 12:32:11

Hallo zusammen!

Ich habe ein Problem mit meiner Datenbank in Excel.
Möchte gerne eine Inputbox erstellen.
Der Inhalt dieser Inputbox(Zahl) soll als Kriterium für den Autofilter genommen
werden.

Selection.AutoFilter Field:=7, Criteria1:="=Inputbox", Operator:=xlAnd

Wer kann mir hierbei helfen?

nach oben   nach unten

Re: Datenbank
von: Hajo
Geschrieben am: 10.06.2002 - 12:36:11

Hallo Sandra

ich würde mal auf dem ersten Blick schreiben
Criteria1:=Inputbox

wenn es sich nicht um ein Datum handelt.

Gruß Hajo

nach oben   nach unten

Re: Datenbank
von: Frederik
Geschrieben am: 10.06.2002 - 12:38:06

Hallo!

Wenn du vorher die Anweisung box1 = inputbox("... hast, kannst du nachher schreiben
Selection.AutoFilter Field:=7, Criteria1:=box1, Operator:=xlAnd

Hoffe du kommst damit weiter.

Gruß
Frederik

nach oben   nach unten

Re: Datenbank
von: M@rkus
Geschrieben am: 10.06.2002 - 12:39:05

Hallo Sandra!

Versuchs doch mal so:
Sub Autofilter()
sInput = InputBox("Eingabe Autofilter", "Autofilter")

Selection.AutoFilter Field:=7, Criteria1:= sInput, Operator:=xlAnd

End Sub

Viele Grüsse
Markus

nach oben   nach unten

Re: Datenbank
von: Otto
Geschrieben am: 10.06.2002 - 12:41:27

Hallo Sandra,
ich habe mir eine UserForm mit dem eingabefeld TextBox1 und dem
Schalter "Ende" angelegt. NAch Betätigung des Schalters läuft folgendes Makro ab:

Private Sub Ende_Click()
Dim antwort As String

antwort = UserForm1.TextBox1.Value
Me.Hide

Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=antwort

End Sub


Damit klappt es.

Gruß
Otto

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Datenbank "