Hallo,
ich habe folgendes Problem und komme nicht mehr weiter.
Für mehrere Protokolle habe ich eine Excel erstellt. Dort gibt es mehrere Tabellenblätter für jedes Protokoll mit jeweils 50 Zeilen von denen jede eine Checkbox hat.
Wenn der Benutzer nun einen Protokollpunkt als offen anklickt, wird er im ersten Tabellenblatt als offener Punkt angezeigt.
Problem ist jetzt, dass ich das ganze ja aktualisieren will, falls ein Punkt dann doch abgearbeitet wird.
Sub Aktualisieren()
' beim Aktualisieren werden zuerst alle offenen Punkte gelöscht.
' Danach wird abgefragt, welche Punkte in den Tabellen alle noch offen sind und diese werden dann wieder in die Tabelle zu den offenen Punkten eingefügt
Sheets("Offene Punkte").Range(Rows(3), Rows(Rows.Count)).Delete
' Loeschen aller Zeilen ab Zeile 3, nur in Tabelle "offene Punkte"
Sheets.Select
If CheckBox1 = False Then
Range("A11:J11").Copy
Sheets("Offene Punkte").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Else
End If
End Sub
diesen Code unten müsste ich natürlich dann 50 mal mit den jeweiligen Zeilen eintippen.
der code funktionier auch, wenn der benutzer im nachhinein ein neues tabellenblatt einfügt, da ja später auch neue Protokolle dazukommen werden.
Leider legt der code die offenen Punkte nicht in das dafür vorgesehene Tabellenblatt ab sondern in das jeweilige aus dem er es heraus holt.
könnt ihr mir bitte weiterhelfen.
Gruß Johannes
|