Microsoft Excel

Herbers Excel/VBA-Archiv

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

Checkbox zelle Kopieren | Herbers Excel-Forum


Betrifft: Checkbox zelle Kopieren von: Partick
Geschrieben am: 31.07.2012 16:08:01

Hallo Experten

Ich habe folgendes Excelsheet. Und würde gern jeweil aus der Spalte D und I jeweils den Text den ich mit der Checkbox markiert habe, in das Sheet auswertung kopieren in die nächste freie Zelle.
Und wenn ich die Checkbox abwähle soll er wieder draussen sein.

Kann mir bitte jemand helfen ich bin nun schon ne Woche dran und bekomm das einfach nicht hin.

Lieber Gruss Patrick

https://www.herber.de/bbs/user/81222.zip

  

Betrifft: AW: Checkbox zelle Kopieren von: Rudi Maintaire
Geschrieben am: 31.07.2012 16:54:41

Hallo,
in den Code des Blatts (Schritt1)

Private Sub CheckBox1_Click()
  prcText Me.CheckBox1
End Sub

Private Sub CheckBox2_Click()
  prcText Me.CheckBox2
End Sub
Für die anderen Checkboxen analog.

In ein Modul:
Sub prcText(objChk As Object)
  Dim lngRow
  Select Case objChk
  Case True
  With Sheets("Auswertung")
    lngRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(lngRow, 1) = objChk.TopLeftCell.Offset(, -6)
    .Cells(lngRow, 2) = objChk.TopLeftCell.Offset(, -1)
    With .Cells(lngRow, 5)
      .Value = objChk.Parent.Name & objChk.Name
      .NumberFormat = ";;;"
    End With
  End With
  Case Else
    With Sheets("Auswertung")
      lngRow = Application.Match(objChk.Parent.Name & objChk.Name, .Columns(5), 0)
      If Not IsError(lngRow) Then .Rows(lngRow).Delete
    End With
  End Select
End Sub
Gruß
Rudi


  

Betrifft: AW: Checkbox zelle Kopieren von: Patrick
Geschrieben am: 31.07.2012 18:26:23

He Danke dir Ruedi

Das ist ja super. Ich dachte zwar das es möglich sein muss ohne jeden Button zu erfassen aber das ist ja kein Riesenaufwand. Also werde ich es so machen.
Nochmals Herzlichen Dank

Gruss Patrick


  

Betrifft: AW: Checkbox zelle Kopieren von: Rudi Maintaire
Geschrieben am: 31.07.2012 18:49:44

Hallo Patrieck, ;-)
prinzipiell könnte man das über eine eigene Klasse erledigen. War mir aber zu viel Aufwand und ich wollte dich bei dem Kenntnisstand nicht auch noch damit belasten.

Gruß
Rudi ohne e


  

Betrifft: AW: Checkbox zelle Kopieren von: Patrick
Geschrieben am: 02.08.2012 09:42:29

Sorry Rudi wir schweizer schreiben den Ruedi viel so..

Klassen kannst du mir das ganz kurz erklären was das genau ist.

Danke noch mal funkt super


Beiträge aus den Excel-Beispielen zum Thema "Checkbox zelle Kopieren"