VBA Programmierung
Hallo zusammen,
der Wert aus Zelle L30 und N30 soll ins wb2 kopiert werden funktionier so weit auch ganz gut außer bei der Zelle N30 und N38 in diesen beiden Zellen ist eine Formel hinterlegt deswegen überträgt es beim kopieren nur ein #NV, daher soll hier nur der Wert kopiert werden. Ich glaube es funktioniert mit einer Value funktion weis aber nicht genau weis jemand wo ich das einfügen muss das es funktioniert.
Private Sub öffneVersandübersicht_Click()
Dim wb2 As Workbook
Set wb2 = Workbooks.Open("Datei xyz")
ThisWorkbook.Activate
With Sheets(1)
.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Range("L24").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Offset(1)
.Range("L30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "E").End(xlUp).Offset(1)
.Range("N30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "F").End(xlUp).Offset(1)
.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "G").End(xlUp).Offset(1)
End With
End Sub
Gruß
der Wert aus Zelle L30 und N30 soll ins wb2 kopiert werden funktionier so weit auch ganz gut außer bei der Zelle N30 und N38 in diesen beiden Zellen ist eine Formel hinterlegt deswegen überträgt es beim kopieren nur ein #NV, daher soll hier nur der Wert kopiert werden. Ich glaube es funktioniert mit einer Value funktion weis aber nicht genau weis jemand wo ich das einfügen muss das es funktioniert.
Private Sub öffneVersandübersicht_Click()
Dim wb2 As Workbook
Set wb2 = Workbooks.Open("Datei xyz")
ThisWorkbook.Activate
With Sheets(1)
.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Range("L24").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Offset(1)
.Range("L30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "E").End(xlUp).Offset(1)
.Range("N30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "F").End(xlUp).Offset(1)
.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "G").End(xlUp).Offset(1)
End With
End Sub
Gruß
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 346242
Url: https://administrator.de/contentid/346242
Ausgedruckt am: 08.11.2024 um 21:11 Uhr
4 Kommentare
Neuester Kommentar
Naja wenn aus zwei Zeilen die dir emeriks geliefert hat, eine machst kein Wunder ...
Ist ja auch so schwer mal in die Referenz zu schauen
Range.Copy
Range.PasteSpecial
Gruß
Ist ja auch so schwer mal in die Referenz zu schauen
Range.Copy
Range.PasteSpecial
Gruß