Arbeitsmappen global referenzieren

Sub Makro1() Dim wksA As Worksheet, wksB As Worksheet, wksC As Worksheet Set wksA = Workbooks("Mappe1.xls").Worksheets("Tabelle1") Set wksB = Workbooks("Mappe2.xls").Worksheets("Tabelle1") Set wksC = Workbooks("Mappe3.xls").Worksheets("Tabelle1") '... gekürzt wksA.Activate ActiveWorkbook.Save wksB.Activate ActiveWorkbook.Save wksC.Activate ActiveWorkbook.Save '... gekürzt End Sub

Sub Makro2() Dim wksA As Worksheet, wksC As Worksheet, wksD As Worksheet Set wksA = Workbooks("Mappe1.xls").Worksheets("Tabelle1") Set wksC = Workbooks("Mappe2.xls").Worksheets("Tabelle1") Set wksD = Workbooks("Mappe3.xls").Worksheets("Tabelle1") '... gekürzt wksA.Activate ' irgendwas ausführen wksC.Activate ' irgendwas ausführen wksD.Activate ActiveWorkbook.Save '... gekürzt End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
wenn die zwei Makros in einem Modul sind, kannst Du die Deklarierung ganz
oben außerhalb der Makros mit Dim wksA As ... deklarieren.
Sind beide in unterschiedlichen Modulen, geht dies über Public wksA As ...
Aber Achtung,
1. die außerhalb Deklarierten Variablen werden nach Programmende nicht
zurückgesetzt dafür musst Du im Programm sorgen.
2. Eine Überprüfung ob Variable zugewiesen ist müsste dennoch durchgeführt werden
Hier ein Beispiel, ob dieses jetzt sinnvoll ist weiß ich nicht.
kommt als Code in Modul1

Option Explicit 
 
Dim wksA As Worksheet, wksB As Worksheet, wksC As Worksheet 
'' Oder auch 
'Public wksA As Worksheet, wksB As Worksheet, wksC As Worksheet 
 
Sub Makro1() 
Call Zuweisung 
'... gekürzt 
wksA.Activate 
ActiveWorkbook.Save 
wksB.Activate 
ActiveWorkbook.Save 
wksC.Activate 
ActiveWorkbook.Save 
'... gekürzt 
Call Makro2 
End Sub 
 
 
Sub Makro2() 
Call Zuweisung 
'... gekürzt 
wksA.Activate 
' irgendwas ausführen 
wksC.Activate 
' irgendwas ausführen 
wksD.Activate 
ActiveWorkbook.Save 
'... gekürzt 
Call ResetZuweisung 
End Sub 
 
Sub Zuweisung() 
If wksA Is Nothing Then _
    Set wksA = Workbooks("Mappe1.xls").Worksheets("Tabelle1") 
If wksB Is Nothing Then _
    Set wksB = Workbooks("Mappe2.xls").Worksheets("Tabelle1") 
If wksC Is Nothing Then _
    Set wksC = Workbooks("Mappe3.xls").Worksheets("Tabelle1") 
End Sub 
 
Sub ResetZuweisung() 
Set wksA = Nothing 
Set wksB = Nothing 
Set wksC = Nothing 
End Sub

Gruß Tino

With wksA.Columns(1) 'nicht ges. Inhalt vergleichen, nicht Groß-Kleinschreibweise beacheten Set c = .Find(wert, LookIn:=xlValues, LookAt:=xlPart, _ SearchDirection:=xlNext, MatchCase:=False) If Not c Is Nothing Then MsgBox c.Address(external:=True) 'Oder ges. Inhalt vergleichen, nicht Groß-Kleinschreibweise beacheten Set c = .Find(wert, LookIn:=xlValues, LookAt:=xlWhole, _ SearchDirection:=xlNext, MatchCase:=False) If Not c Is Nothing Then MsgBox c.Address(external:=True) End With

With wksA.Columns(1) Set c = .Find(wert, LookIn:=xlValues, LookAt:=xlPart, _ SearchDirection:=xlNext, MatchCase:=False) c.Select ActiveCell.Select ActiveCell = wert RechnungsNr = Selection.Offset(0, 1) KundenNr = Selection.Offset(0, 2) .... und so weiter End With

With wksA.Columns(1) Set c = .Find(wert, LookIn:=xlValues, LookAt:=xlWhole, _ SearchDirection:=xlNext, MatchCase:=False) If Not c Is Nothing Then Application.GoTo c GoTo weiter End If Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select 'erste leere zelle ActiveCell.Select ActiveCell = wert Selection.Offset(0, 1) = RechnungsNr Selection.Offset(0, 2) = KundenNr Selection.Offset(0, 3) = Geraetenummer Selection.Offset(0, 4) = ExterneNummer

With wksA.Columns(1) Set c = .Find(wert, LookIn:=xlValues, LookAt:=xlWhole, _ SearchDirection:=xlNext, MatchCase:=False) If Not c Is Nothing Then Application.Goto c GoTo weiter End If With .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).EntireRow .Cells(1, 1).Value = RechnungsNr .Cells(1, 2).Value = KundenNr .Cells(1, 3).Value = Geraetenummer .Cells(1, 4).Value = ExterneNummer Application.Goto .Cells(1, 1) End With End With

Beliebteste Forumthreads (12 Monate)

Arbeitsmappen global referenzieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsmappen global referenzieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread