Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte einfügen

Forumthread: Werte einfügen

Werte einfügen
30.07.2007 20:10:00
Heinz
Hallo Leute
Habe unteres Macro zum Werte in eine anderes Blatt.
Nun möchte ich aber zusätzlich zu "Const ber = "B3:K13"
Noch Werte Zb.von C16:D27 nach M2:Q15
Könnte mir Bitte jemand weiterhelfen.
Danke Heinz

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Const ber = "B3:K13"
Dim i As Integer
i = Val(InputBox("Wo möchten sie die Werte eintragen ?"))
If i = 0 Then Exit Sub
If i  36 Then MsgBox "Die Meisterschaft hat nur 36 Runden !": Exit Sub
ActiveSheet.Range(ber).Copy
Sheets("R" & i).Range("B3:K13").PasteSpecial xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Protect
End Sub


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte einfügen
30.07.2007 22:48:54
Matthias
Hallo Heinz
Evtl. ist ja meine Vermutung richtig und der Code passt so?
Option Explicit

Private Sub CommandButton1_Click()
Dim i As Integer
Const ber = "B3:K13"
Application.ScreenUpdating = False
ActiveSheet.Unprotect
i = Val(InputBox("Wo möchten sie die Werte eintragen ?"))
If i = 0 Then Exit Sub
If i  36 Then MsgBox "Die Meisterschaft hat nur 36 Runden !": Exit Sub
ActiveSheet.Range(ber).Copy
Sheets("R" & i).Range("B3:K13").PasteSpecial xlPasteValues
ActiveSheet.Range("C16:D27").Copy Sheets("R" & i).Range("M2")
Application.CutCopyMode = False
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub


Bin mir aber nicht sicher, was Du bezweckst. Die Bereiche ("C16:D27") und ("M2:Q15") sind doch unterschiedliche Bereiche.
Was soll denn wohin?
Ich habe also mal Range("C16:D27") als Quelle und Range("M2") als Ziel gewählt.
Diese 2 Zeilen habe ich noch eingefügt:
Mit Application.ScreenUpdating = False wird die Bildschirmaktualisierung während des Code abgeschalten.
Mit Application.ScreenUpdating = True wird die Bildschirmaktualisierung wieder eingeschalten.
Und da ich mir nicht sicher bin, lasse ich den Beitrag offen.
Userbild

Anzeige
AW: Werte einfügen
31.07.2007 08:39:09
Heinz
Hallo Matthias
Genau So,Deine Vermutung war absolut richtig !!!
Recht herzlichen DANK.
Noch einen schönen Tag,Gruß Heinz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige