vba code über button aktivieren
23.08.2004 12:29:38
sven
ich habe hier einen wundervollen code, der mein erstes tabellenblatt nach einem eingegebenen stichwort durchsucht und das entsprechende dann auf dem dritten blatt wiedergibt.
Sub SortierteNachTabelle3Kopieren()
Dim Suchbegriff As String
Worksheets("Tabelle3").Range("A9:I" & Range("I65536").End(xlUp).Row).ClearContents
Suchbegriff = InputBox("Nach welchem Kriterium soll sortiert werden?", "Frage", "wineworld")
Application.ScreenUpdating = False
Worksheets("Tabelle1").Activate
Rows("6:6").Select
If Worksheets("Tabelle1").AutoFilterMode Then
Selection.AutoFilter Field:=25, Criteria1:=Suchbegriff
Else
Selection.AutoFilter
Selection.AutoFilter Field:=25, Criteria1:=Suchbegriff
End If
Range(Range("D7:L7"), Range("D7").End(xlDown)).Copy Worksheets("Tabelle3").Range("A9")
With Worksheets("Tabelle3").Range("A9:I" & Range("I65536").End(xlUp).Row).Font
.Name = "Verdana"
.Size = 10
.Bold = False
End With
Worksheets("Tabelle3").Range("B1") = Suchbegriff
Selection.AutoFilter
Application.ScreenUpdating = True
End Sub
da man dies aber im moment über makros aktivieren muss, ist das ja nicht sonderlich benutzerfreundlich. kann man vielleicht auf dem blatt tabelle 3 z.b. in feld E3 einen button oder sowas hinmachen, bei dem sich durch draufklicken ein eingabefenster öffnet. dort kann man ja dann das suchwort eingeben. muss man dafür den code komplett neu schreiben oder kann man das vielleicht da einfach irgendwie einbinden?
mfg
sven
Anzeige
