Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblattnamen aktualisieren
 07.02.2017 13:30:52 Horst
NotSolved
08.02.2017 22:24:14 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Horst		 Datum:
07.02.2017 13:30:52		 Views:
927		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblattnamen aktualisieren

Hallo,

ich habe folgenden Code, mit dem ich Tabellenblätter erzeuge:

Sub BlaetterErstellen()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim Bool As Boolean
Dim WSName As String

    Set Bereich = Range("A14:A" & Range("A65536").End(xlUp).Row)
    For Each Zelle In Bereich
        WSName = Zelle.Value
        For i = 2 To Worksheets.Count
            If Worksheets(i).Name = WSName Then
                Bool = True
                Exit For
            Else
                Bool = False
            End If
        Next i
        If Bool = False Then
                Sheets("Basis").Visible = True
                Sheets("Basis").Copy after:=Sheets(Sheets.Count)
                Sheets("Basis (2)").Activate
                ActiveSheet.Name = Zelle.Value
                Worksheets("Basis").Visible = False
        End If
    Next Zelle
End Sub

 

Nun möchte ich aber, dass wenn sich in der Datentabelle (von der aus das Makro ausgeführt wird) im Wertebereich eine Zelle ändert, der Name des erzeugten Tabellenblattes sich auch automatisch ändert. Dabei dürfen die Inhalte der "neuen" Blätter nicht verändert werden. Weiß da jemand Rat?

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
Rot Tabellenblattnamen aktualisieren
 07.02.2017 13:30:52 Horst
NotSolved
08.02.2017 22:24:14 BigBen
NotSolved