Thema Datum  Von Nutzer Rating
Antwort
18.07.2012 15:54:55 Claudia
NotSolved
Blau Paste Befehl bringt Laufzeitfehler
19.07.2012 12:57:45 Till
NotSolved
20.07.2012 15:58:53 Gast79143
NotSolved
20.07.2012 17:26:15 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
19.07.2012 12:57:45		 Views:
1222		 Rating:
     
Antwort:
  Ja
Thema:
Paste Befehl bringt Laufzeitfehler

Hi,

so könnte es funktionieren:

Public Sub Antrag_speichern_test2()
Dim lastrow As Integer
Dim WbkNeuName As Integer
Dim WbkNeu As Workbook
Dim Anfrage As Workbook
Dim Übersicht As Workbook

    lastrow = 2
    Set Übersicht = Workbooks.Open(Filename:="C:\Users\Desktop\gesamtübersichtMakros")
    With Übersicht
        With .Sheets(1)
            Do While .Cells(lastrow, 1) <> 0
                lastrow = lastrow + 1
            Loop
            WbkNeuName = .Cells(lastrow, 1).Row - 2
        End With
        .Close (False)
    End With
    
    Set Anfrage = Workbooks.Open(Filename:="C:\Users\Desktop\anfrage123")
    Anfrage.Sheets(1).Range("B3:B10").Copy
    
    Set WbkNeu = Workbooks.Add
    With WbkNeu
        With .Sheets(1)
            .Range("B3").PasteSpecial
        End With
        .SaveAs ("C:\Users\Desktop\" & WbkNeuName & ".xlsx")
        .Close (False)
    End With
    
    Anfrage.Close (False)

End Sub

Wenn du mehrere Arbeitsmappen öffnest, musst du darauf achten, dass die Verweise stimmen. Am besten schreibst du immer die gesamte Objektkette hin und verzichtest auf Activate/Select.

 

Gruß

Till

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.07.2012 15:54:55 Claudia
NotSolved
Blau Paste Befehl bringt Laufzeitfehler
19.07.2012 12:57:45 Till
NotSolved
20.07.2012 15:58:53 Gast79143
NotSolved
20.07.2012 17:26:15 Till
NotSolved