ich würde gern über einen Button in eine anderen Excel-mappe ein paar Zellen hinein kopieren.
Hab hier schon was ausprobiert aber nach dem er die mappe öffnet passiert einfach nichts mehr. Er kopiert es nicht in die neu geöffnete Mappe.
Danke für Hilfe im voraus.
Hier mein Code bis jetzt:
Sub MappeOeffnen()
Dim strOrdner As String, strdateiname As String
Dim wbMappe As Workbook
strOrdner = "C:\Dein\Ordner\"
strdateiname = "Auswertung.xls"
On Error Resume Next
Set wbMappe = Workbooks(strdateiname)
If Not wbMappe Is Nothing Then
wbMappe.Activate
MsgBox "Mappe ist bereits geöffnet !"
Else
If Dir(strOrdner & strdateiname) "" Then
Set wbMappe = Workbooks.Open(strOrdner & strdateiname, UpdateLinks:=False)
Else
MsgBox "Folgende Datei existiert nicht : " & vbf & vbLf & _
strOrdner & strdateiname, vbOKOnly + vbCritical, "Datei nicht gefunden !"
End If
End If
Set wbMappe = Nothing
--> Bis hier TOP !!! Aber Kopiervorgang klappt nicht.
Workbooks("MappeA.xls").Sheets("SheetA").Range("F10:H22").Copy
Workbooks("MappeB.xls").Sheets("SheetB").Range("C10").PasteSpecial xlPasteValues
End Sub