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

Ansicht des Beitrags:
Von:
Brumms		 Datum:
22.04.2012 11:32:49		 Views:
1762		 Rating:
     
Antwort:
  Ja
Thema:
automatisch Tabellenblätter erstellen

Vielleicht hilft Dir das ??? :

 

Public sName As String

Sub SpalteA_durchlaufen()
For a = 1 To 254
' mehr Blätter kannst Du nicht anlegen
sName = ActiveWorkbook.Sheets(1).Cells(a, 1).Value

If sName <> "" Then Call NeuesBlatt
Next a

End Sub

 


Private Sub NeuesBlatt()
   Dim wks As Worksheet
   On Error Resume Next
   Set wks = Worksheets(sName)
   If Err > 0 Or wks Is Nothing Then
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = sName
   Else
   
     ' MsgBox "Blatt besteht schon!"
   End If
   On Error GoTo 0
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
20.04.2012 19:11:37 Tim
NotSolved
21.04.2012 14:25:28 Holger
NotSolved
Rot automatisch Tabellenblätter erstellen
 22.04.2012 11:32:49 Brumms
NotSolved
22.04.2012 11:43:16 Brumms
NotSolved