Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shape ausblenden

Forumthread: Shape ausblenden

Shape ausblenden
14.09.2021 09:31:22
Michael
Hallo zusammen, und ich Danke schon einmal vorab.
Situation:
Arbeitsblatt geöffnet mit sichtbaren Shape.
Shape mit Makro hinterlegt (UserForm Modal laden und 10 weitere Arbeitsblätter über GetObjects)
Das Shape auf dem Arbeitsblatt soll beim Laden der Userform ausgeblendet werden.
Dies passiert aber erst nachdem die 10 Arbeitsblätter geladen wurden.
Gibt es eine Moglichkeit des Arbeitsblattes wie bei der UserForm über Repaint oder einen anderen Weg ?
Freundliche Grüße besten Dank
Michael
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ...und der Code bleibt Dein Geheimis? (owT)
14.09.2021 10:52:34
EtoPHG

AW: ...und der Code bleibt Dein Geheimis? (owT)
14.09.2021 12:19:42
Michael
Hallo, natürlich nicht.
Das "Shape" heißt "Rechteck 1" und ruft das Makro "Laden" im "Modul1" auf.

Sub Laden()
ActiveSheet.Shapes.Range(Array("Rechteck 1")).Visible = False
UserForm1.Show vbModal
GetObject (ThisWorkbook.Path & "\Mappe2.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe3.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe4.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe5.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe6.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe7.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe8.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe9.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe10.xlsx")
End Sub
Dies ist ein reiner Testcode.
Shape wird nicht sofort ausgeblendet, sondern erst nachdem die Routine komplett abgearbeitet wurde.
Das Shape sollte, wenn möglich, vor dem laden der "UserForm1" ausgeblendet werden.
Danke nochmals für Eure Mühen und ich entschuldige mich wenn die Aufgabenstellung nicht eindeutig war.
Machmal ist man einfach zu tief in der Materie und übersieht für andere ein Verständnisproblem.
Gruß
Michael
Anzeige
AW: ...und der Code bleibt Dein Geheimis? (owT)
14.09.2021 12:41:39
Nepumuk
Hallo Michael,
teste mal:

Sub Laden()
ActiveSheet.Shapes.Range(Array("Rechteck 1")).Visible = False
DoEvents
UserForm1.Show vbModal
.
Gruß
Nepumuk
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige