Makro in neue Arbeitsmappe ausführen

Sub Makro1() Dim strName As String Dim strZelle As String strName = ActiveSheet.Range("F3") & Date On Error Resume Next ' Fehler abfangen falls es bereits ein Tabellenblatt mit diesem _ Namen gibt strName = Worksheets(strName).Name ' Prüfung ob ein Tabellenblatt mit dem Namen schon _ vorhanden ist If Err > 0 Then ' Tabellenblatt gibt es noch nicht strZelle = ActiveSheet.UsedRange.Cells(1, 1).Address ' Adresse der linken oberen _ Zelle des benutzten Bereichs ActiveSheet.UsedRange.Copy ' benutzten Bereich kopieren Sheets.Add ' neues Tabellenblatt einfügen Range(strZelle).PasteSpecial Paste:=xlPasteValues ' Werte einfügen Range(strZelle).PasteSpecial Paste:=xlPasteFormats ' Formate einfügen ActiveSheet.Name = Range("F3") & Date ' aktives Tabellenblatt umbenennen Else MsgBox "Es gibt schon ein Tabellenblatt " & strName End If Err.Clear ' Fehler zurücksetzen On Error GoTo 0 ' Fehlerbehandlung zurücksetzen End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Fred,
so ganz klar ist mir das nicht geworden.
Im Betreff steht "Makro in neue Arbeitsmappe ausführen" - es gibt aber wohl keine neue Arbeitsmappe.
Ich habe das so verstanden, dass das Makro auf eine Mappe wirken soll,
die vorher geöffnet und nachher wieder geschlossen wird.
Unklar ist, was davon unsichtbar und was sichtbar ablaufen soll.
("unsichtbar öffnen", "aus dem sichtbaren aktiven Sheet ausführen")
Ich vermute stark, dass die Mappe Störbericht.xls vor dem Schließen noch gespeichert werden soll, oder?
Probier mal den folgenden (ungetesteten) Code:


Option Explicit
Sub Steuer()
'   Application.ScreenUpdating = False   ' nach dem Testen aktivieren
Workbooks.Open "C:\Eigene Dateien\Störbericht.xls"
myKopiere
ActiveWorkbook.Close True
'   Application.ScreenUpdating = True
End Sub
Sub myKopiere()
Dim strName As String
Dim strZelle As String
strName = ActiveSheet.Range("F3") & Date
' Prüfung ob ein Tabellenblatt mit dem Namen schon vorhanden ist
If WorksheetEx(strName) Then
MsgBox "Es gibt schon ein Tabellenblatt " & strName
Else
' Adresse der linken oberen Zelle des benutzten Bereichs
strZelle = ActiveSheet.UsedRange.Cells(1, 1).Address
ActiveSheet.UsedRange.Copy              ' benutzten Bereich kopieren
Sheets.Add                              ' neues Tabellenblatt einfügen
ActiveSheet.Name = strName              ' neues Tabellenblatt umbenennen
Range(strZelle).PasteSpecial Paste:=xlPasteValues    ' Werte einfügen
Range(strZelle).PasteSpecial Paste:=xlPasteFormats   ' Formate einfügen
End If
End Sub
Function WorksheetEx(strNam As String) As Boolean
On Error Resume Next
WorksheetEx = Worksheets(strNam).Index > 0
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Sub myKopiere() Dim wksQ As Worksheet, wbkZ As Workbook Dim strName As String, strZelle As String Set wksQ = ActiveSheet strName = wksQ.Range("F3") & Date ' Application.ScreenUpdating = False ' nach dem Testen aktivieren Set wbkZ = Workbooks.Open("C:\Eigene Dateien\Störbericht.xls") ' Prüfung ob ein Tabellenblatt mit dem Namen schon vorhanden ist If WorksheetEx(strName) Then MsgBox "Es gibt schon ein Tabellenblatt " & strName wbkZ.Close False Else ' Adresse der linken oberen Zelle des benutzten Bereichs strZelle = wksQ.UsedRange.Cells(1, 1).Address Worksheets.Add ' neues Tabellenblatt einfügen ActiveSheet.Name = strName ' neues Tabellenblatt umbenennen wksQ.UsedRange.Copy ' benutzten Quellbereich kopieren Range(strZelle).PasteSpecial Paste:=xlPasteValues ' Werte einfügen Range(strZelle).PasteSpecial Paste:=xlPasteFormats ' Formate einfügen Application.CutCopyMode = False wbkZ.Close True End If Application.ScreenUpdating = True End Sub Function WorksheetEx(strNam As String) As Boolean On Error Resume Next WorksheetEx = Worksheets(strNam).Index > 0 End Function

Beliebteste Forumthreads (12 Monate)

Makro in neue Arbeitsmappe ausführen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro in neue Arbeitsmappe ausführen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread