Unterschiedliche Blattnamen

Private Sub CommandButton1_Click() Dim strPfad As Variant Dim Wb As Workbook Set Wb = ThisWorkbook strPfad = Application.GetOpenFilename If strPfad False Then TextBox1 = strPfad Workbooks.Open Filename:=strPfad Else MsgBox "Nichts ausgewählt!" End If Sheets("5.1 GuV_Übersicht").Select Sheets("5.1 GuV_Übersicht").Cells.Copy Wb.Activate End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub CommandButton1_Click() Dim strPfad As Variant, Quelle As Workbook Dim ws As Worksheet, boGefunden As Boolean Application.ScreenUpdating = False strPfad = Application.GetOpenFilename If strPfad False Then 'TextBox1 = strPfad keine Ahnung was du damit willst Set Quelle = Workbooks.Open(strPfad) Else MsgBox "Nichts ausgewählt!" Exit Sub End If For Each ws In Quelle.Worksheets Select Case ws.Name Case "5.1 GuV_Übersicht", "5.1 P&L_Overview" With ws boGefunden = True End With Exit For Case Else End Select Next ws If boGefunden Then ws.Cells.Copy 'keine Ahnung wohin Else MsgBox "Blatt nicht gefunden." Quelle.Close False End If End Sub

Public Sub Daten_kopieren() Dim strPfad As Variant, Quelle As Workbook Dim ws As Worksheet, boGefunden As Boolean Application.ScreenUpdating = False strPfad = Application.GetOpenFilename If strPfad False Then Set Quelle = Workbooks.Open(strPfad) Else MsgBox "Nichts ausgewählt!" Exit Sub End If For Each ws In Quelle.Worksheets Select Case ws.Name Case "5.1 GuV_Übersicht", "5.1 P&L_Overview", "5.1 GuV_ÜbersichtH", "5.1 GuV_ÜbersichtK" _ , "5.1 P&L_Overview_Group" With ws boGefunden = True End With Exit For Case Else End Select Next ws If boGefunden Then ws.Cells.Copy ThisWorkbook.Worksheets("Cockpit").Range ("A1") 'keine Ahnung wohin Else MsgBox "Blatt nicht gefunden." Quelle.Close False End If End Sub

Hi Werner,
die Datei, aus der Daten kopiert werden, kann dann eigentlich wieder geschlossen werden. Korrekt.
Könnte ich hierfür den Code
Quelle.Close
verwenden?
Habe das auch bereits ausprobiert. Da die Datei dann geschlossen wird, frägt mich Excel ob ich die Daten in der Zwischenablage speichern möchte. Bejahe ich dies, kann ich aber nur noch Werte einfügen und nicht Werte und Formate.
Oder gibt es noch eine andere Möglichkeit, die Datei, aus der ich die Daten kopiere, erst nach dem Einfügen in der Zieldatei zu schließen. Aber dann habe ich wieder das Problem, dass ich einen Weg finden müßte, zur Zieldatei zurück zu kommen.
Hier nun der getestete Code

Public Sub Daten_kopieren()
Dim strPfad As Variant, Quelle As Workbook
Dim ws As Worksheet, boGefunden As Boolean
Application.ScreenUpdating = False
strPfad = Application.GetOpenFilename
If strPfad  False Then
Set Quelle = Workbooks.Open(strPfad)
Else
MsgBox "Nichts ausgewählt!"
Exit Sub
End If
For Each ws In Quelle.Worksheets
Select Case ws.Name
Case "5.1 GuV_Übersicht", "5.1 P&L_Overview", "5.1 GuV_ÜbersichtH", "5.1 GuV_ÜbersichtK" _
, "5.1 P&L_Overview_Group"
With ws
boGefunden = True
End With
Exit For
Case Else
End Select
Next ws
If boGefunden Then
ws.Cells.Copy
Quelle.Close
Else
MsgBox "Blatt nicht gefunden."
Quelle.Close False
End If
End Sub

Würde es nicht noch eine Möglichkeit geben, die Datei aus der ich das Makro starte, mit folgenden Parametern zu definieren?
Dim Wb As Workbook
Set Wb = ThisWorkbook
Dann könnte ich über Wb.Activate wieder zurück zur Zieldatei?
Danke

Option Explicit Public Sub CommandButton1_Click() Dim strPfad As Variant, Quelle As Workbook Dim ws As Worksheet, boGefunden As Boolean strPfad = Application.GetOpenFilename If strPfad False Then Set Quelle = Workbooks.Open(strPfad) Else MsgBox "Nichts ausgewählt!" Exit Sub End If For Each ws In Quelle.Worksheets Select Case ws.Name Case "5.1 GuV_Übersicht", "5.1 P&L_Overview" With ws boGefunden = True End With Exit For Case Else End Select Next ws If boGefunden Then ws.Cells.Copy Else MsgBox "Blatt nicht gefunden." End If Windows(ThisWorkbook.Name).Activate End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Unterschiedliche Blattnamen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread