VBA Statt Windows soll Mac
24.09.2019 15:05:38
Anna
ich habe ein Code hier:
Dim strDatei, wks As Worksheet
Sheets("Rohdaten").Cells.Clear
strDatei = Application.GetOpenFilename
If strDatei False Then
Set wks = Workbooks.Open(strDatei).Sheets(1)
Else
Exit Sub
End If
Cells.Select
Selection.Copy
Windows("Test.xlsm").Activate 'Überschrift der Tabelle
Sheets("Rohdaten").Select
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Workbooks.Open(strDatei).Sheets(1).Activate
ActiveWindow.Close SaveChanges:=False
Application.DisplayAlerts = True
Das Problem ist:
Windows("Test.xlsm").Activate 'Überschrift der Tabelle
Diese Zeile ist für Windows. Wie kann ich das für ein Macbook anpassen?
Anzeige