Thema Datum  Von Nutzer Rating
Antwort
18.03.2017 18:22:19 Michael
NotSolved
Blau Vereinfachung - VBA Code
 18.03.2017 19:39:49 Gast51884
NotSolved
18.03.2017 22:19:42 Michael
NotSolved
18.03.2017 22:51:15 Michael
NotSolved
22.03.2017 11:04:07 Michael
NotSolved

Ansicht des Beitrags:
Von:
Gast51884		 Datum:
18.03.2017 19:39:49		 Views:
649		 Rating:
     
Antwort:
  Ja
Thema:
Vereinfachung - VBA Code

Einfach in 'ner Schleife abarbeiten. Kannst Indizes (For var = 1 to n ... Next) oder die Namen der Blätter verwenden.

z.B. so:

Option Explicit

Sub rueber()
  
  'Dim ...
  Dim wksQ As Worksheet
  Dim wksZ As Worksheet
  Dim vntaWks As Variant
  Dim vntWks As Variant
  Dim lngLastRow As Long
  Dim i As Long
  
  vntaWks = Array("Tabelle1", "Tabelle3", "Tabelle4", "Tabelle5")
  
  For Each vntWks In vntaWks
    
    Set wksZ = Worksheets(vntWks)
    lngLastRow = wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Row
    
    For i = 1 To lngLastRow
      '...
    Next
    
  Next
  
  '...
  
End Sub

 

Gruß

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
18.03.2017 18:22:19 Michael
NotSolved
Blau Vereinfachung - VBA Code
 18.03.2017 19:39:49 Gast51884
NotSolved
18.03.2017 22:19:42 Michael
NotSolved
18.03.2017 22:51:15 Michael
NotSolved
22.03.2017 11:04:07 Michael
NotSolved