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:
1109		 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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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