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