Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren von Zeilen in anderes Arbeitsblatt mittels Checkbox
12.10.2017 07:33:55 stonegate
NotSolved
12.10.2017 16:25:45 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
stonegate
Datum:
12.10.2017 07:33:55
Views:
33
Rating: Antwort:
  Ja
Thema:
Kopieren von Zeilen in anderes Arbeitsblatt mittels Checkbox

Hallo zusammen,

 

ich habe eine Excel Datei mit verschiedenen Arbeitsblättern.

 

In einer Spalte habe ich Checkboxen (ActiveX) platziert. Wenn man eine Checkbox anklickt möchte ich, dass der Inhalt der jeweiligen Zeile in der sich die Checkbox befindet in ein anderes Arbeitsblatt (Gesamt) kopiert wird. Dies muss mit mehreren Checkboxen funktionieren, und sobald eine Checkbox wieder geleert (FALSE) wird soll die kopierte Zeile auch wieder auf dem Gesamtblatt gelöscht sein. Weiterhin soll er alle per Checkbox ausgewählten Zeilen immer untereinander kopieren.

Ich habe folgenden Code aber das funktioniert hinten und vorne nicht. Da ich mit VBA keinerlei Erfahrungen habe und nun schon seit Tagen lese aber keine Lösung finde bitte ich hier um Hilfe. Vielleicht kann mir ja jemand helfen.

 

Vielen Dank

Stoney

 

Private Sub CheckBox1_Click()
 
   Application.ScreenUpdating = False
   If CheckBox1.Value = True Then
      Range("A3:R3").Copy 'Zeile kopieren
      erste_leere_Zeile = Worksheets("Gesamt"). _
      Range("A13").End(xlUp).Offset(1, 0).Row
      Worksheets("Gesamt").Cells(erste_leere_Zeile, 1). _
      PasteSpecial Paste:=xlPasteFormulas 'kopierte Zeile einfügen
      If CheckBox1.Value = False Then
      Range("B40000:AA40000").Delete
   End If
End Sub
 
Private Sub CheckBox2_Click()
Application.ScreenUpdating = False
   If CheckBox2.Value = True Then
      Range("A4:R4").Copy 'Zeile kopieren
      erste_leere_Zeile = Worksheets("Gesamt"). _
      Range("A13").End(xlUp).Offset(1, 0).Row
      Worksheets("Gesamt").Cells(erste_leere_Zeile, 1). _
      PasteSpecial Paste:=xlPasteFormulas 'kopierte Zeile einfügen
      Range("B40000:AA40000").Delete
   End If
End Sub
 
 
Private Sub CheckBox3_Click()
 
Application.ScreenUpdating = False
   If CheckBox1.Value = True Then
      Range("A5:R5").Copy 'Zeile kopieren
      erste_leere_Zeile = Worksheets("Gesamt"). _
      Range("A13").End(xlUp).Offset(1, 0).Row
      Worksheets("Gesamt").Cells(erste_leere_Zeile, 1). _
      PasteSpecial Paste:=xlPasteFormulas 'kopierte Zeile einfügen
      Range("B40000:AA40000").Delete
   End If
 
End Sub
 
Private Sub CheckBox4_Click()
 
Application.ScreenUpdating = False
   If CheckBox1.Value = True Then
      Range("A6:R6").Copy 'Zeile kopieren
      erste_leere_Zeile = Worksheets("Gesamt"). _
      Range("A13").End(xlUp).Offset(1, 0).Row
      Worksheets("Gesamt").Cells(erste_leere_Zeile, 1). _
      PasteSpecial Paste:=xlPasteFormulas 'kopierte Zeile einfügen
      Range("B40000:AA40000").Delete
   End If
 
End Sub
 
Sub TransferData()
   Dim Dst As Worksheet, Src As Worksheet
   Dim ch As Object
   Dim nRow As Long
   Dim Ze As Long
  
   Set Src = Worksheets("Datenquelle")
   Set Dst = Worksheets("Gesamt")
  
   With Src
      For Each ch In .OLEObjects
         With ch
            If .progID = "Forms.CheckBox.1" Then
               If .Object.Value = True Then
                  Ze = .TopLeftCell.Row
                  If Src.Cells(Ze, 7) <> True Then
                     nRow = Dst.Cells(Rows.Count, 2).End(xlUp).Row + 1
                    For i = 2 To 6
                        Dst.Cells(nRow, i - 1) = Src.Cells(Ze, i)
                     Next i
                     Src.Cells(Ze, 7) = True
                  End If
               End If
            End If
         End With
      Next
   End With
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren von Zeilen in anderes Arbeitsblatt mittels Checkbox
12.10.2017 07:33:55 stonegate
NotSolved
12.10.2017 16:25:45 Gast7777
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar