Microsoft Excel

Herbers Excel/VBA-Archiv

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

Checkbox Werte übertragen, bitte um Hilfe | Herbers Excel-Forum


Betrifft: Checkbox Werte übertragen, bitte um Hilfe von: Hans
Geschrieben am: 16.02.2012 13:31:51

Hallo,

ich hätte gerne gewußt wie ich am besten aus einem Blatt durch aktivieren einer Checkbox bestimmte Werte in ein anderes Blatt eintrage. Habe mal ein Beispiel wie ich mir das vorstellen hochgeladen.

https://www.herber.de/bbs/user/78948.xls

Vielen Dank schon mal für die Hilfe.

Servus

  

Betrifft: AW: Checkbox Werte übertragen, bitte um Hilfe von: Rudi Maintaire
Geschrieben am: 16.02.2012 14:53:50

Hallo,
mal als Ansatz:

Sub Kopieren()
  Dim R1 As Long, R2 As Long, x As Object
  Set x = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
  If x.Value = 1 Then
    R1 = x.TopLeftCell.Row
    R2 = x.BottomRightCell.Row
    Cells((R1 + R2) / 2, 2).Resize(, 10).Copy
    Sheets("Ergebnisse").Cells(2, 2).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues,  _
Transpose:=True
    Application.CutCopyMode = False
  End If
End Sub

In ein Modul und den Kontrollkästchen zuweisen.

Gruß
Rudi


  

Betrifft: AW: Checkbox Werte übertragen, bitte um Hilfe von: Hans
Geschrieben am: 16.02.2012 15:12:59

Danke für Deine Antwort. Kannst Du mir das irgendwie in das Excel File rein packen ?
Bin mit der VBA Programmierung nicht vertraut.


Beiträge aus den Excel-Beispielen zum Thema "Checkbox Werte übertragen, bitte um Hilfe"