MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.10.2018, 10:33   #1
CLG
MOF User
MOF User
Standard Excel 2013 - Tabellenstyl über Button ändern

Hallo Forum

Wie kann ich im folgenden Code die eindeutige Bezeichnung «Tabelle4» durch eine Variable ersetzten?
Denn ich möchte über einen Button den Style einer Tabelle ändern, doch die betreffende Tabelle hat immer wieder einen andere Bezeichnung.

Code:

ActiveSheet.ListObjects("Tabelle4").TableStyle = "TableStyleMedium9"
Schon mal vielen Dank für eure Hilfe
CLG

__________________

________

«People not only don't know what's happening to them, they don't even know that they don't know.»
Noam Chomsky
CLG ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 10:49   #2
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

Code:

Sub Dingsdibumsdi()

Dim lo As ListObject
With Sheets("DeinBlatt")
    Set lo = .ListObjects("Tabelle4")
    ListObjects(lo).TableStyle = "TableStyleMedium9"
End With

End Sub

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 11:27   #3
CLG
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Berni

Sofern ich deine Zeilen richtig interpretiere, wird das ListObjects immer als Tabelle 4 angesprochen/aufgerufen/definiert. Doch das ist leider nicht möglich, denn in meinem Excel-File hat es einige mehr und die haben dann alle eine abweichenden Namen, Tabelle5, Tabelle6, Tabelle12, ect. Zudem werden neu hinzugefügte Tabellen automatisch mit einem Namen versehen, welcher noch nicht vorhanden ist.
Hier ist eben genau mein Problem: Wie kann ich es umgehen, dass ich immer einen Tabellennamen im Code aufrufen muss?

Leider funktioniert mein Beispiel nicht aber etwa so könnte es aufgebaut sein:

Suche den Tabellennammen (ListObjects.Name) des aktiven Tabellenblattes.
Aktiviere diese Tabelle (Ativate.ListObjects) und ändere den (TableStyle) zu "TableStyleMedium9"

Beste Grüsse und vielen Dank
CLG

__________________

________

«People not only don't know what's happening to them, they don't even know that they don't know.»
Noam Chomsky
CLG ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 11:30   #4
Beverly
MOF Guru
MOF Guru
Standard

Hi,

du kannst die Tabelle mit dem Index ansprechen:

Code:

    ActiveSheet.ListObjects(1).TableStyle = "TableStyleMedium9"
Das wäre dann die 1. Tabelle.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 12:17   #5
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

@CLG: Das war aber nicht deine Frage. Du hast gefragt, wie du die Tabelle mittels einer Variable ansprechen kannst. Das habe ich dir gezeigt.
Die Lösung hast du ja jetzt durch Beverly.

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.10.2018, 13:48   #6
CLG
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Karin und Berni

Vielen Dank für eure Hilfe!

@Berni: Du hast natürlich recht, ich habe die Frage zu wenig genau gestellt. Das war wieder einmal ein klasse Beispiel des Sender-Empfänger-Modells. Trotzdem recht herzlichen Dank!

@Karin: Das ist genau das was ich gesucht hatte!

Beste Grüsse
CLG

__________________

________

«People not only don't know what's happening to them, they don't even know that they don't know.»
Noam Chomsky
CLG ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:30 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.