| |
| Design Eines Nanosatelliten Für Ein Biologisches Experiment Mit Hilfe Maßgeschneiderter Herstellungsverfahren, ein Anwenderbericht
|
Autor
|
Thema: Zelle mit VBA-Makro neu berechnen (2018 mal gelesen)
|
GüSo Mitglied Elektrotechniker
Beiträge: 141 Registriert: 22.01.2009 Windows 10, Office2019
|
erstellt am: 24. Jun. 2015 14:44 <-- editieren / zitieren --> Unities abgeben:
Ich habe eine VBA-Funktion, die ich in Arbeitsblättern in beliebige Zellen einfügen kann. Diese sieht so aus: -------------------------------------------------------------------------- Public Function Sheetname() As String 'schreibt den Namen des Sheets in die markierte Zelle 'Dim zk As String Sheetname = Excel.ActiveSheet.Name End Function -------------------------------------------------- Diese VBA-Funktion funktioniert auch. Das Problem besteht darin, daß nachdem ich den Namen des Sheets geändert habe, in der betreffenden Zelle immer noch der alte Name steht. Die Funktion wird also beim ändern des Sheetnamen nicht erneut aufgerufen, sprich aktualisiert. Wie kann ich nun erzwingen, daß diese Funktion erneut durchlaufen wird? MfG Günter ------------------ MfG Günter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 24. Jun. 2015 15:06 <-- editieren / zitieren --> Unities abgeben: Nur für GüSo
Moin, MUSS es denn überhaupt ein Makro sein? http://www.excelformeln.de/formeln.html?welcher=95
Code: =TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31)
Ansonsten mußt Du Dir die zur Verfügung stehenden Ereignisse (Calculate, Activate usw.) anschauen, ob sich da etwas passendes für Dich aufdrängt. Macht aber die Mappe u.U. langsam, wenn ständig etwas lauert... ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001
|
erstellt am: 24. Jun. 2015 15:36 <-- editieren / zitieren --> Unities abgeben: Nur für GüSo
Servus, ich würde die Formel verwenden... Makro in die Tabelle, nur dein Makro funktioniert nicht...
Code: Private Sub Worksheet_Change() 'schreibt den Namen des Sheets in die markierte Zelle 'Dim zk As String Sheetname = Excel.ActiveSheet.Name End Sub
------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Wünsche: Mulitmodel, Halo4Texte, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF, Fehler zwischen Normal MAP Civil beheben... Schöne Grüsse aus der Steiermark Bernd P. [Diese Nachricht wurde von Bernd P am 24. Jun. 2015 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2799 Registriert: 02.05.2006 Office 2010; Office365 Visual Basic
|
erstellt am: 24. Jun. 2015 16:18 <-- editieren / zitieren --> Unities abgeben: Nur für GüSo
|
GüSo Mitglied Elektrotechniker
Beiträge: 141 Registriert: 22.01.2009 Windows 10, Office2019
|
erstellt am: 25. Jun. 2015 16:13 <-- editieren / zitieren --> Unities abgeben:
Ja, die Lösung mit der Formel funktioniert einwandfrei. Damit ist erstmal die Zielstellung erreicht. Warum ich das mit VBA angehen wollte ist der Tatsache gestundet, daß ich mit den komplexen Excel-Formeln bisher wenig Erfahrung gesammelt habe. Außerdem werden die ja sehr schnell unübersichtlich durch die vielen Verschachtelungen. Der Tipp war gut und hat mir schnell weitergeholfen. Danke Günter
------------------ MfG Günter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2799 Registriert: 02.05.2006 Office 2010; Office365 Visual Basic
|
erstellt am: 25. Jun. 2015 17:31 <-- editieren / zitieren --> Unities abgeben: Nur für GüSo
Meine Frage bezog sich auf den Beitrag von Bernd, da ein kurzer Test des Code nur Fehlermeldungen hervor brachte. Die Formel ist nett und für Deine Zwecke völlig ausreichend. Aber bis ich sowas mal brauche werde ich wahrscheinlich wieder die Suchmaschine anschmeißen müssen ... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |