Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Fehler
25.08.2023 07:03:20 Mario
Solved
25.08.2023 07:43:54 Gast78923
NotSolved
25.08.2023 08:44:10 volti
NotSolved
25.08.2023 08:54:53 Gast16419
NotSolved
25.08.2023 09:57:48 volti
Solved
25.08.2023 10:47:08 Gast92677
NotSolved
27.08.2023 11:48:14 Gast01287
NotSolved
29.08.2023 13:26:26 AuchMalGast
NotSolved
29.08.2023 13:34:11 ANONYM
NotSolved
29.08.2023 15:27:57 Mase
NotSolved
29.08.2023 15:29:34 ANONYM
NotSolved

Ansicht des Beitrags:
Von:
Mario
Datum:
25.08.2023 07:03:20
Views:
765
Rating: Antwort:
 Nein
Thema:
VBA Fehler

Hallo,

ich folgende VBA. Diese VBA nimmt eine Zeile, öffnet eine andere Excel Datei, kopiert die Zeile ab D4 hinein, benannt die Exxcel Datei nach dem Namen in Spalte JJ und schließt die Datei. Dann die nächste Zeile. In einigen Spalten habe ich einen Sverweis, der soll nicht mitkopiert werden, nur die Werte der jeweiligen Zelle. Das Makro funktioniert bis zum Punkt ".PastSpecial Past:=xlValues" dort wird die Zeile gelb markiert. Hier scheint etwas zu fehlen, nur was? VG Mario

Sub Daten_Finance_Review()
Dim wbZiel As Workbook, strPath As String, i As Long
strPath = ActiveWorkbook.Path
Application.ScreenUpdating = False
Set wbZiel = Workbooks.Open("R:\Jahresabschluss_DD\JA2023\Finance Review\04_Master für mtl und jährliches Finance Review\Finance Review_Master.xlsx")
With ThisWorkbook.Worksheets("Daten")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(i, "A").Resize(, 268).Copy _
wbZiel.Sheets("Master Data").Range("d4")
wbZiel.SaveAs Filename:=strPath & "\" & .Cells(i, "jj")
.PasteSpecial Paste:=xlValues
.PasteSpecial past:=xlFormats
Next i
End With
Set wbZiel = NothingJ
End Sub


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 VBA Fehler
25.08.2023 07:03:20 Mario
Solved
25.08.2023 07:43:54 Gast78923
NotSolved
25.08.2023 08:44:10 volti
NotSolved
25.08.2023 08:54:53 Gast16419
NotSolved
25.08.2023 09:57:48 volti
Solved
25.08.2023 10:47:08 Gast92677
NotSolved
27.08.2023 11:48:14 Gast01287
NotSolved
29.08.2023 13:26:26 AuchMalGast
NotSolved
29.08.2023 13:34:11 ANONYM
NotSolved
29.08.2023 15:27:57 Mase
NotSolved
29.08.2023 15:29:34 ANONYM
NotSolved