Office: (Office 2019) 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:

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:



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!

 

Hi Bastler,

was ist System? Was ist wsE?

 

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

 

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?

 

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.

 

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.

 

Hi Bastler,

ich seh nur leeres Excel. Was muss ich tun, um die Datei bzw. den Code sehen zu können?

 

Moin Boris,
zwei Möglichkeiten: Alt+F11 oder F12 und Du siehst die USF, dann Klick auf das Logo unterhalb des Piepmatzes ;-)
Grüße

 

Hi Bastler,

genau das sehe ich eben NICHT.

 

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!

 

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

 

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!