Hallo zusammen. Habe einen Code für InputBox im Netz gefunden, und versuche mich gerade damit. Folgenden Code versuche ich ans Laufen zu bringen.
Wenn ich ihn starte, wird die Inputbox geöffnet, ich gebe einen Namen vor. Wenn ich dann starte, kommt der Fehler: Laufzeitfehler 9. Index außerhalb des gültigen Bereichs. Ich führe den Code direkt von der Tabelle aus an, wo müsste ich Korrekturen einbauen, damit der Code ausgeführt wird? Gruß Josef
Wenn ich ihn starte, wird die Inputbox geöffnet, ich gebe einen Namen vor. Wenn ich dann starte, kommt der Fehler: Laufzeitfehler 9. Index außerhalb des gültigen Bereichs. Ich führe den Code direkt von der Tabelle aus an, wo müsste ich Korrekturen einbauen, damit der Code ausgeführt wird? Gruß Josef
Visual Basic:
Sub FilterColumn2ByText()
Dim searchText As String
' Prompt user for input
searchText = InputBox("Enter text to filter Column 2", "Filter Data")
' Check if user entered a value
If searchText <> "" Then
' Apply filter to Column 2 based on user input
With ActiveSheet.ListObjects(1).ListColumns(2).Range
.AutoFilter Field:=2, Criteria1:="*" & searchText & "*", Operator:=xlFilterValues
End With
Else
' If user didn't enter any text, remove existing filter
ActiveSheet.ListObjects(1).AutoFilter.ShowAllData
End If
End Sub
Zuletzt bearbeitet von einem Moderator: