Guten Tag,
ich habe dieses Makro, in einem Modul:
Private Sub In_Vorlage_kopieren_Button()
Dim wb As Workbook
Dim thiswb As Workbook
Dim b As Boolean
Dim i&, ze
Set thiswb = ThisWorkbook
Application.ScreenUpdating = False
i = ActiveCell.Row
For Each wb In Application.Workbooks
If wb.Name Like "Lagerlisten*.xlsm" Then
b = True
Exit For
End If
Next wb
If Not b Then
' MsgBox "nix gefunden"
Exit Sub
End If
ActiveSheet.TextBox1 = ""
Range("b2:L2").Select
If ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
Range("E2").Select
'---------------------------------------
wb.Activate
ze = ActiveSheet.Name
'- somit wird der Tabellenname von der Empfängerdatei übernommen
'---- und zurück --
thiswb.Activate
With ActiveSheet
wb.Worksheets(ze).Range("K11:K21") = Application.Transpose(.Range(.Cells(i, 2), .Cells(i, 12)))
End With
wb.Activate
wb.Activate
ActiveSheet.Cells(11, 11).Select
Application.DisplayAlerts = False
thiswb.SaveAs
thiswb.Close
End Sub
per Button funktioniert alles, die Datei wird auch einwandfrei geschlossen.
Wenn ich dies per Doppelklick durchführen möchte,
klappt es nicht.
Fehlermeldung:
"Nicht genügend Arbeitsspeicher verfügbar für diese Aktion.
Wählen Sie weniger Daten aus, oder schließen Sie andere Anwendungen.
Erwägen Sie zum Erhöhen des verfügbaren Arbeitsspeichers die Verwendung einer 64-BIT Version von Microsoft Excel."
64-BIT habe ich
und das Makro befindet sich auch in der Tabelle.
mfg wilma