Thema Datum  Von Nutzer Rating
Antwort
27.04.2019 15:12:07 Kai Schultz
*****
NotSolved
Blau Sverweis Spaltenindex verschieben bei weiteren Tabellenblättern
 27.04.2019 15:54:21 Gast10569
*****
Solved
27.04.2019 16:45:48 Gast63945
NotSolved
27.04.2019 16:59:45 Gast42894
NotSolved
27.04.2019 20:11:51 Gast58281
NotSolved

Ansicht des Beitrags:
Von:
Gast10569		 Datum:
27.04.2019 15:54:21		 Views:
511		 Rating:
     
Antwort:
 Nein
Thema:
Sverweis Spaltenindex verschieben bei weiteren Tabellenblättern

Hab mal bissl was angepasst und etwas mehr kommentiert als normalerweise üblich.

Option Explicit

Sub Blatt_Kopieren_Name_Neu()
  
  Dim wksCat As Excel.Worksheet
  Dim wksSrc As Excel.Worksheet
  Dim wksNew As Excel.Worksheet
  Dim n As Long
  
  Set wksCat = Worksheets("Categories")
  
  'zu kopierende 'Vorlage'
  Set wksSrc = Worksheets("Sample Sheet")
  
  'Zeilenindex des ersten Blattnamens setzen
  n = 1
  'Endlosschleife solange Blattname vorhanden
  ' (! hier wird jedoch nicht auf dessen Gültigkeit geprüft !)
  Do While wksCat.Cells(n, "A").Text <> ""
    'Kopie von wksSrc erstellen und hinter Blatt mit Index 2 setzen
    wksSrc.Copy After:=Sheets(2)
    'die eben erstellte Kopie referenzieren
    Set wksNew = Sheets(2).Next
    'Name der Kopie ändern
    wksNew.Name = wksCat.Cells(n, "A").Text
    
    'Formel setzen
    wksNew.Range("B3").Formula = "=VLOOKUP(A3,Toolbox!$1:$1048576," & 2 + n & ",FALSE)"
    
    n = n + 1 'Zeilenindex für neuen Blattnamen um eins erhöhen
  Loop
  
End Sub

Es macht hier mitunter mehr Sinn eine Endlosschleife zu nehmen, anstatt einer Zählschleife. Vorallen wenn man nicht genau sagen kann wieviele Namen vorhanden sind. Bei einer Zählschleife müsste man die genaue Anzahl vorher ermitteln.

 

Grüße

 

PS: Formeln sollte man in Englisch setzen. Die alternative wäre sie lokal anzugeben, z.B. deutsch. Dann würde es aber auf einem System das auf eine andere Sprache eingestellt ist nicht funktionieren - Englisch funktioniert jedoch immer!

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
27.04.2019 15:12:07 Kai Schultz
*****
NotSolved
Blau Sverweis Spaltenindex verschieben bei weiteren Tabellenblättern
 27.04.2019 15:54:21 Gast10569
*****
Solved
27.04.2019 16:45:48 Gast63945
NotSolved
27.04.2019 16:59:45 Gast42894
NotSolved
27.04.2019 20:11:51 Gast58281
NotSolved