Thema Datum  Von Nutzer Rating
Antwort
12.03.2014 15:05:00 Stefanie
NotSolved
Blau Abfrage über Inputbox mit mehreren Eingabemöglichkeiten
 12.03.2014 17:58:59 frau
*****
Solved
13.03.2014 08:13:01 Stefanie
NotSolved

Ansicht des Beitrags:
Von:
frau		 Datum:
12.03.2014 17:58:59		 Views:
1544		 Rating:
     
Antwort:
 Nein
Thema:
Abfrage über Inputbox mit mehreren Eingabemöglichkeiten

Liebe Stefanie,

schlicht & ergreifend :

Option Explicit

Sub myAutoFilter()
Dim myRange As Range
Dim myString As String
Dim myArray
'
  'On Error GoTo errorhandler
  
  Rem Abfrage
  myString = InputBox("einen oder mehrere Begriffe" & Chr(13) & _
    "(Leerzeichen getrennt)", _
    "Auswahl Autofilter Spalte 6")
  
  Rem Plausi
  If Len(myString) = 0 Then GoTo errorhandler
  
  Rem AutoFilter versorgen
  myArray = Split(myString)
  Set myRange = ActiveSheet.UsedRange
  
  Rem auf geht´s
  Selection.AutoFilter
  ActiveSheet.Range(myRange.Address).AutoFilter Field:=6, _
    Criteria1:=myArray, _
    Operator:=xlFilterValues
  
  Rem fertig
On Error GoTo 0
Exit Sub

errorhandler:
MsgBox "keine gültige Angabe"
On Error GoTo 0
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.03.2014 15:05:00 Stefanie
NotSolved
Blau Abfrage über Inputbox mit mehreren Eingabemöglichkeiten
 12.03.2014 17:58:59 frau
*****
Solved
13.03.2014 08:13:01 Stefanie
NotSolved