Hallo zusammen,
stehe vor der Aufgabe, Spalten, bzw. Zeilen per Steuerelement (Checkbox) in ein anderes Sheet zu kopieren. Bisher schaut das bei mir so aus:
Private Sub CheckBox1_Click()
Worksheets(„SCT5 Anbote“).Cells(2, Spalte).Select
Selection.Copy
Worksheets(„KA“).Cells(2, Spalte).Paste
End Sub
Das FUnktioniert aber überhaupt gar nicht.
Kann mir da jemnad helfen?
Danke.
Hallo Redheadfox,
probier es mal so:
Private Sub CheckBox1_Click()
Worksheets(„SCT5 Anbote“).Cells(2, Spalte).Copy
Worksheets(„KA“).Paste Worksheets(„KA“).Cells(2, Spalte)
End Sub
Viel Erfolg !
Hallo,
versuch mal folgendes Beispiel:
Dim wksSource As Worksheet, wksTarget As Worksheet
Set wksSource = Workbooks(„mappe1.xls“).Worksheets(1)
Set wksTarget = Workbooks(„mappe2.xls“).Worksheets(1)
wksTarget.Cells(1, 1) = wksSource.Cells(1, 1)
Mappe1 und 2 müssen existieren und geöffnet sein.
Mit Gruß,
Christian
Hi, ich denke, du musst „Range“ nehmen, nicht „cells“.
Versuche mal, das ganze aufzuzeichnen, es sollte dir weiterhelfen.
Gruß PoD
Hallo Redheadfox,
da kann ich dir leider auf Anhieb nicht weiter helfen. Ich hoffe, jemand anderes konnte das erledigen.
Viele Grüße
Philipp
Hallo,
sorry, dass ich erst jetzt antworte.
Versuche den Kopiervorgang vielleicht mal so:
Dim Bereich As Range
Set Bereich = Worksheets(„SCT5 Anbote“).Range(„a1:a10“)
If CheckBox1 = True Then
Bereich.copy Destination:= Worksheets(„KA“).Range(„a1“)
End If
CheckBox1.Value = False
Grüße
Dieses Macro kopiert die mit (2,Spalte) adressierte Zelle vom ersten Worksheet in das 2., also eine einzige Zelle!!
Welchen Inhalt hat diese Zelle, welchen Inhalt hat der Wert „Spalte“ ?
Funktioniertz gar nicht? Was siehst Du denn, wenn Du mit Einzelschritt durchgehst?
Gruß
Wolfram
Sry…
Kann dir da nicht helfen.
Viel Erfolg aber.
ich verstehe deine frage nicht.