Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo Maninweb,
hat mir keine Ruhe gelassen dein Vorschlag
Hab´s gerade probiert. Klappt "fast" so wie ich mir das vorstelle. Super, und schon einmal vielen, vielen Dank dafür:-)

Allerdings habe ich noch drei Problemchen für die "perfekte" Lösung.
1: wie schaffe ich eine Vorlage mit z.B. 30 Tabellenblätter in der nicht die Tabellenblätter bereits bezeichnet sind. Aktuell setzt sich nur das 1. Tabellenblatt mit den einzulesenden Namen von Tabelle 1(G8) auf -0- zurück wenn die Zelle G8 nicht beschrieben ist. Alle folgenden Blätter bleiben auf den zuletzt eingelesenen Namen stehen, auch wenn G8 in diesen Tabellenblättern keinen Wert mehr beinhaltet.

2: Kann ich denn Tabellenblätter von dieser Funktion ausschließen? Z.B. das 1. Tabellenblatt mit der einzufügenden Namensliste für die Einlesefunktion in
die anderen Blätter weil dort Zelle G8 anderweitig benutzt wird?

3: Gibt es eine Funktion, das nicht erst mit dem Öffnen des Tabellenblattes die Tabelle aus der Zelle G8 umbenannt wird. Am schönsten wäre es, wenn mit dem Einlesen der Namen z.B. vom Tabellenblatt 1 "alle" anderen G8 programmierten Tabellenblätter sich direkt umbenennen ohne das das Blatt vorher geöffnet werden muss. Dann kann ich über den Tabellenblattnamen die richtige Tabelle suchen ohne si einzeln öffnen zu müssen.

Ich hoffe, das meine Wünsche nicht unverschämt sind. Aber du hast mit der tollen VBA von dir bei mir Begehrlichkeiten geweckt .
Ich bin dir auch schon jetzt sehr dankbar für die tolle Unterstützung.

So, jetzt geh ich aber Bubu machen....

Grüße
Chrisfrisbee
 

Hallo Maninweb,
danke dafür. Leider funzt das bei mir nicht. Ich habe alles aus "diese Abeitsmappe" im VBA-Projekt Explorer gelöscht und den o.g. Code einkopiert (allerdings auf Word kopiert und mit einem Stick an meinem Notebook ins Excel über Kopieren / Einfügen übernommen). Klappt denn das bei dir??
Vielleicht stimmt auch von meiner Routine etwas nicht:-(
Übrigens betrifft es bei mir die Zellen G8 aus jedem Tabellenblatt. Habe dafür alle A1 umgeschrieben. Funzt aber auch nicht.
Hast du vielleicht eine Idee woran es liegen kann??
Wäre dir unendlich dankbar wenn ich die Funktion zu laufen kriege

Mit der Korrektur leider auch nicht....

Grüße
Chrisfrisbee

Hallo erst einmal von einem Neuling und Grüße an das Forum.

Ich knabbere schon seit längerem an einem Problem in Excel 2016, und hoffe nun, das Ihr mir helfen könnt.
Ich schildere Euch mein selbst versuchtes "halbgelöstes" Problem.
Also, ich möchte nachstehende aus dem Internet gefischte Lösung so umwandeln, das sämtliche Tabellenblätter die betreffende Zelle je Tabellenblatt (hier A1) z.B. als Namen übernehmen. Mit nachstehener VBA-Programmierung in das Modul "diese Arbeitsmappe" funktioniert das auch. Aber...
Wenn diese Zellen (A1) jedoch Ihren Namen über eine Formel aus einem anderen Tabellenblatt beziehen, ändert sich der Namen des Tabellenblattes nicht mehr. Das klappt bisher nur bei direkten händischen Eintrag in der Zelle.

Programcode in Modul "diese Arbeitsmappe" kopiert:
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
                                 ByVal Target As Range)
'Quelle: Message-ID: <abx9roo6fzfk$.gwmxk0omvrvl.dlg@40tude.net>
   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


Wäre wirklich schön, wenn Ihr mir helfen könnt.
Denkt bitte jedoch daran, das ich eigentlich wenig Ahnung von Excel habe:-)

Ich freue mich auf Eure Antworten

Grüße
Chrisfrisbee