Blatt Namen

[langa68]

Guten Tag,

Ich möchte den Blatt Namen (Registername) von einer Zelle abhängig machen.(z.B. Der Registername entspricht dem Inhalt von der Zelle A1)
Kann mir jemand helfen?

Besten Dank

[Winny]

Hi

als Formel oder in VBA? Was willst Du genau tun, beide Werte vergleichen?

[WillWissen]

Guten Tag,

Ich möchte den Blatt Namen (Registername) von einer Zelle abhängig machen.(z.B. Der Registername entspricht dem Inhalt von der Zelle A1)
Kann mir jemand helfen?

Besten Dank

Die Suchfunktion ergibt einen Treffer - schau mal.


Zudem hab' gerade mal etwas gegugelt ;) - hilft dir der Beitrag von Peter aus diesem Forum?

[langa68]

Hallo Willwissen,

Danke für die Antwort.
Ich werde es ausprobieren

[langa68]

Hi

als Formel oder in VBA? Was willst Du genau tun, beide Werte vergleichen?

Hallo Winny

Ich möchte zum Beispiel das ein Datum od. auch einen andren Wert der in der Zelle A1 eingegeben ist, automatisch als Tabellenname eingetragen wird.
Die Lösung währe als Formel wie auch als VBA  wünschenswert.

Gruss
langa68

[Winny]

Hi

so?

Code:

Sub tst()
   On Error Resume Next
   Worksheets(1).Name = Range("A1").Text
   On Error GoTo 0
End Sub

[langa68]

Hallo Winny

Danke für deine Antwort.
Ich habe den Test nicht durchführen können, ich weiß nicht wie mann diesen Code in die Tabelle bringt. (Bin einen Macro Anfänger.) Kannst du mir dies bezüglich auch helfen?
Der Code sollte beim öffnen der Tabelle starten und soll auch für mehrere Blätter funktionieren.
Danke

Gruss
langa68 

[WillWissen]

Hi langa,

der Code von Winny funktioniert nur im aktuellen Arbeitsblatt - er muss auch dort hinterlegt werden. Wenn das Makro für alle Tabellenblätter funktionieren soll, dann nimm mal diese Codes, die unser Peter vor längerer Zeit hier gepostet hat.

Private Sub Workbook_SheetChange(ByVal Sh As Object, _

                                 ByVal Target As Range)
'Quelle: Message-ID:
   If Target.Address(0, 0) = "A1" And Target.Value <> "" Then
      If Not SheetExists(Target.Value) Then
         Sh.Name = Target.Value
      Else
         Application.Undo
      End If
   End If
End Sub

Public Function SheetExists(strName As String) As Boolean
   On Error Resume Next
   SheetExists = Not Sheets(strName) Is Nothing
End Function

Du öffnest deine Datei und holst dir mit ALT-F11 den VBA-Editor her. In der linken Spalte siehst du deine Datei - dort klickst du auf "Diese Arbeitsmappe" und fügst den obigen Code (copy & paste) ein.

Sobald du, egal in welchem Arbeitsblatt, den Eintrag in der jeweiligen Zelle A1 veränderst, wird dieser Wert als Tabellenblattname übernommen.

Nachtrag:

Du musst deine Datei dann natürlich entweder mit der Endung .xlsm oder .xlsb abspeichern. Sonst sind deine Codes weg.

[Winny]

Hi

also mein Code sollte erst mal in ein allgemeines Modul damit sich der TE darüber klar werden kann ob es das überhaupt ist was er will. Erst dann kann man wohl 'nachbessern'. Ich jedenfalls habe nicht ganz genau verstanden was er eigentlich will und er hat ja die Fragen auch nicht beantwortet.

[langa68]

Hallo Winny,

Reg dich doch nicht so schnell auf.
Deine Antwort ist schon gut, ich habe dir doch nur fragen vollen wie ich diesen Code in meine Tabelle einfügen kann (bin ja Macro Anfänger)
Gruss
langa68