Office: Drei Workbooks ansprechen

Torsang · 31. Oktober 2014

Hallo

Ich habe folgenden Code:
Code:

Sub Testen_2()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wb3 As Workbook
Set wb1 = ThisWorkbook
'Set wb2 = Workbooks.Application.GetOpenFilename()
'Set wb3 =
ActiveSheet.Unprotect
ActiveSheet.Copy
ActiveSheet.Buttons.Delete
ActiveSheet.Name = Range("B5").Value
Application.Dialogs(xlDialogOpen).Show
wb1.Worksheets(Tabelle1.Name).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es soll aus Workbook 1 (wb1) ein Blatt kopiert werden.
Dann soll ein weiteres Workbook (dessen Datei der Anwender über einen
"öffnen-Dialog" auswählen soll) geöffnet werden = Workbook 2 (wb2).

wb1 ist geöffnet.
Lasse ich den Code nun laufen, so wird mir eine neue Mappe (Mappe2)
mit dem kopierten Blatt angelegt und der "öffnen-Dialog" wird angezeigt
(Mappe2 soll wb3 werden).
Nun öffne ich die Datei.
Wie kann ich nun aber wb2 und wb3 ansprechen ?
Und wenn ich den Code in einer Sitzung öfter ausführe,
wird ja aus Mappe2 > Mappe3 > Mappe4 > .........

Nette Grüße
Torsten

:)

Torsang · 2. November 2014

wb3 habe ich herausgefunden...
Code:

Sub Testen_2()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wb3 As Workbook
Set wb1 = ThisWorkbook
'Set wb2 = Application.GetOpenFilename()
ActiveSheet.Unprotect
ActiveSheet.Copy
ActiveSheet.Buttons.Delete
ActiveSheet.Name = Range("B5").Value
Set wb3 = ActiveWorkbook
Application.Dialogs(xlDialogOpen).Show
wb1.Worksheets(Tabelle1.Name).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
wb3.Activate
MsgBox "Hallo"
wb1.Activate
MsgBox "Hallo, hallo"
wb3.Activate
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... fehlt noch wb2 .....

EarlFred · 2. November 2014

Hallo Torsten,

meinen Hinweis auf das FileDialog-Objekt im anderen Thread hast Du überlesen?

Code:

Option Explicit

Sub Testen_2()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wb3 As Workbook
Dim strFileNameToOopen As String

Set wb1 = ThisWorkbook 'wenn wb1 IMMER ThisWorkbook ist, ist die nicht erforerlich.

'wb2 Öffnen
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path & "\*.xls*"
If .Show Then
Set wb2 = Workbooks.Open(.SelectedItems(1))
Else
MsgBox "Keine Datei geählt. Code wird beendet!", vbCritical, "Abbruch durch Nutzer"
GoTo aufräumen
End If
End With

'Dein Code

aufräumen:
Set wb3 = Nothing
Set wb2 = Nothing
Set wb1 = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Rest vom Code habe ich nicht kapiert, da ich nicht weiß, was dann mal "zufällig Active" sein soll.

Wenn Du schon (lobenswerterweise) mit Objektvariablen arbeiten willst, lass bitte den ganzen "Active-Irgendwas"-krams weg.

Grüße
EarlFred

Torsang · 3. November 2014

Auch hier ein gaaaanz herzliches Dankeschön !

Nette Grüße
Torsten

Office: Drei Workbooks ansprechen

Drei Workbooks ansprechen

Drei Workbooks ansprechen

Drei Workbooks ansprechen

Drei Workbooks ansprechen - Similar Threads - Workbooks ansprechen

Workbook ohne Makros starten

Workbook über variablen Pfad öffnen

Einträge aus Zellen aus einem anderen Workbook einlesen

Warten, bis Workbook geöffnet

Menüleisten deaktivieren-nur bei einem Workbook!

Vba - Neues Worksheet in anderem Workbook erstellen

Auto. kopieren einer Range von einem Workbook in ein anderes - unterschiedliche Pfade