Per VBA Werte in andere Datei kopieren
30.07.2014 09:40:29
Bastian
ich bin neu hier und hoffe auf eure Hilfe.
Mit EXCEL kenne ich mich ein wenig aus, jedoch leider nur schlecht mit VBA.
Ich möchte gerne Daten, die teils per Dropdown erfasst werden, per Button in eine andere Arbeitsmappe wegschreiben.
Mein Code sieht wie folgt aus:
Private Sub Daten_Übertragen_Click()
Dim byWert As Byte
byWert = MsgBox("Sollen die eingegeben Daten übertragen werden?", 1, "Info")
If byWert = 2 Then
MsgBox "Übertragung wurde abgebrochen!"
ElseIf byWert = 1 Then
Application.ScreenUpdating = False
Workbooks.Open "M:\2014\Auswertungen\RFQ\RFQ Data.xlsx"
Worksheets("Data").Rows("2:2").Insert Shift:=xlDown
Range("c2").Copy Worksheets("Data").Range("A2")
Range("c3").Copy Worksheets("Data").Range("b2")
Range("c4").Copy Worksheets("Data").Range("c2")
Range("c5").Copy Worksheets("Data").Range("d2")
Range("c9").Copy Worksheets("Data").Range("e2")
Range("c10").Copy Worksheets("Data").Range("f2")
Range("c11").Copy Worksheets("Data").Range("g2")
Range("c12").Copy Worksheets("Data").Range("h2")
Range("c13").Copy Worksheets("Data").Range("i2")
Range("c14").Copy Worksheets("Data").Range("j2")
Range("c20").Copy Worksheets("Data").Range("k2")
Range("c21").Copy Worksheets("Data").Range("l2")
Range("c22").Copy Worksheets("Data").Range("m2")
Range("c23").Copy Worksheets("Data").Range("n2")
Range("c24").Copy Worksheets("Data").Range("o2")
Range("c25").Copy Worksheets("Data").Range("p2")
Range("c26").Copy Worksheets("Data").Range("q2")
Range("c16").Copy Worksheets("Data").Range("r2")
Range("c28").Copy Worksheets("Data").Range("s2")
Range("c31").Copy Worksheets("Data").Range("t2")
Workbooks("RFQ Data.xlsx").Close savechanges = yes
Application.ScreenUpdating = True
Dim strText As String
strText = " Daten erfolgreich übertragen!!"
MsgBox strText
End If
End Sub
Das habe ich mir soweit zusammen gegooelt allerdings habe ich jetzt noch ein Problem.
Die Daten werden mit Formaten, Bezügen, Namen usw. übertragen. Ich möchte aber nur die Werte übertragen. Kann ich hier einen "Special paste" einfügen oder was muss ich tun?
Vielen Dank vorab für eure Hilfe.
Gruß
Bastian