Thema Datum  Von Nutzer Rating
Antwort
29.10.2019 13:08:24 Kaang
NotSolved
Blau Tabellenblatt hinzufügen und benennen
 29.10.2019 20:49:24 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
29.10.2019 20:49:24		 Views:
670		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblatt hinzufügen und benennen

Hallo Kaang,

Das Makro gehört z.b. in ein Standardmodul (z.B. Modul1)

Sub SheetsEinfügen()

  Set Namen = Range("B1", Cells(1, Columns.Count).End(xlToLeft))
  
  For Each c In Namen
    If SheetExists(c.Value) = False Then
      Set sh = Sheets.Add(After:=Sheets(Sheets.Count))
      sh.Name = c.Value
    End If
  Next c
  
End Sub
Function SheetExists(Index) As Boolean
  On Error Resume Next
  SheetExists = Sheets(Index).Name <> ""
End Function

 

Falls du auch über die Spalten deine Blätter umbenennen willst, gehört das folgende Makro das Modul das deinem ersten Tabellenblatt entspricht. z.B. Tabelle1:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Rows(1)) Is Nothing Then
    If SheetExists(Target.Column) Then
      If SheetExists(Target.Value) Then
        MsgBox "Blattname existiert bereits!", vbExclamation
      Else
        Sheets(Target.Column).Name = Target.Value
      End If
    End If
  End If
End Sub

Voraussetzung ist natürlich, dass das Blatt aus Spalte 2 auch an zweiter Stelle steht.

Gruß Mr. K.

 

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
29.10.2019 13:08:24 Kaang
NotSolved
Blau Tabellenblatt hinzufügen und benennen
 29.10.2019 20:49:24 xlKing
NotSolved