Thema Datum  Von Nutzer Rating
Antwort
23.04.2018 10:29:50 Clemens
NotSolved
23.04.2018 11:01:45 Werner
NotSolved
23.04.2018 13:34:12 Gast70848
NotSolved
23.04.2018 14:31:11 Werner
NotSolved
Rot Code beschleunigen
 23.04.2018 15:13:41 Clemens
NotSolved
23.04.2018 15:17:16 Clemens
NotSolved
24.04.2018 12:06:08 Werner
NotSolved
24.04.2018 16:11:34 Clemens
Solved

Ansicht des Beitrags:
Von:
Clemens		 Datum:
23.04.2018 15:13:41		 Views:
771		 Rating:
     
Antwort:
  Ja
Thema:
Code beschleunigen

Hallo Werner, 

Vielen vielen Dank der Code funktioniert super! Ich habe nur

 If .AutoFilterMode Then .AutoFilterMode = False

durch

ActiveSheet.ShowAllData

ersetzt, da er sonst die Filter beibehalten hatte und die Daten ausgeblendet waren. Eine Frage noch wenn ich die durchsuchte Spalte auf A ändern möchte (zB. Field := 1) filtert er zwar richtig gibt mir aber in der Zeile 

'Prüfen ob gefilterte Daten vorhaden sind
        If WorksheetFunction.Subtotal(3, .Range("A3:A" & loZeile)) = 1 Then
           
Bin mir aber nicht ganz sicher wie ich das anpassen könnte. 

Schöne Grüße 
Clemens

 

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
23.04.2018 10:29:50 Clemens
NotSolved
23.04.2018 11:01:45 Werner
NotSolved
23.04.2018 13:34:12 Gast70848
NotSolved
23.04.2018 14:31:11 Werner
NotSolved
Rot Code beschleunigen
 23.04.2018 15:13:41 Clemens
NotSolved
23.04.2018 15:17:16 Clemens
NotSolved
24.04.2018 12:06:08 Werner
NotSolved
24.04.2018 16:11:34 Clemens
Solved