VBA : Zellwerte kopieren in andere Zelle

[zabulon]

Hallo,

habe in den Zellen K70 bis K75 Werte, die ich  1.) im gleichen Tabellenblatt ( Blatt1) in die Zellen L70 bis L75 und gleichzeitig in ein zweites Tabellenblatt (Blatt2) in die Zellen K70 bis K75 kopieren möchte.

Kriege das im Tabellenblatt hin, nicht aber im Makro mit VBA.

[HKindler]

Hi Zabulon,

bei deinen grundlegenden Fragen würde ich dir echt mal einen VBA-Kurs ans Herz legen!

Code:

Worksheets("Blatt1").Range("L70:L75") = Worksheets("Blatt1").Range("K70:K75")
Worksheets("Blatt2").Range("K70:K75") = Worksheets("Blatt1").Range("K70:K75")

kopiert nur die Werte

Code:

With Worksheets("Blatt1").Range("K70:K75")
    .Offset(, 1) = .Value
    Worksheets("Blatt2").Range("K70:K75") = .Value
End With

Exakt dasselbe wie eben, nur weniger Schreibarbeit.

Code:

Dim tmp As Variant
tmp = Worksheets("Blatt1").Range("K70:K75")
Worksheets("Blatt1").Range("L70:L75") = tmp
Worksheets("Blatt2").Range("K70:K75") = tmp

kopiert ebenfalls nur die Werte, ist aber schneller, da weniger Blattzugriffe stattfinden

Code:

Dim tmp As Variant
tmp = Worksheets("Blatt1").Range("K70:K75")
Worksheets("Blatt1").Range("L70").Resize(Ubound(tmp)) = tmp
Worksheets("Blatt2").Cells(70, "K").Resize(Ubound(tmp)) = tmp

im Grund dasselbe wie eben, aber flexibler, wenn sich die Größe des Quellbereichs ändert.

Code:

Worksheets("Blatt1").Range("K70:K75").Copy Worksheets("Blatt1").Range("L70:L75")
Worksheets("Blatt1").Range("K70:K75").Copy Worksheets("Blatt2").Range("K70:K75")

kopiert alles (auch Formeln)

Code:

Worksheets("Blatt1").Range("K70:K75").Copy
Worksheets("Blatt1").Range("L70:L75").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("Blatt2").Range("K70:K75").PasteSpecial xlPasteValuesAndNumberFormats

kopiert nur Werte und Zahlenformate

Und es gibt noch viel viel mehr Varianten um Werte zu kopieren.

[zabulon]

Hallo Helmut,

zunächst mal Danke für Deine ausführliche Hilfe.

Seltsamerweise funktioniert das Kopieren in das gleiche Tabellenblatt, nicht aber in das andere Tabellenblatt. 

Ich muß dazu noch folgendes erklären. Bei den Werten in der Spalte K70 bis K75 handelt es sich um Werte, die ich mit der XVERWEIS-Funktion aus Werten in der Spalte I70 bis I75 nach Rang sortiert
habe. 
Und genau das scheint das Problem zu sein.

Wenn ich die Werte aus der I-Spalte mti Deinem Befehl kopiere, funktioniert das, aber eben nicht mit der K-Spalte, weil da in den Zellen eine Funktion steht.

Hast du eine Ahnung wieso das so ist und ob es eine Möglichkeit gibt, daß es trotzdem auch mit der K-Spalte klappt, denn die Werte müssen unbedingt sortiert in das andere Blatt kopiert werden.

Gruß Andreas

[HKindler]

Welche der vielen Varianten hast du getestet?
Kennst du den Unterschied zwischen „Werte kopieren“ und „Formeln kopieren“?

[zabulon]

Nachtrag:

Ich hab es jetzt geschafft, indem ich die sechs Felder einzeln kopiert habe.

  Worksheets("Slot-Machine").Range("K70").Copy
    Worksheets("Slot-Machine").Range("L70").PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Berechnungen").Range("E30").PasteSpecial xlPasteValuesAndNumberFormats
   
    Worksheets("Slot-Machine").Range("K71").Copy
    Worksheets("Slot-Machine").Range("L71").PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Berechnungen").Range("F30").PasteSpecial xlPasteValuesAndNumberFormats
   
    Worksheets("Slot-Machine").Range("K72").Copy
    Worksheets("Slot-Machine").Range("L72").PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Berechnungen").Range("G30").PasteSpecial xlPasteValuesAndNumberFormats
   
    Worksheets("Slot-Machine").Range("K73").Copy
    Worksheets("Slot-Machine").Range("L73").PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Berechnungen").Range("H30").PasteSpecial xlPasteValuesAndNumberFormats
   
    Worksheets("Slot-Machine").Range("K74").Copy
    Worksheets("Slot-Machine").Range("L74").PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Berechnungen").Range("I30").PasteSpecial xlPasteValuesAndNumberFormats
     
    Worksheets("Slot-Machine").Range("K75").Copy
    Worksheets("Slot-Machine").Range("L75").PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Berechnungen").Range("J30").PasteSpecial xlPasteValuesAndNumberFormats


    Ich hab mich übrigens vertan. Die Werte sollen aus einer Spalte in eine Zeile geschrieben werden. 

   Wenn ich das Script so ausführe, blitzt der Monitor auf, während die Zahlen eingetragen werden. Gibt es auch einen Befehl, mit dem man Werte aus einer Spalte in eine Zeile eintragen kann?

[zabulon]

Hallo Helmut,

ich hab es jetzt endlich, nach viel Tüftelei, geschafft.

Die Zahlen aus der Spalte hab ich im Excel-Tabellenblatt in eine Zeile kopiert  ( hätte ich auch früher drauf kommen können ! ) und dann mit folgenden Befehlen

    Worksheets("Slot-Machine").Range("N70:S70").Copy
    Worksheets("Slot-Machine").Range("N71:S71").PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Berechnungen").Range("E30:J30").PasteSpecial xlPasteValuesAndNumberFormats
   
 dahin gebracht, wo sie hingehören.

 Nochmals tausend Dank für Deine umfangreiche Hilfe !

 Gruß Andreas

[Kuwer]

Hallo Andreas,

das Transponieren geht auch so, ohne den Zielbereich komplett angeben zu müssen:

Code:

    Worksheets("Slot-Machine").Range("N70:S70").Copy
    Worksheets("Slot-Machine").Range("N71").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
    Worksheets("Berechnungen").Range("E30").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

Gruß Uwe