Thema Datum  Von Nutzer Rating
Antwort
20.04.2012 19:11:37 Tim
NotSolved
Blau automatisch Tabellenblätter erstellen
21.04.2012 14:25:28 Holger
NotSolved
22.04.2012 11:32:49 Brumms
NotSolved
22.04.2012 11:43:16 Brumms
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
21.04.2012 14:25:28
Views:
1695
Rating: Antwort:
  Ja
Thema:
automatisch Tabellenblätter erstellen

Füge einfach einer for-Next um das gesamte Makro ein, also anstatt

sName = ActiveWorkbook.Sheets(1).Range("A3")

setze

for i=1 to Cells(Rows.Count, 1).End(xlUp).Row
sName = ActiveWorkbook.Sheets(1).Range(cells(i,1))

und anstelle von

End sub

setzte

Next i
End Sub

Ich würde lieber die Worksheets-Auflistung nach dem Namen durchsuchen, als die Error-Funktion einzusetzen.

Gruß
Holger

 


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
20.04.2012 19:11:37 Tim
NotSolved
Blau automatisch Tabellenblätter erstellen
21.04.2012 14:25:28 Holger
NotSolved
22.04.2012 11:32:49 Brumms
NotSolved
22.04.2012 11:43:16 Brumms
NotSolved