Thema Datum  Von Nutzer Rating
Antwort
09.09.2015 20:26:23 Soupy
NotSolved
Blau Excel Zellen einfügen beschleunigen
 09.09.2015 23:22:14 Gast28318
NotSolved

Ansicht des Beitrags:
Von:
Gast28318		 Datum:
09.09.2015 23:22:14		 Views:
1704		 Rating:
     
Antwort:
  Ja
Thema:
Excel Zellen einfügen beschleunigen		 
Sub TestIt()
Const TA As String = "A"
Const TB As String = "B"
Const ZW As Long = 2      ' or 20000
Dim rngFind As Range
Dim rngArea As Range
Dim rngPart As Range
Dim arrRw() As Long
Dim rw As Long
Dim x As Integer
'
Application.ScreenUpdating = False
With Columns(1)
   Set rngFind = .Find(TA)
   If Not rngFind Is Nothing Then
      Set rngArea = .ColumnDifferences(Comparison:=rngFind)
      For Each rngPart In rngArea.Areas
         If rngPart.Cells(1).Value = TB Then
            ReDim Preserve arrRw(x)
            arrRw(x) = rngPart.Cells(1).Row
            x = x + 1
         End If
      Next rngPart
   End If
   For x = UBound(arrRw) To LBound(arrRw) Step -1
      rw = .Cells(Rows.Count).End(xlUp).Row
      Set rngPart = Range(Rows(arrRw(x)), Rows(rw))
      rngPart.Copy Destination:=.Cells(arrRw(x) + ZW)
      Range(Rows(arrRw(x)), Rows(arrRw(x) + ZW - 1)).Clear
      'Test - remove next
      Range(Rows(arrRw(x)), Rows(arrRw(x) + ZW - 1)).Interior.Color = RGB(100, 100, 100)
   Next x
End With
Application.ScreenUpdating = True
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
09.09.2015 20:26:23 Soupy
NotSolved
Blau Excel Zellen einfügen beschleunigen
 09.09.2015 23:22:14 Gast28318
NotSolved