Thema Datum  Von Nutzer Rating
Antwort
28.05.2020 14:35:01 Chris
NotSolved
Blau Performancesteigerung möglich?
 28.05.2020 14:43:14 UweD
NotSolved
28.05.2020 17:55:39 Gast70419
NotSolved
29.05.2020 14:20:28 Chris
NotSolved
30.05.2020 07:40:35 RPP63
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
28.05.2020 14:43:14		 Views:
624		 Rating:
     
Antwort:
  Ja
Thema:
Performancesteigerung möglich?

Hallo

 

versuch es mal so:

 

Sub positionen_zaehlen()
    Dim a As Integer, letztezeile1 As Long, letztezeile3 As Long
 
    letztezeile1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
    letztezeile3 = Sheets(3).UsedRange.SpecialCells(xlCellTypeLastCell).Row
     
    Application.ScreenUpdating = False
     
    With Sheets(1).Cells(6, 8).Resize(letztezeile1 - 5, 1)
    
        .FormulaR1C1 = "=COUNTIF(Tabelle2!R2C2:R" & letztezeile3 & "C2,Tabelle1!RC[-7])"
        .Value = .Value
    
    End With
    
    Application.ScreenUpdating = True
     
End Sub

 

LG UweD

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
28.05.2020 14:35:01 Chris
NotSolved
Blau Performancesteigerung möglich?
 28.05.2020 14:43:14 UweD
NotSolved
28.05.2020 17:55:39 Gast70419
NotSolved
29.05.2020 14:20:28 Chris
NotSolved
30.05.2020 07:40:35 RPP63
NotSolved