Supportnet / Forum / Tabellenkalkulation

Hallo zusammen Ihr werdet sicherlich schmunzeln wei lihr die Lösung icher schon kennt , ich leider noch nicht folgendes : In A1 steht ein Wert mit einer Formel hinterlegt . In B1 bis H1 stehen nur Werte Die Werte in A1 bis H1 sollen in Tabelle 1 gelöscht , die Formel in A1 aber erhalten bleiben und gleichzeitig sollen die Werte von A1 bis H1 in Tabelle 2 kopiert werden ohne die Formel in A1 wer kann mir helfen ich bedanke mich im vorraus

Moin UGSHAN,

ich hätte da ein Makrolösung für Dich, wobei eine Aussage von Dir mir nicht ganz klar ist. Dass Du die Werte kopieren möchtest, ist mir klar, aber nicht, wie Du den Wert in A1, der ja durch eine Formel errechnet angezeigt wird, löschen möchtest. Wenn Du meinst, dass dort anstelle eines Wertes nach dem Kopieren und dem Löschen der Werte eine Null (0) stehen soll, müsstest Du schon mal sagen, auf welche Zellen sich die Formel bezieht, da man dann ja auch die Werte aus diesen Zellen löschen müsste. Wenn die Formel sich allerdings auf die Zellen bezieht, deren Werte durch das Makro gelöscht werden, erscheint durch das Löschen automatisch eine Null in Zelle A1.

Nachfolgend das Makro, welches Dir die Werte kopiert und in dem Tabellenblatt "Tabelle2" in die erste freie Zeile in Spalte A wieder einfügt. Kopiere nachfolgenden VBA Code in ein StandardModul und weise es einer Befehlsschaltfläche zu.

Option Explicit

Sub Kopieren()
Dim erste_freie_Zeile As Long
Application.ScreenUpdating = False
erste_freie_Zeile = Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).Row
Range("A1:H1").Copy
Sheets("Tabelle2").Cells(erste_freie_Zeile, 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Range("B1:H1").ClearContents
End Sub

Wenn der Name des Blattes, in das die Werte kopiert werden sollen, einen anderen als "Tabelle2" hat, dann müsstest Du in dem Makro in den Zeilen, in denen der Text "Tabelle2" steht, Deinen Blattnamen eintragen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 & 4 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke coros für das Makro . Ist genau das was ich suche
Noch schnell eine Frage . Kann man Formeln in Zellen unsichtbar machen !!
und Kann man die Schrift im sich aufklappenden Drop Down Feld vergrössern !!
Danke
einen schönen Sonntag

Hi UGSHAN ,

zu dem ersten Teil Deiner Frage: ja, das kann man. Klicke dazu die Zelle(n), die Formel(n) enthalten mit der rechten Maustatse an und wähle in dem Menü "Zellen formatieren". Wechsele auf das Registerblatt "Schutz" und markiere den Punkt "Ausgeblendet". Danach klicke auf OK und aktiviere den Blattschutz. Nach dem aktivieren des Blattschutzes sind die Formel(n) der Zelle(n), bei denen Du vorher "Ausgeblendet" aktiviert hast,nicht mehr sichtbar.

Zum 2. Teil Deiner Frage: Das geht mit einem Gültigkeitsfeld nicht. Dazu müsstest Du ein Kombinationsfeld aus der Symbolleiste "Steuerelement-Toolbox" verwenden. Dort kann man in den Eigenschaften die Schriftgröße/ -art verändern. Allerdings muss solch ein Kombinationsfeld durch ein VBA Code mit den Texten, die Du nachher auswählen möchtest, gefüllt werden.

Ich hoffe, Dir genügen die Antworten. Wenn nicht, dann melde Dich.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

An coros
Das reicht mir erstmal, werde mich damit beschäftigen
Danke für deine Unterstützung
Noch einen schönen Sonntag

Nabend UGSHAN,

freut mich, dass Dich meine Antworten etwas weitergebracht haben. Danke Dir auch für Deine Rückmeldung.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Abend coros
Das Makro fuzt doch nicht so richtig
Ich habe wohl das Problem falsch beschrieben
Hier noch mal neu
In zelle A1 steht die formel DATEDIF(C9;C2;"D")
In A1 wird mir die Differenz an Tagen , die sich aus C2 (=HEUTE() ) und C9 dem Datum des eintrages des datensatzes errechnet .
Nun soll der Datensatz aus tabelle 1 ohne Formel gelöscht( die formel soll erhalten bleiben )und der datensatz soll in Tabelle 2 kopiert werden( nur der Datensatz nicht die formel )
Ich hoffe , das ist jetzt etwas verständlicher
noch einen schönen abend

• beim kopieren einer zelle wird die formel kopiert und nicht deren wert
• Makro: Zellen mit Inhalt erkennen und kopieren
• Formaln kopieren