Thema Datum  Von Nutzer Rating
Antwort
09.04.2019 22:23:59 All
NotSolved
Blau "for"loop effizienter darstellen
 10.04.2019 18:12:34 Gast58213
NotSolved

Ansicht des Beitrags:
Von:
Gast58213		 Datum:
10.04.2019 18:12:34		 Views:
423		 Rating:
     
Antwort:
  Ja
Thema:
"for"loop effizienter darstellen		 
Sub Test()
'die Zuordnung zu den Arbeitsmappen und Arbeitsblattnamen kanns'te selbst treffen
'
Dim rngS As Range          'Suchbereich "ABC"
Dim rngHit As Range
Dim arrT() As Variant      'ditto "ws"
Dim x As Long, y As Long

   Application.ScreenUpdating = False
   Set rngS = Tabelle2.UsedRange.Columns(1).Resize(, 3)
   arrT = Tabelle1.Range("A2:C2000").Value
   For x = LBound(arrT, 1) To UBound(arrT, 1)
      For y = LBound(arrT, 2) To UBound(arrT, 2)
         Set rngHit = rngS.Find(arrT(x, y), , xlValues)
         If Not rngHit Is Nothing Then
            If rngHit.Column = y Then
               Tabelle2.Rows(x).Columns("E:AB").Copy Tabelle1.Range("G" & x)
               Exit For
            End If
         End If
      Next y
   Next x
   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.04.2019 22:23:59 All
NotSolved
Blau "for"loop effizienter darstellen
 10.04.2019 18:12:34 Gast58213
NotSolved