Thema Datum  Von Nutzer Rating
Antwort
Rot Run-time error 1004
14.11.2021 15:25:22 Fabienne
NotSolved
14.11.2021 19:03:31 ralf_b
*****
NotSolved
15.11.2021 00:26:00 Gast98639
*****
NotSolved
15.11.2021 09:32:14 Nobody
NotSolved
15.11.2021 20:30:20 Gast30413
NotSolved
15.11.2021 09:23:49 Nobody
NotSolved
15.11.2021 10:01:11 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Fabienne
Datum:
14.11.2021 15:25:22
Views:
93
Rating: Antwort:
  Ja
Thema:
Run-time error 1004

Ich erhalte beim unten erfassten code in der fett markierten Zeile den Run-time error 1004 "Application defined or object defined error". Der Code funktioniert, wenn ich die ganze Reihe kopiere und ins zweite Sheet einfüge. Wenn ich eine bestimmte Range definiere für die Kopie (das zweite Sheet enhält Formeln, welche ich nicht überschreiben möchte), funktioniert es nicht mehr. Der bis anhin gefundenen Lösungsvorschlag (Activate Worksheet) hat nicht geholfen. Kann mir jemand weiterhelfen? Vielen Dank bereits im Voraus! =)

 

Sub main()

Range("A2:W500").ClearContents

Dim wb As Workbook

Dim Data As Worksheet

Dim Proforma As Worksheet

Dim lastrow As Integer

Dim j As Variant

Set wb = ThisWorkbook

Set Data = wb.Sheets("Sales data")

Set Proforma = wb.Sheets("OPS Proforma")

 

lastrow = Data.Cells(Rows.Count, 1).End(xlUp).Row

i = 2

 

For j = 2 To lastrow

If Data.Cells(j, 23).Text = "C-BE-EU" Then

Sheets("Sales data").Range(Cells(j, 1), Cells(j, 23)).Copy

Sheets("Intrastat OUT").Range(Cells(i, 1), Cells(i, 23)).PasteSpecial xlPasteValues

i = i + 1

End If

Next j

...


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 Run-time error 1004
14.11.2021 15:25:22 Fabienne
NotSolved
14.11.2021 19:03:31 ralf_b
*****
NotSolved
15.11.2021 00:26:00 Gast98639
*****
NotSolved
15.11.2021 09:32:14 Nobody
NotSolved
15.11.2021 20:30:20 Gast30413
NotSolved
15.11.2021 09:23:49 Nobody
NotSolved
15.11.2021 10:01:11 Nobody
NotSolved