Thema Datum  Von Nutzer Rating
Antwort
11.10.2016 15:09:04 Waldemar
NotSolved
Blau Tabellenname automatisch aus Zelle auslesen
 11.10.2016 15:55:56 Nobody
Solved

Ansicht des Beitrags:
Von:
Nobody		 Datum:
11.10.2016 15:55:56		 Views:
565		 Rating:
     
Antwort:
 Nein
Thema:
Tabellenname automatisch aus Zelle auslesen

Hallo Waldemar,

erst nach dreimaligem Lesen habe ich verstanden das du offenbar mehrere Tabellen umbenennen willst.  Kein Problem, das geht per Makro sehr einfach.

Ich empfehel aber dringend mit 2 Makros zu arbeiten!!  Sich zuerst in einer leeren Tabelle oder in der vorhanden alle Tabellen aufzulisten, weil man evtl. nicht alle aendern will, und dann per "Ja" Abfrage genau die Tabellen aendern, die man auch wirklich aendern will.  In meinem Makro habe ich mir alle Tabellen in Spalte B aufgelistet, in Spalte C steht "Ja", (oder leer), und in Spalte D der neue Tabellen Name.  So sollte es problemlos funktionieren.

mfg  Nobody

 

'11.10.2016   Nobody   vba Forum


Sub Worksheet_auflisten()
Zahl = ThisWorkbook.Worksheets.Count
For j = 1 To Zahl
   Cells(j + 1, 2) = Worksheets(j).Name
Next j
End Sub


Sub Worksheet_umbenennen()
Zahl = ThisWorkbook.Worksheets.Count
For j = 1 To Zahl
  If Cells(j + 1, 3) = "Ja" Then
     Worksheets(j).Name = Cells(j + 1, 4).Value
  End If
Next j
End Sub

 

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
11.10.2016 15:09:04 Waldemar
NotSolved
Blau Tabellenname automatisch aus Zelle auslesen
 11.10.2016 15:55:56 Nobody
Solved