Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro in andere Datei aufrufen

makro in andere Datei aufrufen
21.03.2009 21:44:25
Alex
Hi
Ich rufe mit dem Code das makro2 in einer anderen Datei auf.
Wie kann ich es erreichen, daß wenn das Makro "makro2" nicht existiert eine Meldung kommt und die Prozedur abgebrochen wird und wenn das Makro vorhanden ist, die erste Datei geschlossen wird, aber die aufgerufene Datei weiter läuft.

Private Sub CommandButton1_Click()
Dim Datei2 As Variant
Datei2 = Application.Dialogs(xlDialogOpen).Show
If Datei2 = False Then Exit Sub
Datei2 = ActiveWorkbook.Name
Application.Run (Datei2 & "!makro2")
End Sub


Für Eure hilfe danke ich
Alex

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro in andere Datei aufrufen
21.03.2009 22:14:44
Tino
Hallo,
versuche es mal so.
Option Explicit

Private Sub CommandButton1_Click()
Dim Datei2 As String

Datei2 = Application.Dialogs(xlDialogOpen).Show
If Datei2 = CStr(False) Then Exit Sub

Datei2 = "'" & ActiveWorkbook.Name & "'" & "!makro2"

On Error Resume Next
 Application.Run Datei2

If Err.Number = 0 Then
 ThisWorkbook.Close False 'schließen ohne speichern, sonst True 
Else
 MsgBox "Fehler: " & Err.Number & Chr(13) & Chr(13) & Err.Description
End If

End Sub


Gruß Tino

Anzeige
AW: makro in andere Datei aufrufen
21.03.2009 22:38:30
Alex
Hi Tino
Der Code läuft perfekt mit einer kleinen Einschränkung. Falls das Makro nicht da ist läuft es super. Falls das Makro da ist, wird die andere Datei geöffnet und bis dahin auch alles super. Verschiebt man die geöffnete Datei ist im Hintergrund noch die alte offen. Habe den Code auf true gesetzt.
Könnte es sein, daß die aufgerufene Datei gleich mit einer Userform startet und Application.visible=false steht?
Gruß
Alex
nein dies liegt daran,...
21.03.2009 22:52:43
Tino
Hallo,
...dass dieses schließen erst nach Abarbeitung des aufgerufenen Makros ausgeführt wird,
weil dann erst Codeablauf zu dieser Stelle zurückkommt.
Lösung siehe anderer Beitrag.
Gruß Tino
Anzeige
oder mit einem Trick
21.03.2009 22:39:41
Tino
Hallo,
um wirklich dass Makro erst nach dem schließen der Datei zu starten,
müssen wir uns einen Trick einfallen lassen.
Übergeben wir beim Run einige Argumente die es nicht gibt,
gibt es dieses Makro bekommen wir die Fehlernummer 450.
Dies bedeutet, Makro ist vorhanden aber die Anzahl der Argumente ist falsch.
Nun starten wir dieses Makro über die OnTime Funktion,
damit diese Datei erstmal geschlossen werden kann.
Private Sub CommandButton1_Click()
Dim Datei2 As String

'On Error Resume Next 
Datei2 = Application.Dialogs(xlDialogOpen).Show
If Datei2 = CStr(False) Then Exit Sub

Datei2 = "'" & ActiveWorkbook.Name & "'" & "!makro1"

On Error Resume Next
 Application.Run Datei2, "Test_Test", "Test_Test", "Test_Test"

If Err.Number = 450 Then
 Application.OnTime Now + TimeSerial(0, 0, 1), Datei2
 ThisWorkbook.Close False 'schließen ohne speichern, sonst True 
Else
 MsgBox "Fehler: " & Err.Number & Chr(13) & Chr(13) & Err.Description
End If

End Sub


Gruß Tino

Anzeige
AW: oder mit einem Trick
21.03.2009 22:55:27
Alex
Hi Tino
Das klappt ja wunderbar.
Ein kleiner Trick und schon sieht es wirklich Toll aus.
Nochmals vielen Dank Tino
Gruß
Alex
AW: @Tino
22.03.2009 12:13:18
Alex
Hi Tino
Eine kleine Frage. Ist es möglich die aufgerufene Datei (also der Name der Datei) in einem Label aufzeigen zu lassen?

Private Sub CommandButton1_Click()
Dim Datei2 As String
'On Error Resume Next
Datei2 = Application.Dialogs(xlDialogOpen).Show
If Datei2 = CStr(False) Then Exit Sub
Datei2 = "'" & ActiveWorkbook.Name & "'" & "!Makro2"
On Error Resume Next
Application.Run Datei2, "Test_Test", "Test_Test", "Test_Test"
If Err.Number = 450 Then
Application.OnTime Now + TimeSerial(0, 0, 1), Datei2
ThisWorkbook.Close False 'schließen ohne speichern, sonst True
Else
MsgBox "Fehler: " & Err.Number & Chr(13) & Chr(13) & Err.Description
End If
End Sub


Gruß
Alex

Anzeige
AW: @Tino
22.03.2009 12:21:18
Tino
Hallo,
wenn Du mir sagst wie Du das meinst, kann ich Dir bestimmt helfen.
Wo befindet sich das Label?
Wo sitzt das Label, in der Datei wo aufgerufen wird?
Dafür gibt es das Workbook_Open Ereignis.
In der Datei die, die andere öffnet?
Macht in meinen Augen wenig Sinn, diese wird ja geschlossen und somit brauche ich auch kein Label.
Gruß Tino
AW: @Tino
22.03.2009 12:32:04
Alex
Hi Tino
Das Label ist in der Datei wo geschlossen wird.
Ich weiss, daß die Datei geschlossen wird, aber es dauert doch gute 20 Sekunden bis die andere geöffnet wird. Bis dahin wäre es cool wenn die aufgerufene Datei angezeigt wird. Es eine kleine Spielerei.
Gruß
Alex
Anzeige
AW: @Tino
22.03.2009 13:01:22
Tino
Hallo,
dann sollten wir einen anderen Dialog dafür nutzen um die Datei zu öffnen.
Für das Label habe ich Dir zwei Versionen eingebaut,
einmal für ActiveX.- u. einmal für Formular.- Steuerelement, was Du nicht benötigst einfach löschen.
Den Tabellennamen wo sich dieses Label befindet, musst Du auch noch anpassen.
Private Sub CommandButton1_Click()
Dim Datei2 As String, strDateiName As String
Dim olOb As Shape

Set olOb = Tabelle1.Shapes("Bezeichnung 1")
'On Error Resume Next 
Datei2 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
If Datei2 = CStr(False) Then Exit Sub

strDateiName = Right$(Datei2, Len(Datei2) - InStrRev(Datei2, "\"))

With ThisWorkbook.Sheets("Tabelle1") 'Tabellenname anpassen 
 'Label ActiveX- Steuerelemente 
 .Label1.Caption = strDateiName
 'für Label aus Formular- Steuerelemente 
 .Shapes("Bezeichnung 1").DrawingObject.Caption = strDateiName
End With

Workbooks.Open Datei2

Datei2 = "'" & strDateiName & "'" & "!makro2"

On Error Resume Next
 Application.Run Datei2, "Test_Test", "Test_Test", "Test_Test"

If Err.Number = 450 Then
 Application.OnTime Now + TimeSerial(0, 0, 1), Datei2
 ThisWorkbook.Close False 'schließen ohne speichern, sonst True 
Else
 MsgBox "Fehler: " & Err.Number & Chr(13) & Chr(13) & Err.Description
End If

End Sub


Gruß Tino

Anzeige
die ersten zwei Zeilen...
22.03.2009 13:03:45
Tino
Hallo,
brauchen wir nicht, waren nur für einen Test eingebaut.
Private Sub CommandButton1_Click()
Dim Datei2 As String, strDateiName As String

'On Error Resume Next 
Datei2 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
If Datei2 = CStr(False) Then Exit Sub

strDateiName = Right$(Datei2, Len(Datei2) - InStrRev(Datei2, "\"))

With ThisWorkbook.Sheets("Tabelle1") 'Tabellenname anpassen 
 'Label ActiveX- Steuerelemente 
 .Label1.Caption = strDateiName
 'für Label aus Formular- Steuerelemente 
 .Shapes("Bezeichnung 1").DrawingObject.Caption = strDateiName
End With

Workbooks.Open Datei2

Datei2 = "'" & strDateiName & "'" & "!makro2"

On Error Resume Next
 Application.Run Datei2, "Test_Test", "Test_Test", "Test_Test"

If Err.Number = 450 Then
 Application.OnTime Now + TimeSerial(0, 0, 1), Datei2
 ThisWorkbook.Close False 'schließen ohne speichern, sonst True 
Else
 MsgBox "Fehler: " & Err.Number & Chr(13) & Chr(13) & Err.Description
End If

End Sub


Gruß Tino

Anzeige
AW: die ersten zwei Zeilen...
22.03.2009 13:26:25
Alex
Hi Tino
Komme nicht so klar mit dem neuen Code.
Warum wird die Tabelle1 angesteuert? Das Label1 befindet sich in der Userform.
Gruß
Alex
AW: die ersten zwei Zeilen...
22.03.2009 13:38:17
Tino
Hallo,
wenn dieses in einer Userform steht, muss man dies auch dort ansprechen.
Mach aus den Zeilen.
With ThisWorkbook.Sheets("Tabelle1") 'Tabellenname anpassen
'Label ActiveX- Steuerelemente
.Label1.Caption = strDateiName
'für Label aus Formular- Steuerelemente
.Shapes("Bezeichnung 1").DrawingObject.Caption = strDateiName
End With
diese
UserForm1.Label1.Caption = strDateiName
Userform1 = der Name Deiner Userform.
Gruß Tino
Anzeige
AW: Es klappt bestens
22.03.2009 15:14:02
Alex
Hi Tino
Es klappt wunderbar.
Danke Tino
Gruß
Alex

313 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton Label

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
1
3
4
3
3
7
4
4
17
3
3
2
4
2
6
5
4
2
3
1
2
4
4
2
3