Inhalt einer zelle Kopieren

Private Sub CheckBox21_Click() If CheckBox21.Value = True Then Worksheets("Terminverwaltung").Range("D20").Copy Worksheets("Einladung zur Untersuchung").Range( _ "E6") Else If CheckBox21.Value = False Then Worksheets("Einladung zur Untersuchung").Range("E6"). _ ClearContents End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub checkBox21_Click() If CheckBox21.Value = True Then Sheets("Einladung zur Untersuchung").Range("E6").End(xlDown).Offset(1).Value = _ Sheets( _ "Terminverwaltung").Range("D20").Value ElseIf CheckBox21.Value Then Sheets("Einladung zur Untersuchung").Range("E6").ClearContents End If End Sub

Private Sub CheckBox21_Click() If CheckBox21.Value = True Then Worksheets("Einladung zur Untersuchung").Range("E6").Value = Worksheets("Terminverwaltung"). _ Range("D20").Value Else Worksheets("Einladung zur Untersuchung").Range("E6") = "" End If End Sub

Habe Deine Datei verändert:-).
ein kleines Tabellenblatt hinzugefügt(ist ausgeblendet)
Einige Zellen die die gleiche hintergrundfarbe wie Vordergrudfarbe haben, die stehen jeweils in verbindung mit einer checkbox, also sieht man nicht, bei neuen Checkboxen sollte man es so weiter machen.
Makros wurde stark geändert, vieles gelöscht.
Das Drucken Teil ok,
ich würde empfehlen eine .xlsm, datei vorziehen, aber wie dem auch sei, wahrscheinlich nutzen sie noch office 2003.
eine sache hatte nicht geklappt mit dem Selektieren oberen Bereich in der Tabelle, wenn man in das Tabellenblatt wieder rein geht, nach ihrem auswahl-Drucken Button.
Das verborgene Tabellenblatt sollten sie bei Formular änderungen auch anpassen.
hmm, hoffe das geht so.
Wenn man vba code schreibt, steigt schnell die Dateigröße einer ExcelDatei, jetzt hat die Datei 2,6mb
weiß net was ich machen kann. gebe es dir per dropbox, da ich hier nur 300k hochladen kann.
Hat jemand eie idee wie man die exceldatei klein bekommt, vielleicht hat der werden da ja noch zwischen arbeitsschritte gespeichert, oder sonstiges.
Naja habe versucht die Datei als .xls zu speichern, daraus wurden 2,569mb und als .xlsm datei daraus wurden 515kb :-)
Wenn du kein office 2003 dann nutze bitte die xls version.
wenn du eine neuers office hast, dann nutze doch bitte die .xlsm datei.
Da ich die nicht hochladen kann per herber.de nehme ich einen public dropbox folder als link, hier.
https://dl.dropboxusercontent.com/u/9682476/Einladung%20zur%20Untersuchung.xls
https://dl.dropboxusercontent.com/u/9682476/Einladung%20zur%20Untersuchung.xlsm
habe da zuviel zeit denke ich verbraucht, und habe gleich ne menge nochmal gelernt, bzgl. drucken, benutzerdefinierte Ansichten.
Ich hätte dennoch gerne ein Feedback.
Gruß
ExtremeExceling :-)

hatte dein Tabellenblatt etwas verändert, aber meine Wichtigste Frage ist:
Welcher Bereich Solll den kopeiert werden
soll das im für jeweils 1 Datensatz
Tabellenblatt:Terminverwaltung
Zellbereich:
D20 und F20:O20 sein
oder nurfür den 1. z.B D20
ich würde das entweder per formel machen
Der die nächste Sache im Tabellenblatt
Einladung zur Untersuchung
hast due den ZellBereich A6:G6 einmal überschreiben, es waren keineWerte dort drinnen von wo sollen diese befeüllt werden, Bitte ein Beispiel vom 1. Datensatz
dann in in der Zelle A11 wurde der Bezug entfern, wo gehört der hin?
C8 sollte wohl =Terminverwaltung!$F$5, rein aber wen ich über nachdenkeund man für einen neuen Termin macht, sind für die alten Einladungskarte neue Datumswerte drinne, kann man aber kopieren.
Woher sollen die Daten in G1, habe keinen Bezug.
Ich dachte das ich jetzt per makro diese Dateivorlage einfach untereinander Hänge, und eine eindeutige Nummer mit Datum oder so festlege, als Kürzel.
Dan kann man diesen Bereich ggf. leichter ausdrucken.
ggf. mit dynamischen druckbereichen :-)
die Checkboxen habe ich jeweils verlinkt mit der dahinterliegenden Zelle, das heist mankann die Zelle bearbeiten um die checkbox zu bearbeiten, das ist einfacher per vba zu handhaben.
Bitte ich weiß nicht in welche Richtig es hier genu gehen soll. habe mir das Tabellenblatt einige Zeit angeschaut.
eine persönliche nachricht, wäre denke ich schneller, da es etwas schierig ist so zu helfen, wenn man nicht genau die Richtung hier erkennen kann. Ok ich denke das kommt von verschienden Lösungsansätzen.
Habe die Datei nicht fertig, habe einiges angefangen, man kann das sehr praktisch umsetzen, hätte nur gerne ein paarinformationen.
Ich kann meine halbfertigeDatei hochladen aber die läuft noch nicht.
Eine Frage, sollen die alten Einladungskarten erhalten bleiben?
die nicht zu dem besagten Termin Datum ghören, dan würde ich auch eine eindeutige Nummer vergeben,
nach dem muster, TerminAlsDatum_Nr.
Ok, sehe geradedas wenn die jeweilige Checkbox angklickt wurde, ein entsprechenden Bereich
in "Einladung zur Untersuchung" eingeblendet bzw. ausgeblendet werden.
Sollen die karten ggf. als Bild gleich in die Zwischenablage kopiert werden,
und per email versendet, oder gespeichert werden?
oder einzeln gleich ausgedruckt werden?
Ich danke für die Antworten

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

337 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt einer zelle Kopieren

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

337 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread