Kleine Sektflaschen Hochzeit
17. 12. 2020, 09:13 # 1 Neuer Benutzer Registrierung: 20. 11. 2018 Karma: VBA - Objektvariable oder With-Blockvariable nicht festgelegt Hi Leute, Ich versuche mich gerade dabei gewisse Variablen global zur Verfügung zu stellen und diese bei Workbook_Open() mit bestimmten Werten zu versehen. Meine Arbeitsmappe beinhaltet 7 relevante Arbeitsblätter. Im "Modul 1" habe ich folgenden Code stehen: Code: Option Explicit Public ws1 As Worksheet Public ws2 As Worksheet Public ws3 As Worksheet Public ws4 As Worksheet Public ws5 As Worksheet Public ws6 As Worksheet Public ws7 As Worksheet Somit sollten ja die Variablem ws1 bis ws7 global zur Verfügung stehen. With-Blockvariable nicht festgelegt (Fehler 91). Beim öffnen der Exceldatei sollen nun die global definierten Variablen befüllt werden - Dazu habe ich unter "ThisWorkbook" folgendes eingetragen: Private Sub Workbook_Open() ws1 = Worksheets("Name1") ws2 = Worksheets("Name2") ws3 = Worksheets("Name3") ws4 = Worksheets("Name4") ws5 = Worksheets("Name5") ws6 = Worksheets("Name6") ws7 = Worksheets("Name7") End Sub Mein Ziel ist es, dass ich gewisse Variablen einmal beim Öffnen definiere (mit definierten Werten) und diese dann in allen Arbeitsblättern zur Verfüg stehen.
Activate With Sheets("Tabelle1") For i = 1 to 100 for j = 1 to 100 cell(i, j)(i, j) next j next i end With Re: With-Blockvariable nicht festgelegt (Fehler 91) Geschrieben am: 06. 2003 - 19:23:58 Hallo Andreas Walter, ich habe dieses Konstruckt aus der Hilfe heraugeholt, weil ich Probleme mit der Fehlermeldung beim "Find" hatte. Dort wurde das so gezeigt, um die Fehlermeldung beim nicht finden zu erhalten und darauf reagieren zu können. With block variable nicht festgelegt en. Ich weiß sonst nicht wie ich das machen soll. Danke für einen weiteren Tipp. mfg Alex Excel-Beispiele zum Thema "With-Blockvariable nicht festgelegt (Fehler 91)" Anzahl der über ParamArray festgelegten Parameter Markieren von festgelegten Bereichen Fehlermeldung #NV ausblenden Fehlermeldung abfangen Fehler in Workbook_Open-Prozedur abfangen Fehlermeldung #DIV/0! verhindern Fehler entfernen Fehlermeldung abfangen und in sequentielle Datei schreiben Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers VBA-Fehlermeldungen auflisten Alle Zellen mit der #BEZUG!
Ich hätte es auch folgendes probiert mit dem gleichen negativen Ergebnis: Modul 1: Sub SetVars() ws7 = Worksheets("Name6") ThisWorkbook: SetVars Wieso meint er, dass die Variable ws1 nicht definiert ist? Habt besten Dank für Eure Hilfe Geändert von web4free (17. 2020 um 09:20 Uhr). Grund: Namen geändert bei Worksheets 17. 2020, 09:20 # 2 MOF Guru Registrierung: 17. 05. 2008 Worksheets("Name1") ist falsch. Fehlt da nicht Set Set WS1 = Worksheets("Name1") __________________ Signatur in jedem Beitrag Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus. Betriebssystem: Windows 10 - 64 Bit, Office 2021 - 32 Bit. Objektvariable oder With- Blockvariable nicht festgelegt — CHIP-Forum. Fragen werden im Forum beantwortet, nicht per PN. 17. 2020, 09:21 # 3 Threadstarter Ich bin ja so doof... Hab den Fehler gerade gefunden. Set ws1 = Worksheets("Name1") Set ws2 = Worksheets("Name2") Set ws3 = Worksheets("Name3") Set ws4 = Worksheets("Name4") Set ws5 = Worksheets("Name5") Set ws6 = Worksheets("Name6") Set ws7 = Worksheets("Name7") Ein Set war die Lösung... Hat sich somit erledigt.
2328@tkmsftngp02...... > ich möchte nur auf eine dbase-datei zugreifen, positionieren un deren felder > auslesen. > mehr nicht....
-Fehlermeldung auswählen Zahlenstring mit Formel auslesen und Fehlermeldung verhindern Fehler abfangen, wenn eine Arbeitsmappe nicht geöffnet ist Alle #DIV/0! -Fehlerwerte in Tabelle durch 0 ersetzen Makro mit Excape-Taste ohne Fehlermeldung beenden Eingabe von Fehlerwerten verhindern Rechtschreibprüfung und Fehlerausgabe Zellen mit Formelfehlern leeren Fehlermeldung, wenn nicht der erwartete Wert eingetragen wird