Thema Datum  Von Nutzer Rating
Antwort
Rot Autofilter-Split
09.07.2021 09:24:12 markus
NotSolved
09.07.2021 13:26:20 Gast54129
NotSolved

Ansicht des Beitrags:
Von:
markus
Datum:
09.07.2021 09:24:12
Views:
66
Rating: Antwort:
  Ja
Thema:
Autofilter-Split

Hallo cracks,

in Spalte A sind "Namen" und in Spalte C "Freunde" ich habe versucht über die Messagebox einen Namen eingeben zu lassen bei der dann die Tabelle gefiltert wird (Spalte A).

Ziel ist es das ganze Umfeld der jeweiligen Person anzuzeigen.

Also wenn "Günther" die Freunde "Anna [ALT+ENTR] Thomas" hat dann soll die GANZE Tabelle nach allen 3 gefiltert worden sein aber nur indem man Günther eingegeben hat

Hoffe ihr könnt mir helfen 

Dim z As Long
Dim Inhalt() As String
Dim abc As String

Dim Txt As String
Txt = InputBox("Eingabe:")
If Txt = "" Then Exit Sub

Worksheets("Tabelle1").Range("A1").AutoFilter , Field:=1, Criteria1:=Txt


For z = 2 To Cells.SpecialCells(xlCellTypeLastCell).Row
    If Rows(z).Hidden = False Then
         abc = Cells(z, 3).Value
         Inhalt = Split(abc)
            For i = 0 To UBound(Inhalt)
         
            Cells(1, i + 5).Value = Inhalt(i) 'dient zur bestätigung'


            Next i
            Exit For
    End If
Next z
Worksheets("Tabelle1").Range("A1").AutoFilter , Field:=1, Criteria1:=Txt, Operator:=xlOr, Criteria2:=Inhalt, Operator:=xlFilterValues




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
Rot Autofilter-Split
09.07.2021 09:24:12 markus
NotSolved
09.07.2021 13:26:20 Gast54129
NotSolved