Thema Datum  Von Nutzer Rating
Antwort
Rot Bereich kopieren in neues Add Sheet hinzufügen
20.11.2021 00:05:41 Bobby
NotSolved
20.11.2021 01:30:41 Nobody
NotSolved
20.11.2021 01:45:02 Gast12716
NotSolved
20.11.2021 12:20:14 Bobby
NotSolved

Ansicht des Beitrags:
Von:
Bobby
Datum:
20.11.2021 00:05:41
Views:
67
Rating: Antwort:
  Ja
Thema:
Bereich kopieren in neues Add Sheet hinzufügen

Hallo zusammen,

vielleicht ist meine Anfrage so banal wie nervenaufreibend für mich (seit Stunden).

Ich habe mich inzwischen tod geggoelt. Warum Bringt mir folgende Prozedur den Fehler "Laufzeitfehler: 438" / "Objekt unterstützt Eigenschaft oder Methode nicht" in der Zeile "ThisWorkbook.Worksheets("Palettenkonto").Range("A1:G" & lngLastG).Copy Destination:=Palkt.Range("A1")"

Ich hatte noch nie Schwierigkeiten Bereiche zu kopieren, heute verstehe ich die Welt nicht mehr. Bitte um Hilfe....

Private Sub btnAbschluss_Click()
Dim Palettenkonto As String
Dim Palkt As Workbook
Dim lngLastG As Long
Dim lngLastI As Long
Dim ThisPalKt As Worksheet
Dim Auswertung As String

    lngLastG = Cells(Rows.Count, 7).End(xlUp).Row
    lngLastI = Cells(Rows.Count, 9).End(xlUp).Row
    Set ThisPalKt = ThisWorkbook.Worksheets("Palettenkonto")
    
    Palettenkonto = "C:\Users\elmo8\OneDrive\Documents\Projekte\GEL\DISPO\Dispo 664\DATA\Palettenkonto.xlsx"
    Set Palkt = Workbooks.Open(Palettenkonto)
    
    Palkt.Sheets.Add(After:=Palkt.Sheets(Palkt.Sheets.Count)).Name = ThisPalKt.Range("S2").Value
    
    ThisWorkbook.Worksheets("Palettenkonto").Range("A1:G" & lngLastG).Copy Destination:=Palkt.Range("A1")
    
    ThisPalKt.Range("A3:G" & lngLastG).ClearContents

End Sub

 

LG Bobby


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
Rot Bereich kopieren in neues Add Sheet hinzufügen
20.11.2021 00:05:41 Bobby
NotSolved
20.11.2021 01:30:41 Nobody
NotSolved
20.11.2021 01:45:02 Gast12716
NotSolved
20.11.2021 12:20:14 Bobby
NotSolved