Wie Paste special in VBA Code einbauen

Hi Alex
Etwa so soll funktionieren

Private Sub ComboBox1_Change()
    Select Case True
    Case ComboBox1.Text = "January"
        Worksheets("DA CCH").Range("B5:E8").Copy
        Worksheets("DA CCH").Range("B25").PasteSpecial Paste:=xlPasteValues
        Worksheets("DA CCH").Range("BC5:BF8").Copy
        Worksheets("DA CCH").Range("H25").PasteSpecial Paste:=xlPasteValues  
     End Select

End Sub

In Deine Code,

        Worksheets("DA CCH").Range("B5:E8").Copy Destination:=Worksheets("DA CCH").Range("B25")
        Worksheets("DA CCH").Range("BC5:BF8").Copy Destination:=Worksheets("DA CCH").Range("H25")

bemützt Du eigentlich diese Methode:

___ Copy___ Destination:=___

(___ Destination:= ___ darfst Du einfach auslassen so wie Du hast ) . Diese ist eine etwa schneller Methode wobei, ( Ich denke) VBA macht eine Umweg um die Zwischenablage und „ratest“ die Format um zu passen. Mal Funktionieret wie Du Willst, mal nicht! ( Mal kopieret Formulare, mal Werte
http://www.mrexcel.com/forum/excel-q...-formulas.html
)


Mit Diesen Methode:

___ Copy

___ PasteSpecial __Paste:=xl____

Kannst Du auswählen welcher Versionen von die kopierte Datei in die Zwischenablage sie einfügen. Also Du hast mehr Kontroller

http://www.mrexcel.com/forum/excel-q...ml#post4071766

Gruß aus Hof
Alan
Bayern

Übrigens ich wurde es Ubers Arrays ( Feld Elementen ) machen

Sub AlexArrayMethodeCopyPasteValues() 'http://www.excelforum.com/non-english-excel/1107641-wie-paste-special-in-vba-code-einbauen.html
Dim arrIn1() As Variant, arrIn2() As Variant 'Diesen sind  dynamischer Arrays, so wie wir brauchen um die .Value Methode zu anwenden um es in eine Code Line  füllen zu können. Variant muss benutz werden…..
    Select Case True
    Case ComboBox1.Text = "January"
    Let arrIn1() = Worksheets("DA CCH").Range("B5:E8").Value '.....Die .Value Methode wurde angewandten an eine Range Objekte. Dies gibt zurück (  wenn mehr als 1 Zelle in diese Range ist ) eine Feld von Elementen die typ Varianten sind. Deswegen variant Type benutz mussten.
    Worksheets("DA CCH").Range("B25").Resize(UBound(arrIn1(), 1), UBound(arrIn1(), 2)).Value = arrIn1() 'Einfach weg zu fügen Sie Output Array in einem Linie: Ändern Sie die Größe des Bereichs (Zelle) links oben in dem Ausgangsdaten sollte, zu der Größe der Ausgabe-Array, dann verwenden Sie die zulässige VBA "One -Liner " , um die Werte aus einem Array in eine Tabelle Bereich zuordnen zo können
    Let arrIn2() = Worksheets("DA CCH").Range("BC5:BF8").Value
    Worksheets("DA CCH").Range("H25").Resize(UBound(arrIn2(), 1), UBound(arrIn2(), 2)).Value = arrIn2()
    End Select
End Sub

Hi, Alex,

wieso schreibst Du die Bereiche nicht direkt in die Zellen statt zu kopieren und Einfügen/Werte zu versuchen?

Da Du nur zwei Werte angegeben hast, kann ich Dir schlecht eine Schleife zum Kopieren voirschlagen, da mir die Angaben fehlen, aber Du könntest folgenden Code versuchen:

Private Sub ComboBox1_Change()
Dim ws As Worksheet
Dim varColOrig As Variant
Dim varColTarg As Variant
Dim lngArr As Long

Const clngROWS As Long = 4
Const clngCOLS As Long = 4

varColOrig = Array("B", "BC")
varColTarg = Array("B", "H")

If UBound(varColOrig) < UBound(varColTarg) Then
  MsgBox "Falsche Anzahl an Urpsrungs- und Zielzellen, bitte überprüfen!", vbExclamation, "Abbruch"
  Exit Sub
End If

Set ws = Worksheets("DA CCH")

Select Case True
  Case ComboBox1.Text = "January"
    For lngArr = LBound(varColOrig) To UBound(varColOrig)
      ws.Cells(25, varColTarg(lngArr)).Resize(clngROWS, clngCOLS).Value = ws.cell(5, varColOrig(lngArr)).Resize(clngROWS, clngCOLS).Value
    Next lngArr
End Select

Set ws = Nothing

End Sub

Ciao,
Holger

Hallo, Alex,

im Titel wird explizit nach VBA Code gefragt, ich verstehe nicht, warum Du dann auf einmal Formeln erwähnst (die darüberhinaus keine Werte speichern können, sondern immer von den vorhandenen Werten der Zielzellen beeinflußt werden). Ich scheine da Einiges an Deinem Vorgehen nicht zu verstehen.

Ciao,
Holger

Hi Alex

Originally Posted by walga

....
many thanks for that. It works fine!....

Bitte!

_ ...................
@ Holger und Alex
Ich find es toll wenn mehrere Losung gegeben sind. Da lernt man die meisten, meine Meinung nach. Es gibt ja endlich varianten…

Evtl. als letzter kleine Hilfe von mir..( Geh von aus wir noch auf VBA Losung sind.. ).. ich Habs versuchte die Code von Holger etwas Vereinfacht als zwischen stufe zum verstehe, und als besser Vergleichs zu meinen Code… ( - Bzw. Man kann ja einen Feld von Elementen in eine Range direkt zuweisen an eine andere Range Objekt )

Sub AlexHolgerVereinfacht1()
Dim ws As Worksheet 'Dieses variablen definieret als Objekte Arbeitsblätter ( Worksheets)
Set ws = Worksheets("DA CCH") ' Gibt die verkürzen Buchstaben im Code Methoden, Eigenschaften usw. von Objekte Arbeitsblätter ( Worksheets) durch Anwendung die .Punkt danach
    Select Case True
    Case ComboBox1.Text = "January"
    
    ws.Range("B25:E28").Value = ws.Range("B5:E8").Value
    ws.Range("H25:K28").Value = ws.Range("BC5:BF8").Value
    
    End Select
End Sub


Sub AlexHolgerVereinfacht2()
Dim ws As Worksheet
Set ws = Worksheets("DA CCH")
    Select Case True
    Case ComboBox1.Text = "January"
    
    ws.Cells(25, "B").Resize(4, 4).Value = ws.Cells(5, "B").Resize(4, 4).Value 'Zu erste wird Resize Eigenschaft ans Range Objekt angewendet. Das gibt zurück neue modifizieret große Range Objekt zurück. Dann.. Die .Value Methode wurde angewandten an eine Range Objekte. ) Dies gibt zurück (  wenn mehr als 1 Zelle in diese Range ist ) eine Feld von Elementen die typ Varianten sind. )
    ws.Cells(25, "H").Resize(4, 4).Value = ws.Cells(5, "BC").Resize(4, 4).Value
    
    End Select
End Sub

_ …….
Da siehst du von ersten Code das es ja sehr ähnlich in Prinzipe zu meinen Code ist ( - Bzw. Man kann ja einen Feld von Elementen in eine Range direkt zuweisen an eine andere Range Objekt ), …da hat Holger aber das zwischen Array stufe ausgelassen ( Da bin ich gewohnt das ich dann intern in VBA was ändern in das Array vor ich es dann wieder raus zum Arbeitsblätter Paste )

Hoffe dass noch eine bisschen hilft

Alan

P.s
@ Holger und Alex
( Übrigens, ganz Klein Typo in Holger Code:
= ws.Cells(5, varColOrig(lngArr))
)

P.s. 2
@ Holger
Falls Du Zeit hast wäre es eine tolle letzter Beitrag wenn du etwa ' kommentieren Deine Code ( evtl meine ' kommentieren korrigieren!! ) so wie ich versuchte habe. Wäre die OP evtl. Hilfe es zu verstehen ( und mich auch Hilfe um mit meine etwas schlechter deutsch!! )
Danke nochmal fürs extra Beitrag von dir
Alan

Hi, Alan,

ich halte überhaupt nichts davon, den Code noch einmal als Kommentar daneben zu schreiben (wofür gibt es eigentlich die Online-Hilfe oder den Objekt-Browser?). Die Personen, die danach "schreien", Kommentare zu erhalten, vergessen nämlich meistens, ihren Kommentar an Änderungen im Code anzupassen. Und "good habit" ist es meiner Meinung nach, eine Beschreibung im Kommentarkopf einer Prozedur zu geben oder oberhalb der Stelle, die man aus bestimmten Gründen so verwenden sollte.

Darüberhinaus finde ich den Code, so wie Du ihn darstellst, überladen und zu sehr vom Wesentlichen ablenkend.

Den Schuh mit dem Fehler bei Cells muss ich mir leider anziehen, ich sollte wenigstens einmal den Debugger laufen lassen.

Ciao,
Holger

Originally Posted by HaHoBe

....
Darüber hinaus finde ich den Code, so wie Du ihn darstellst, überladen und zu sehr vom Wesentlichen ablenkend.....

.. klar doch – Du weise ja die Antwort****……..

Hi Holger

Danke für Antwort.
Ich bin ja sehr dankbar das erfahrend Leute Code geben und damit so viele Leute Hilfen. Echt toll, meine Meinung nach. Das ist das Haupt Sache.

Mit den ' Kommentar ist es evtl. Geschmack Sachen. Manche leibe sie, und sind sehr dankbar so wie war bei mir oft gesagt. Andere, oft sehr erfahrend Leute, wie Du, find sie ablenkend und irritiert. Sorry. Es ist nur das ich gehöre zu den Leute die lernen will um weiter anderer zu Hilfen. Ich sehe so viel super Codes in so viel Threads, Aber Leider ist die Leistung von die sie die Code geschrieben habe verloren an mich, weil ich zu dumm sind die Code zu verstehe.
Ich selber leider brauch die Kommentieren. Ich vergess alles sonnst. Und beim Lernen finde ich sie ideal. Aber nur meine Meinung ( Aber sie haben vollkommen recht, manchmal ich vergesse meine ' Kommentar an Änderungen im Code anzupassen !! )
Ich schreibe oft eine kleine Beschreibung im ' Kommentarkopf einer Prozedur oder oberhalb der Stelle. Dann aber zusätzlich viele zu die recht. Das ist eine versuche um alle zu glücklich machen – In die Code Fenster man sieht dann nur die lange ablenkend ' Kommentar wenn man mit Absicht die Bildlauf nach rechts schaut
Die Online-Hilfe oder den Objekt-Browser finde ich auch nicht so einfach immer. Manche erfahrend Leute sag mich sie halte nichts so viele davon. Sie sagen das in letzter Zeit es nicht so gut ist und man braucht ja fast die Antwort um zu wissen wo zu Schaueren****. Deswegen nochmal Toll das in dieses Forum Erfahrungen Leute gibt Hinweise wo zu suchen, oder doch selbe gib ' erklären.

Vielen danke für Deine Antwort und alle deine arbeite in Forums.
Schön Wochenende
Alan

P.s Deine Fehler war nichts. Ich Habs nur es angemerkt fürs OP, falls er unerfahrener ist: cell wurde oft als Range Objekt Variablen benutzt und fürs Anfänger sowas könnte verwirrend