Kopieren ohne speichern und aktualisieren
Kai
ich öffne per Makro eine Datei und kopiere dann Werte. Wenn die Datei automatisch geschlossen werden soll, öffnen sich drei Popups.
1. Verknüpfungen aktualisieren - Nicht aktualisieren
2. Sollen Änderungen gespeichert werden - Nein
3. Es befindet sich eine große Menge an Informationen in der Zwischenablage.... - Nein
Kann mir jemand sagen, wie ich das in den Code bekomme, damit es nicht immer angeklickt werden muss?
Gruß
Kai
Code:
Public Sub ImportJanuar()
Dim strDatName As Variant
Dim wbA As Workbook, wbB As Workbook
Dim wsA As Worksheet
' Dateinnamen definieren
strDatName = Application.GetOpenFilename("ExcelFiles (*.XLS), *.xls")
If strDatName False Then
Set wbB = Workbooks.Open(strDatName)
Set wbA = ThisWorkbook
Else
Exit Sub
End If
' Tabellennamen definieren
Set wsA = wbA.Worksheets(2)
Range("AP2:AS96").Select
Selection.Copy
wsA.Activate
Range("AB12:AE106").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Datei B schliessen
wbB.Close
End Sub