Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln bis zu einer bestimmten Spalte löschen

Formeln bis zu einer bestimmten Spalte löschen
05.10.2012 10:50:45
Lutz
Hallo zusammen,
gibt es eine Möglichkeit die Formeln in Zellen bis zu einer bestimmten Spalte zu löschen, den Wert aber bei zubehalten?
Also normalerweise (jedenfalls ist das die Lösung die ich kenne) kann man mit:
With Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Alle Formeln in einem Tabellenblatt löschen.
Jetzt möchte ich gerne alle Formeln löschen bis zu der Spalte, in der in Zeile 2 die Zahlen "2012-2016" stehen. Also angenommen "2012-2016" steht in Spalte FR dann soll vor dieser Spalte alle Formeln gelöscht werden und alle Formeln ab der Spalte FR beibehalten werden. Problematisch ist dabei, dass sich die Zahlen 2012-2016 pro Jahr verändern, d.h. im Jahr 2013 steht dann da: "2013-2017". Ich würde da in die Richtung Find (What:="Year (Date)"&"-"&"Year(Date)+4" gehen?!
Ich weiß aber nciht ob das so richtig ist.
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt.
Ich freue mich über jegliche Anregung.
Gruß Lutz

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag
05.10.2012 10:55:47
Lutz
Sorry hab noch was vergessen:
Die Spalte in der "2012-2016" steht ist nicht immer die gleiche, sodass man wirklich nach den Zahlen suchen muss und nicht einfach eine feste Spalte deklarieren kann.
Danke
Gruß Lutz

With .UsedRange.Cells -> .Value = .Value
05.10.2012 11:57:21
Matthias
Hallo Lutz
Also die Zellen erst kopieren ist nicht immer nötig.
Beispiel: 
With ActiveSheet.UsedRange.Cells
.Value = .Value
End With
hier ein konkretes Beispiel:
https://www.herber.de/bbs/user/81994.xls
Hilft das weiter ?
Gruß Matthias

Anzeige
AW: With .UsedRange.Cells -> .Value = .Value
05.10.2012 12:15:37
Lutz
Hallo Matthias,
vielen Dank! Nur steht bei mir der Inhalt "2012-2016" in Zeile 2 (also als Spaltenüberschrift) und die Werte beginnen ab Zeile 4. Kann man das Ganze so abändern, dass bis zu der besagten Spalten, die Formeln aus den Spalten davor gelöscht werden?
Nochmals Danke!
Gruß Lutz

Sorry, keine Zeit mehr ... kwT
05.10.2012 12:27:14
Matthias

AW: Sorry, keine Zeit mehr ... kwT
05.10.2012 14:22:43
Lutz
Hallo zusammen,
kann mir denn einer sagen warum ich den Code von Matthias nicht in einer anderen Mappe (rüberkopiert) anwenden kann? Hat er vielleicht vorher irgendetwas in dem Modul oder sonstigem deklariert oder so etwas in der Art?
Danke
Gruß Lutz

Anzeige
Rückfragen und noch ein Code
05.10.2012 17:18:24
Erich
Hi Lutz,
nein, Matthias hat nichts vorher deklariert oder dergleichen.
Was genau meinst die mit "den Code von Matthias nicht in einer anderen Mappe anwenden kann"?
Was genau hast du versucht? Was ist dabei passiert? Läuft der Code (mit falschem Ergebnis?)?
Gibt es Fehlermeldungen?
Wo steht der Code? In einem Modul? In welchem?
Hast du auch die beiden ersten Zeilen des Moduls übertragen? Ich meine
Option Explicit
Public MyStrg$
Probier mal - am besten in einem anderen Modul: 

Option Explicit
Sub FormelZuWertenBis()
Dim varS ' as Variant
With ActiveSheet
varS = Application.Match(Year(Date) & "-" & Year(Date) + 4, .Rows(2), 0)
If IsNumeric(varS) Then
If varS > 1 Then
With .UsedRange.Columns(1).Resize(, varS - .UsedRange.Column)
.Formula = .Value
End With
End If
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
ist eigentlich erledigt ...
05.10.2012 23:22:59
Matthias
Hallo Lutz
Auszug aus Zitat:
... warum ich den Code von Matthias nicht in einer anderen Mappe (rüberkopiert) anwenden kann?
Vielleicht liegts am Zeilenumbruch
schreib das ... 
MyCol = Cells.Find(What:=MyStrg, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Address

... mal alles in eine Codezeile (ohne die Unterstriche)
also so: 
MyCol = Cells.Find(What:=MyStrg, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address
Aber Du mußt nicht ewig weiter probieren, der Code von Erich macht genau das was Du brauchst !
Gruß Matthias

Anzeige
AW: ist eigentlich erledigt ...
07.10.2012 12:41:39
Lutz
Hallo Erich, hallo Matthias,
entschuldigt bitte meine späte Antwort. Ich möchte euch beiden nur kurz danken!!! Die Version von Erich hat einwandfrei funktioniert und ist genau das was ich gesucht habe.
Vielen Dank und ein schönes Restwochenende
Gruß
Lutz

315 Forumthreads zu ähnlichen Themen

Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
Anzeige
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
formel in zelle,mit makro
rolf

hallo
wie kann ich diese formel =DATEDIF(E2;$F$1;"Y") mit einem makro in tabelle1 zelle f2 eintragen.
mfg rolf
25.11.2008 23:12:13
Thread-ID: 1027900
3 Beiträge
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
2
4
3
5
10
5
6
2
6
2
8
5
1
5
8
3
4
4
1
3
5
10
4
3