Guten Morgen liebe Wissenden!
Folgendes Problem.
Ich habe Daten in einer Tabelle die ich filtern lasse, eine Formel ist auch dabei.
Wenn ich jetzt den Bereich mit den ausgefilterten (ausgeblendeten) Zellen mit markiere und in ein neues Tabellenblatt kopiere, nimmt er die Formel nicht mit sondern setzt ind das Feld nur das Formelergebniss, wie kann man das ändern, ich brauche in der neuen Tabelle die Formel.
MfG
Hi,
das ist bei Excel normal. ich gehe davon aus das Du Excel benutzt? Welche Version?
Bei 2007 und 2010 kannst Du oben in der symbolleiste bei Einfügen auswählen: „Formeln“.
Gruß
Fronk
Hallo,
ich benutze 2007!
Ich habe vergessen zu erwähnen das das über ein Makro läuft, wie kann ich per VBA sagen das Excel die Formel kopieren soll?
MfG
Grüezi kasamui
Ich habe vergessen zu erwähnen das das über ein Makro läuft,
wie kann ich per VBA sagen das Excel die Formel kopieren soll?
Das muss eine Anweisung im Code geändert werden oder aber der Code muss geringfügig angepasst werden.
Wie lautet denn der momentan verwendete Code?
Mit freundlichen Grüssen
Thomas Ramel
Hier der Code, über den Autofilter lasse ich nach 2 verschiedenen Argumenten filtern, das eine (Schicht 1) befindet sich direkt unter dem Tabellenkopf sodass das andere (Schicht2) ausgeblendet wird, dabei funktioniert es, weil der Bereich zusammenhängt. Andersrum, also nach Schicht 2 gefiltert, läuft es nicht!?
Schicht = ComboBox2.Text
Columns(„B:B“).Select
'In Spalte D befindet sich die Bezeichnung der Schicht
Selection.AutoFilter
ActiveSheet.Range("$b:blush:b").AutoFilter Field:=1, Criteria1:=Schicht _
, Operator:=xlOr, Criteria2:="="
'Setzt Autofilter für Schichten, inklusive Leerfelder
Kalenderwoche = ComboBox1.Text
Rows(„2:2“).Select
'In Zeile 2 befindet sich die Bezeichnung der Kalenderwoche
If ComboBox1.Text = „“ Then
MsgBox „Bitte eine Kalenderwoche auswählen!“
Else
Selection.Find(What:=Kalenderwoche, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Select
'Sucht nach angegebener Kalenderwoche
If ComboBox2.Value = „“ Then
MsgBox „Bitte eine Schicht auswählen!“
Else
Dim zeile As Long
zeile = Range(ActiveCell, Cells(Cells.Rows.Count, ActiveCell.Column)).Find(„Ende“).Row
Range(ActiveCell, Cells(zeile, ActiveCell.Column)).Select
'Wählt die Zelle der Kalenderwoche und die 50 darunterliegenden aus
Selection.Copy
'Kopiert markierte, sichtbare Zellen
Sheets(ComboBox2.Value).Activate
'Springt in das Tabellenblatt der ausgewählten Schicht
Range(„B2“).Select
ActiveSheet.Paste
'Fügt kopierte Zellen ein