ich habe zwei Excelmappen.
In Mappe "Planungsuebersicht_2010_Online.xls" sind meine Daten.
Jetzt möchte ich in " Kampagnen_Uebersicht_2010.xls" per Commandbutton Daten von "Planungsuebersicht_2010_Online.xls" importieren, bzw. anzeigen lassen.
Ich habe mir folgendes zu meinem Programmcode gedacht:
1.Schritt: Code prüft, ob die Quelle geöffnet ist, wenn sie nicht geöffnet ist, dann wird die Quelle "Planungsuebersicht_2010_Online.xls" geöffnent.
2. Schritt: Jetzt soll auf Tabellenblatt "Januar" in der Quelle "Planungsuebersicht_2010_Online.xls"
der Bereich B4:H20 markiert werden und kopiert werden und
3.Schritt : in der Zielmappe "Planungsuebersicht_2010_Online.xls" in dem Tabellenblatt " Übersicht"
die Zelle A41 aktiviert werden und die Inhalte eingefügt werden.
Kurz: Eigentlich nur einen Bereich aus der einen mappe in eine andere mappe kopieren.
Folgenden Code habe ich erstellt:
Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function
Private Sub CommandButton1_Click()
If IsWorkbookOpen("Planungsuebersicht_2010_Online.xls") Then
Else
Workbooks.Open Filename:="Y:\Marketing\MARKETING_PUBLIC\Newsletter\Inhaltsplanung_2010\ _
_
MPNL Online\3Phase Konsolidierung\Planungsuebersicht_2010_Online.xls"
End If
With Workbooks("Planungsuebersicht_2010_Online.xls")
Sheets("Januar").Select
Range("B4:H20").Select
Application.CutCopyMode = False
Selection.Copy
End With
With Workbooks("Kampagnenübersicht_Uebersicht_2010.xls")
Sheets("Übersicht").Select
Range("A41").Select
ActiveSheet.Paste
End With
End Sub
Für jeden Tipp wäre ich sehr dankbar.Viele Grüße aus München,
Jeron