Office: (Office 2019) VBA Tabellen weg?!

Helfe beim Thema VBA Tabellen weg?! in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Moin allerseits, meine neueste Bastelei soll ohne sichtbare Tabellen bzw. XL-Anwendung, sondern nur mit einer Userform laufen. Kein Problem, indem man... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von d'r Bastler, 12. September 2022.

  1. d'r Bastler
    d'r Bastler hat Ahnung

    VBA Tabellen weg?!


    Moin allerseits,

    meine neueste Bastelei soll ohne sichtbare Tabellen bzw. XL-Anwendung, sondern nur mit einer Userform laufen. Kein Problem, indem man im WorkBook_Open
    Code:
    Userform1.Show
    Application.Visible = False
    einträgt. Für die endgültige Fassung ist das auch so gewollt.

    Nun wollte ich zu Testzwecken die eine Tabelle, die später als Datenspeicher/Historie dienen wird, mit einigen Testdaten füllen. Mein Testmakro läuft zwar ohne Fehler durch, ABER die Tabelle ist auch nach dem Deaktivieren der Application-Zeile bzw. der gegenteiligen Anweisung =True nicht erreich/sichtbar. Das sieht dann so aus:
    VBA Tabellen weg?! SCR_APP.jpg
    Code:
    Sub test()
    System
    wsE.Cells(1, 1) = Now
    End Sub
    
    Sub test2()
    System
    MsgBox wsE.Cells(1, 1)
    End Sub
    liefert eine leere msgbox. System löscht alte Tabellen und fügt u.A. die Tabelle wsE neu hinzu. Das funktioniert, wie der ProjektExplorer zeigt:
    VBA Tabellen weg?! SCR_PE.jpg


    Im Code steckt schon einige Arbeit, die ich natürlich notfalls ex/importieren kann. Aber ich wüsste dennoch gerne: Wie kann ich die Tabellen wieder reaktivieren? Es gibt keine weitere Application... im Code.

    Herzlichen Dank für jede Hilfe! und natürlich ebensolche Grüße!
     
    d'r Bastler, 12. September 2022
    #1
  2. {Boris} hat Ahnung
    Hi Bastler,

    was ist System? Was ist wsE?
     
  3. d'r Bastler
    d'r Bastler hat Ahnung
    Moin moin Boris,
    Code:
    Sub System()
    Dim ws As Worksheet
    
    Application.OnKey "{F12}", "System"
    
    Set wb = ThisWorkbook
    
    Application.DisplayAlerts = False
    For Each ws In wb.Sheets
        If ws.Name <> "Master" Then
            ws.Delete
        End If
    Next
    Application.DisplayAlerts = True
    
    Set wsA = wb.Sheets.Add: wsA.Name = ("Ausgabe")
    Set wsV = wb.Sheets.Add: wsV.Name = ("Verarbeitung")
    Set wsE = wb.Sheets.Add: wsE.Name = ("Eingabe")
    wsA.Visible = xlSheetVisible
    
    'usfMJ.Show
    
    End Sub
    Set ws... nach Deinem Vorschlag noch leicht optimiert ;-)
    wsA.Visible = ein Versuch die Tabelle wieder sichtbar zu machen ...
    Grüße
     
    Zuletzt bearbeitet: 12. September 2022
    d'r Bastler, 12. September 2022
    #3
  4. {Boris} hat Ahnung

    VBA Tabellen weg?!

    Hi Bastler,

    und wsE ist als Public deklariert?
    Kannst Du vielleicht mal ne total abgespeckte Datei hochladen - inkl. Code - an der man das Testen kann?
     
  5. d'r Bastler
    d'r Bastler hat Ahnung
    Yep wsE ist als Public deklariert.
    "ne total abgespeckte ..." Auwei. Ich versuch's mal, befürchte aber, dass dann das Problem nicht reproduzierbar ist. Gib mir 5 Minuten.
     
    d'r Bastler, 12. September 2022
    #5
  6. d'r Bastler
    d'r Bastler hat Ahnung
    Okay, mein Versuch Dir im Separée (Du weisst schon wo;-), habe dort übrigens den Sternenhimmel erschossen, die Danke aber gelassen...) die Mappe als PN zu schicken, dauert jetzt zu lange, daher also hier im Anhang. Is' schließlich DSGVO unerheblich.
     
    d'r Bastler, 12. September 2022
    #6
  7. {Boris} hat Ahnung
    Hi Bastler,

    ich seh nur leeres Excel. Was muss ich tun, um die Datei bzw. den Code sehen zu können?
     
  8. d'r Bastler
    d'r Bastler hat Ahnung

    VBA Tabellen weg?!

    Moin Boris,
    zwei Möglichkeiten: Alt+F11 oder F12 und Du siehst die USF, dann Klick auf das Logo unterhalb des Piepmatzes ;-)
    Grüße
     
    d'r Bastler, 13. September 2022
    #8
  9. {Boris} hat Ahnung
    Hi Bastler,

    genau das sehe ich eben NICHT.
     
    1 Person gefällt das.
  10. d'r Bastler
    d'r Bastler hat Ahnung
    Moin Boris,
    oooops, jetzt bin ich leicht irritiert. Ich habe die Mappe bereit gestellt, an der ich gerade weiter bastle. Im Workbook_Open gibt es einen Aufruf der Userform, die im genannten Logo den Zugang zum VBE ermöglicht. F12 ist über Application.Onkey in System (im Code oben auskommentiert) mit dem Aufruf belegt. und weiter ist natürlich Alt+F11 möglich und Alt+F8 als Zugang zu allen Makros.

    Schlägt da möglicherweise Deine Makro-Sicherheit zu? Aber das, denke ich, hättest Du sicher im Griff.

    Hier -nicht zur Strafe, sondern nur zur Übung- (für mich) also die Mappe noch einmal.

    Danke für Deine Neugier!
     
    d'r Bastler, 13. September 2022
    #10
  11. d'r Bastler
    d'r Bastler hat Ahnung
    Moin Boris,

    habe eben noch mal die erste Tabelle hier angeklickt und natürlich die Makro-Warnung erhalten. Aber nach der Bestätigung deaktivieren konnte ich über Alt-F11 direkt in den VBE wechseln.

    Was kann das bei Dir verhindern?

    Grüße
     
    d'r Bastler, 13. September 2022
    #11
  12. d'r Bastler
    d'r Bastler hat Ahnung
    Moin allerseits,
    auch wenn meine Frage (wie kann ich zerschossene Tabellen wieder sichtbar machen) leider keine Antwort fand, kann ich insofern Entwarnung geben, als dass ich den gesamten bisherigen Code exportiert und in eine neue Tabelle geholt habe.

    Jetzt habe ich auch meine Tabellen wieder (froi!)

    Schöne Grüße und besten Dank!
     
    d'r Bastler, 14. September 2022
    #12
Thema:

VBA Tabellen weg?!

Die Seite wird geladen...
  1. VBA Tabellen weg?! - Similar Threads - VBA Tabellen

  2. VBA Excel in mehrere teilen nach Kostenstelle

    in Microsoft Excel Hilfe
    VBA Excel in mehrere teilen nach Kostenstelle: Hallo liebe Office Community, ich bin mit VBA nicht so bewandert und habe folgenden "Auftrag"... Eine Excel Datei aus SAP soll aufgeteilt werden nach Kostenstelle. Sprich für jede Kostenstelle...
  3. Automatisch aktualisierende Tabelle? Hilfe!! :-)

    in Microsoft Excel Hilfe
    Automatisch aktualisierende Tabelle? Hilfe!! :-): Hallo zusammen, ich habe da ein kleines Excel-Problem und komme einfach nicht auf die Lösung. Ich habe 25 riesige Tabellen und möchte diese in einer Tabelle zusammen, wenn eine bestimmte...
  4. IF Formel in VBA für Pivot Table

    in Microsoft Excel Hilfe
    IF Formel in VBA für Pivot Table: Hallo zusammen, ich habe folgendes Problem beim Zusammenspiel von einer Pivot Table mit VBA: Meine auszuwertenden Daten (verschiedene Projekte) sind heterogen, sodass in manchen Fällen...
  5. VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen

    in Microsoft Excel Hilfe
    VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen: Hallo liebe Excel-Kommunity, nach ewigen Stunden des Suchens und Rumprobierens bin ich an dem Punkt angekommen an dem ich verzweifelt um eure Hilfe fragen muss. Da ich leider keinerlei...
  6. VBA Code Daten aus anderer Tabelle holen klappt nicht

    in Microsoft Excel Hilfe
    VBA Code Daten aus anderer Tabelle holen klappt nicht: Hallo Zusammen, Ich habe einen VBA Code, welcher mir automatisch Daten aus einer anderen geschlossenen Tabelle holt. Dieser funktioniert einwandfrei in einer schon länger genutzten Tabelle. Nun...
  7. Bestimmte Zeilen nach Bedingungen in andere Tabelle Verschieben

    in Microsoft Excel Hilfe
    Bestimmte Zeilen nach Bedingungen in andere Tabelle Verschieben: Hallo Zusammen, Ich habe mich für eine Statusliste unserer Personalthemen in Excel an das Thema VBA gewagt. Ich habe anfangs auch echt guten Fortschritt gemacht nun hänge ich aber seit mehreren...
  8. MSAccess - Feldinhalt in Formular aus anderer Tabelle befüllen (VBA)

    in Microsoft Access Hilfe
    MSAccess - Feldinhalt in Formular aus anderer Tabelle befüllen (VBA): Hallo und guten Tag allerseits, ich habe ein, für viele von Euch sicherlich einfach zu lösendes Problem. In meiner Tabelle literatur habe ich unter anderem die Felder Magazin, Kennung_Jahrgang,...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden