Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Per VBA Werte in andere Datei kopieren

Betrifft: Per VBA Werte in andere Datei kopieren von: Bastian
Geschrieben am: 30.07.2014 09:40:29

Hallo zusammen,

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

  

Betrifft: AW: Per VBA Werte in andere Datei kopieren von: Rudi Maintaire
Geschrieben am: 30.07.2014 09:56:20

Hallo,
z.B.

Range("c2").Copy 
Worksheets("Data").Range("A2").PasteSpecial xlPasteValues
Range("c3").Copy 
Worksheets("Data").Range("B2").PasteSpecial xlPasteValues
Gruß
Rudi


  

Betrifft: AW: Per VBA Werte in andere Datei kopieren von: Bastian
Geschrieben am: 30.07.2014 11:23:14

Hallo Rudi,

vielen Dank! So habe ich mir das vorgestellt!
Hätte vielleicht etwas komplizierter sein können, dann würde ich jetzt nicht ganz so doof dastehen :-)
Hast du vielleicht einen Tipp wie ich mir etwas mehr VBA Kenntnisse aneignen kann.
Ich weiß z.B. nichtmal was die Punkte bedeuten, werden hierdurch nur die Kommandos getrennt?

Gruß
Bastian


 

Beiträge aus den Excel-Beispielen zum Thema "Per VBA Werte in andere Datei kopieren"