Blattname über Tabelleneintrag ändern?

Bild

Betrifft: Blattname über Tabelleneintrag ändern?
von: Peter
Geschrieben am: 17.11.2003 23:10:23

Hallo Exel und VBA User,
Habe eine Tabelle mit Namen, jeder Name hat dazu ein eigenes Blatt.
Wie kann ich, wenn sich der Name ändert bewirken das sich das dazugehörige Blatt auch ändert?
Beispiel: Tabelle1 steht in A1 Meier; A2 Müller; Tabelle2 ist jetzt Meier; Tabelle3 ist Müller.

Danke!!

Gruss Peter

Bild


Betrifft: AW: Blattname über Tabelleneintrag ändern?
von: Nepumuk
Geschrieben am: 17.11.2003 23:22:11

Hallo Peter,
Rechtsklick auf den Tabellenreiter von Tabelle1 - Code anzeigen. Dann folgendes Programm in das sich öffnende Editorfenster, Fenster schließen fertig.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intCount As Integer
    On Error Resume Next
    If Target.Column = 1 And Target.Row < Worksheets.Count Then Worksheets(Target.Row + 1).Name = Target
    Do Until Err.Number = 0
        intCount = intCount + 1
        Worksheets(Target.Row + 1).Name = Target & " (" & CStr(intCount) & ")"
        Err.Clear
    Loop
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: AW: Blattname über Tabelleneintrag ändern?
von: Nepumuk
Geschrieben am: 17.11.2003 23:34:40

Hallo Peter,
kleiner Fehler, tausche die Position dieser beiden Zeilen:

Worksheets(Target.Row + 1).Name = Target & " (" & CStr(intCount) & ")"
Err.Clear

Gruß
Nepumuk


Bild


Betrifft: AW: DANKE Nepumuk!!
von: Peter
Geschrieben am: 17.11.2003 23:42:22

Hallo Nepumuk,
Danke für deine Hilfe!!
Habe ich das richtig verstanden?
Err.Clear soll also über
Worksheets(Target.Row + 1).Name = Target & " (" & CStr(intCount) & ")"


Danke, werde das morgen sofort ausprobieren!

Gruss Peter


Bild

Beiträge aus den Excel-Beispielen zum Thema " Blattname über Tabelleneintrag ändern?"