Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Statt Windows soll Mac


Betrifft: VBA Statt Windows soll Mac von: Anna
Geschrieben am: 24.09.2019 15:05:38

Hallo,

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?

  

Betrifft: AW: VBA Statt Windows soll Mac von: Torsten
Geschrieben am: 24.09.2019 15:15:47

Hallo,

nein das "Windows" hier steht tatsaechlich fuer Windows(Fenster) und meint in dieser Zeile, dass das Fenster mit der Datei "Test.xlsm" aktiviert werden soll.
Ich weiss zwar nicht, ob das dann trotzdem aud Mac funktioniert.

Gruss Torsten


  

Betrifft: AW: VBA Statt Windows soll Mac von: Anna
Geschrieben am: 24.09.2019 15:26:58

Ja das funktioniert nicht, gibt es eine Lösung für Mac?


  

Betrifft: AW: VBA Statt Windows soll Mac von: Werner
Geschrieben am: 24.09.2019 15:28:50

Hallo,

teste mal:

Sub aaa()
Dim strDatei As String, wks As Worksheet

Application.ScreenUpdating = False

Worksheets("Rohdaten").Cells.Clear

strDatei = Application.GetOpenFilename
If strDatei <> False Then
    Set wks = Workbooks.Open(strDatei).Sheets(1)
Else
    Exit Sub
End If

wks.Cells.Copy

Workbooks("Test.xlsm").Worksheets("Rohdaten").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Workbooks(strDatei).Close SaveChanges:=False
End Sub
Gruß Werner


  

Betrifft: nicht nur Windows.... von: Werner
Geschrieben am: 30.09.2019 09:09:31

Hallo Anna,

...scheint auf dem Mac nicht zu funktionieren. Auch die Tastatur scheint auf dem Mac nicht zu funktionieren oder weshalb gibt es in dieser Sache sonst kein Feedback?

Gruß Werner


Beiträge aus dem Excel-Forum zum Thema "VBA Statt Windows soll Mac "