Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zwei offene Worksheets eine Beenden Userform öffne

zwei offene Worksheets eine Beenden Userform öffne
28.10.2016 14:16:45
Peteer
Hallo Excelspezialisten,
ich habe folgendes Problem:
Es sind zwei Dateien geöffnet z. B. Datei1 und Datei2.
Aus Datei1 soll ein Wechsel in Datei2 erfolgen dabei in Datei2 Userform geöffnet werden und Datei1 beendet werden.
Den Wechsel von Datei1 auf Datei2 und das Beenden von Datei1 ist geklärt und funktioniert einwandfrei. Wo mein Problem noch besteht das Öffnen der Userform.
Habt Ihr eine Lösung für mich?
Besten Dank
Gruss Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwei offene Worksheets eine Beenden Userform
28.10.2016 14:48:32
Michael
Hallo Peter!
Entweder legst Du in Mappe2 eine Sub-Prozedur an, welche lediglich die Userform aufruft, und rufst aus der Mappe1 per Application.Run die Sub auf, oder Du legst in Mappe1 einen Verweis auf Mappe2 an.
Schöne Zusammenfassung bspw. hier: http://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_winother/how-do-you-open-userform-in-another-workbook/e97b2c06-2a79-4cef-89bc-4f67b0f3c03a
LG
Michael
Anzeige
AW: zwei offene Worksheets eine Beenden Userform
28.10.2016 15:20:18
Peteer
Hallo Michael,
funktioniert leider nicht. Eigentlich auch verständlich. Wenn ich für Datei2 die Userform öffne, wird nachfolgend keine weitere Anweisung mehr durchgeführt - erst wenn Userform geschlossen wird wird Datei1 geschlossen. Umgekehrt, wenn Datei1 geschlossen ist wird Userform in Datei2 nicht geöffnet.
Gruss Peter
Natürlich funktioniert das...
28.10.2016 15:40:06
Michael
Peter!
In Mappe2 (die Mappe mit der UF, die aufgerufen wird):
Und folgende Sub in einem allgemeinen Modul:
Sub ZeigSie()
UserForm1.Show
End Sub
Die Userform darf NICHT modal sein!
In Mappe1 (die Mappe aus der Mappe2 sowie die UF aufgerufen wird):
Sub DieAndereMappe()
Const USERFORM_RUF As String = "!ZeigSie" ' "!" beachten
Dim RufendeMappe As Workbook: Set RufendeMappe = ThisWorkbook
Dim GerufeneMappe As Workbook
Set GerufeneMappe = Workbooks.Open("DeinPfad\Mappe2.xlsm")
Application.Run ActiveWorkbook.Name & USERFORM_RUF
RufendeMappe.Close False
End Sub
LG und schönes Wochenende
Michael
Anzeige
AW: Natürlich funktioniert das...
28.10.2016 15:54:04
Peteer
Hallo Michael,
besten Dank für Deine Hilfe - funktioniert einwandfrei.
Wäre nicht von selbst darauf gekommen.
Wünsche Dir ein schönes Wochenende.
Gruss
Peter
Super! Manchmal braucht's eben einen Stups ;-)!owT
28.10.2016 16:11:48
Michael

77 Forumthreads zu ähnlichen Themen

For each shape in Selection
Atikar

Hallo Leute,
ich würde gerne alle Namen der ausgewählten Shapes auslesen, leider bekomm ich das nicht hin, und im Archiv hab ich auch nichts gefunden.
Sollte so ähnlich aussehen:
For Each sShape in Selection
msgbox sShape.name
next sShape
leider funktioniert das nicht
25.09.2008 10:28:00
Thread-ID: 1012252
3 Beiträge
Anzeige
for each zelle in sheet problem
thomas

Hallo Leute
Ich hab mal eine allgemeine Frage.
Und zwar möchte ich jede Zelle im sheet nach einem string durchsuchen.
Die Suche klappt auch soweit.
Nur möchte ich keine 2 For next schleifen verwenden sondern:
ZeileEnde=Sheets("Tabelle1").Cells(row.count,1).End(xlUp).row
...
08.04.2009 10:06:35
Thread-ID: 1067622
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige
For Each OptionButton in Userform (oderFrame) mgl?
t4z

Hi Leute,
ist sowas wie im Betreff möglich?
Vielen Dank, der t4z
26.08.2009 12:14:58
Thread-ID: 1098716
8 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
In For each rng weiterspringen
Gregor

Hallo zusammen
Ich suche nach einer Zellfarbe. Die Zeile dieser Zelle wird dann bis zu 15 Zeilen erweitert und kopiert (eruiert erste und letzte zu kopierende Zeile). Anschliessend muss die Suche dieser Zellfarbe nach der kopierten Zeile weiterfahren, ansonsten werden die gleichen Zeilen me...
18.05.2010 11:00:44
Thread-ID: 1157557
4 Beiträge
"For Each" für Datein ???
lupo

Hallo Forum.
Ich möchte in einem Ordner die Namen der Datein durchsuchen und vergleichen. Ist der vergleich ungleich, so sollen die Datein gelöscht werden.
Den Vergleich führe ich über die LIKE - Funktion durch.
Damit alle Datein verglichen werden, wollte ich FOR EACH einsetzen.
...
19.10.2010 02:25:08
Thread-ID: 1182974
4 Beiträge
Dim WS as Worksheet oder as Object
Peter

Liebes Forum
Variablen für Worksheets werden teils als Worksheet und teils als Object dimensioniert.
Worin liegt der Unterschried?
Gruss, Peter
15.02.2011 21:49:40
Thread-ID: 1201041
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
2
2
7
4
3
3
2
4
4
5
3
7
2
6
3
8
8
5
6
1
17
5