Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SheetName auslesen

SheetName auslesen
24.06.2018 13:06:16
Peter
Hallo zusammen
Im linken Fenster vom Makroeditor sehe ich die einzelnen Sheets, zB Tabelle12 (Test)
mit dem folgenden Code
sCod = CodeName 'ActiveSheet.CodeName 'Tabelle12
ThisWorkbook.VBProject.VBComponents(sCod).Activate
sTab = ActiveSheet.Name 'Test
erhalte ich den Tabellennamen "Test"
Wie kann ich den Namen "Test" bekommen, ohne dass ich das Tabellenblatt aktiviere?
Danke für Eure Hilfe
Pepi

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SheetName auslesen
24.06.2018 13:08:58
Hajo_Zi
Hallo Pepi,
ActiveSheet.name' das soll ja nicht sein.
oder
Variable="Test"

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
MsgBox Tabelle12.Name ... owT
24.06.2018 13:12:32
Matthias
Sheetname auslesen
24.06.2018 13:43:25
Peter
Hallo zusammen
Offenbar habe ich mich unklar ausgedrückt...
Ich habe ein Makro TabellenName() auf dem Tabellenblatt, dort wo unter anderen auch 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ist
Sub TabellenName()
dim sCod$, sTab$
sCod = CodeName 'zB Tabelle12
ThisWorkbook.VBProject.VBComponents(sCod).Activate
sTab = ActiveSheet.Name 'zB Test
End Sub
Das Problem ist, dass wenn ich im linken Fenster ein Projekt "Tabelle12 (Test)" aktiviere, bleibt die aktivierte Tabelle immer noch die gleiche (zB Tabelle11)
Nun möchte ich den 2. Schritt elegant umgehen (Tabellen aktivieren geht bekanntlich langsam und führt zu einem flattern)
mfg Pepi
Anzeige
AW: SheetName auslesen
24.06.2018 13:40:56
Peter
Hallo zusammen
Offenbar habe ich mich unklar ausgedrückt...
Ich habe ein Makro TabellenName() auf dem Tabellenblatt, dort wo unter anderen auch 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ist
Sub TabellenName()
dim sCod$, sTab$
sCod = CodeName 'zB Tabelle12
ThisWorkbook.VBProject.VBComponents(sCod).Activate
sTab = ActiveSheet.Name 'zB Test
End Sub

Das Problem ist, dass wenn ich im linken Fenster ein Projekt "Tabelle12 (Test)" aktiviere, bleibt die aktivierte Tabelle immer noch die gleiche (zB Tabelle11)
Nun möchte ich den 2. Schritt elegant umgehen (Tabellen aktivieren geht bekanntlich langsam und führt zu einem flattern)
mfg Pepi
Anzeige
AW: SheetName auslesen
24.06.2018 14:58:09
Sepp
Hallo Peter,
beschreibe erst mal, was du erreichen willst.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: SheetName auslesen
24.06.2018 16:04:12
Peter
Hallo Sepp
Ich brauche einfach den Blattnamen
sTab = Tabelle1.name gibt mit den Blattnamen
da ich aber nicht weiss ob es Tabelle1, 2,oder x ist muss ich über CodenName gehen
sCod = CodeName gibt "Tabelle1"
leider funktioniert aber
sTab = CodeName.name nicht - Fehler - wie ist denn hier die Synthax
vielen Dank Pepi
AW: SheetName auslesen
24.06.2018 16:30:24
Sepp
Hallo Peter,
wenn du den Codenamen weißt, wo liegt dann das Problem?
 ABCDEF
1Gruß Sepp
2
3

Anzeige
und wenn du...
24.06.2018 16:49:10
Sepp
... statt "Ich brauche einfach den Blattnamen" beschreiben würdest, was du im Endeffekt erreichen willst, dann gibt es bestimmt eine Lösung.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
SheetName auslesen
24.06.2018 18:59:10
Peter
Hallo Sepp
Ich habe hier eine Beispielsdatei mit dem Makro "to_Makros_Kopieren()" hochgeladen.
Dieses Makro kopiert die Makros des aktuellen Moduls auf die anderen Module.
Ich habe Arbeitsmappen mit vielen Tabellen, die alle die gleichen Makros haben. Wenn etwas ändert kann ich damit schnell wieder alle angleichen. Es ist mir aber schon passiert, dass das falsche Modul als Vorlage benutzt wurde.
https://www.herber.de/bbs/user/122280.xlsm
Das Makro funktioniert einwandfrei (habe es in diesem Forum gefunden und auf meine Bedürfnisse angepasst)
Was mich stört ist dieser sheets(xy).activate
Meine Frage wäre nochmals wie kann ich auf Grund vom CodeNamen "Tabelle2" den Blattnamen "Blatt_2" auslesen.
lg Pepi
Anzeige
AW: SheetName auslesen
24.06.2018 19:17:02
Sepp
Hallo Peter,
Private Sub to_Makros_Kopieren() 'Su180618, Su171206, Su170225, 150503 HerberForum * Makro_kopieren * kopiert alle Makros vom aktuellen TabellenBlatt in die anderen TabellenBlätter 
  Dim objCodeModule As Object, objSh As Worksheet
   
  If MsgBox(Me.Name & " * " & Me.CodeName & vbLf & "ist dies die richtige Tabelle?", vbQuestion + vbYesNo) = vbYes Then
    Set objCodeModule = ThisWorkbook.VBProject.VBComponents(Me.CodeName).CodeModule
    For Each objSh In ThisWorkbook.Worksheets
      If Not objSh Is Me Then
        With ThisWorkbook.VBProject.VBComponents(objSh.CodeName).CodeModule
          .DeleteLines 1, .CountOfLines
          .InsertLines 1, objCodeModule.Lines(1, objCodeModule.CountOfLines)
        End With
      End If
    Next
  End If
  
  Set objCodeModule = Nothing
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Aber warum stellst du die Event-Codes nicht in "DieseArbeitsmappe" dann stehen sie in jeder Tabelle zur Verfügung und du kannst sie zentral Verwalten.
Die Anderen Codes in ein allgemeines Modul und die Kopiererei hat ein Ende.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: SheetName auslesen
24.06.2018 19:45:02
Peter
Lieber Sepp
Ganz herzlichen Dank für Deine Anpassungen
Es funktioniert alles bestens.
Dass man die Events-Codes unter "Diese Arbeitsmappe" kopieren kann für alle Sheets wusste ich gar nicht (smile) - ein ganz neuer Ansatz. Es gibt zwar ein paar Ausnahmen, wo sie nicht funktionieren dürfen oder anders, doch werde ich mich in naher Zukunft damit beschäftigen.
lg Peter

79 Forumthreads zu ähnlichen Themen

Arbeitsblattnamen in Zelle auslesen
Lemmi

Hallo zusammen,
ich möchte ein Arbeitsblatt auf das vorher gehende Arbeitsblatt referenzieren!
Meine Datei ist folgendermaßen Strukturiert:
Arbeitsblatt 1 : Tabelle A
Arbeitsblatt 2 : Tabelle A+ Adressen
Arbeitsblatt 3 : Tabelle B
Arbeitsblatt 4 : Tabelle B+ Adressen
30.08.2008 07:38:00
Thread-ID: 1006010
6 Beiträge
Anzeige
Namen von 5 Arbeitsblättern auslesen
5

Hallo,
ich möchte mir gern alle Arbeitsblattnamen auslesen die ein ExcelSheet hat. Sagen wir mal bis zu einer Menge von max. 5 Arbeitsblättern.
Die Funktion um den Namen auszulesen heißt "Application.Caller.Parent.Name" und funktioniert auch gut. Somit ließt das Macro nun den Namen des...
02.02.2009 15:45:31
Thread-ID: 1046291
3 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Anzeige
ActiveWorkbook.ThemeColorSchem Name auslesen
Sonnenpeter

Hallo,
ich versuche gerade (erfolglos) den Namen des aktuellen Colorschemas
auszulesen.
Sub Test() tester = ActiveWorkbook.ThemeColorScheme.Name 'tester = ActiveWorkbook.Theme End Sub Ist der Name des aktuellen Colorschemas überhaupt auslesbar?
Wenn ja wie? ;-)
Gruß SP
17.10.2009 16:10:12
Thread-ID: 1110320
4 Beiträge
Arbeitsblattname von Arbeitsblatt auslesen
Arbeitsblatt

Hallo zusammen,
ich habe folgendes Problem: In meinem ersten Arbeitsblatt ist eine Namensliste enthalten. Alle weiteren Arbeitsblätter in meiner Arbeitsmappe sind nach den jeweiligen Namen benannt. Gibt es eine Möglichkeit automatisch die Namen der Arbeitsblätter aus der Namensliste auszule...
21.10.2009 09:33:41
Thread-ID: 1110979
8 Beiträge
Arbeitsblattname von Arbeitsblatt auslesen Teil II
Arbeitsblatt

Hallo zusammen,
ich hatte heute morgen eine Anfrage zum Thema "Arbeitsblattname von Arbeitsblatt auslesen" gestellt. Mir wurde wurnderbar geholfen. Nun habe ich aber noch eine Frage:
Ist es auch möglich den Inhalt der Arbeitsblätter die erstellt werden vorzugeben? Habe eine Art Vorlagen...
21.10.2009 14:15:44
Thread-ID: 1111067
5 Beiträge
VBA - ZellNAME auslesen
Stephan

Guten morgen und einen angenehmen Montag euch allen ;)
Sagen wir ich habe für die Zelle "A1" den Namen "Hallo" definiert.
Sag ich VBA jetzt: MsgBox Thisworkbook.ActiveSheet.Range("A1").Name
Dann kommt anstatt "Hallo" "A1" raus
was mach ich falsch?
28.01.2013 10:34:03
Thread-ID: 1296291
2 Beiträge
VBA: Mehrere Workbooks nach dateinamen prüfen
david.a2k

Hallo,
wie kann ich mit VBA bei allen geöffneten Workbooks prüfen ob sich ein bestimtmes Wort im Dateinamen befindet und dieses Workbook dann löschen?
Danke und Gruß
11.07.2014 11:45:43
Thread-ID: 1369888
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
2
3
4
3
7
4
1
4
6
6
8
3
11
2
6
6
2
6
4
4
5
1
2