Zeilen kopieren wenn Checkbox true

[tobi85]

Hallo zusammen,

ich habe mir ein kleines Excel-tool mit VBA  zur Produktionsplanung gemacht...nun hänge ich aber fest.

Also in der Tabelle1 ist der Produktionsplan in jeder Zeile steht ein Produkt und in den Spalten dahinter verschiedene Parameter.
Am Ende in der letzten Zelle ist eine Checkbox wenn der Artikel fertig ist, setzte ich den haken und die ganze Zeile wird grün hinterlegt.

Am Ende des Tages möchte ich alle Fertigen Zeilen in eine neues Tabellenblatt kopieren und den Zelleninhalt in Tabelle 1 löschen
über einen Button.

Danke schon mal im vorraus.

VG
Tobias

[Kuwer]

Hallo Tobias,

um welche Art von CheckBoxen handelt es sich genau?
Wie sind die CB´s benannt, haben sie verlinkte Zellen im Blatt?

Gruß Uwe

[tobi85]

Hallo

sind Aktive X Steuerelemente:


Private Sub CheckBox100_Click()
If CheckBox100.Value = True Then
Range("b24:h24").Interior.ColorIndex = 4 'hellgrün
Else
Range("b24:h24").Interior.ColorIndex = xlNone 'keine Hintergrund-Farbe
End If
End Sub

VG
Tobias

[Kuwer]

Hallo Tobias,

Deinen Informationen gemäß ein Versuch:

Sub FertigeWeg()
 Dim rngAlle As Range, rngZelle As Range
 For Each rngZelle In Application.Intersect(Columns(2), ActiveSheet.UsedRange)
   rngZelle.Select
   If rngZelle.Interior.ColorIndex = 4 Then
     If Not rngAlle Is Nothing Then
       Set rngAlle = Application.Union(rngAlle, rngZelle.Resize(, 7))
     Else
       Set rngAlle = rngZelle.Resize(1, 7)
     End If
   End If
 Next rngZelle
 If Not rngAlle Is Nothing Then
   rngAlle.Interior.ColorIndex = xlNone
   rngAlle.Copy Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(1)
   rngAlle = ""
 End If
End Sub

Gruß Uwe

[tobi85]

Hallo Uwe

vielen Dank nur leider tut sich gar nix.

ich möchte auch erst nach button betätigung kopieren und dann löschen



Vg
Tobias

[tobi85]

Hallo Uwe

hatte gestern einen kleinen Denkfehler drin.
Klappt super!
Danke

VG
Tobias