Thema Datum  Von Nutzer Rating
Antwort
04.01.2017 20:23:15 Kyra
NotSolved
Blau Suchfunktion mit zwei Anweisungen in Pivot
 05.01.2017 19:27:58 Onur
NotSolved
07.01.2017 16:56:23 Kyra
NotSolved

Ansicht des Beitrags:
Von:
Onur		 Datum:
05.01.2017 19:27:58		 Views:
552		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion mit zwei Anweisungen in Pivot

Sub SucheEintraginSpalteA()
 
    Dim strSuchbegriff As String
    Dim rngBereich As Range
    Dim rngTreffer As Range
    strSuchbegriff = InputBox("Bitte Suchbegriff eingeben")
    If Len(strSuchbegriff) > o Then
        If Trim(strSuchbegriff) <> "" Then
            Set rngBereich = Tabelle3.Range(Cells(1, 1), Cells(15000, 1))
            rngBereich.Interior.ColorIndex = xlColorIndexNone
            Set rngTreffer = rngBereich.Find _
            (what:=strSuchbegriff, lookat:=xlPart)
            If Not rngTreffer Is Nothing Then
                rngTreffer.Interior.ColorIndex = 4
                rngTreffer.Cells.Select
            Else
                MsgBox "Der Suchbegriff " & strSuchbegriff & " konnte nicht gefunden werden!"
            End If
        End If
    End If
    
 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
04.01.2017 20:23:15 Kyra
NotSolved
Blau Suchfunktion mit zwei Anweisungen in Pivot
 05.01.2017 19:27:58 Onur
NotSolved
07.01.2017 16:56:23 Kyra
NotSolved