Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen aus X beliebigen Tabellenblättern in ein einziges Sammeln und aktualisieren
 02.06.2016 09:46:21 Johannes
NotSolved

Ansicht des Beitrags:
Von:
Johannes		 Datum:
02.06.2016 09:46:21		 Views:
1376		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen aus X beliebigen Tabellenblättern in ein einziges Sammeln und aktualisieren
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

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:



  • 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 Zeilen aus X beliebigen Tabellenblättern in ein einziges Sammeln und aktualisieren
 02.06.2016 09:46:21 Johannes
NotSolved