Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
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
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in Werte umwandeln (Tabellen-Spalte)

Formel in Werte umwandeln (Tabellen-Spalte)
25.11.2017 03:23:17
Kisska
Hallo allerseits,
ich suche nach einem kurzen Code, der in eine Tabellenspalte das Ergebnis einer Formel als Werte schreibt.
Meine Formel für die Spalte "test": 

Sub String_Dateiname()
Range("Tabelle1[test]") = _
"=RIGHT(LEFT(MID(CELL(""Dateiname"",R[-15]C[-4]),FIND(""["",CELL(""Dateiname"",R[-15]C[- _
4]))+1,FIND("".xl"",CELL(""Dateiname"",R[-15]C[-4]))-FIND(""["",CELL(""Dateiname"",R[-15]C[-4]))-1),10),6)"
End Sub
Meine Makro-Lösung für Umwandlung in feste Werte: 

Range("Tabelle1[test]").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Gibt es eine bessere und kürzere Lösung?
Ich habe nach Lösung im Weg gesucht und folgende Seite gefunden:
https://www.xing.com/communities/posts/formeln-in-werte-umwandeln-1002110352
werde allerdings daraus nicht schlau - was mit "Tabelle1.UsedRange.Value = Tabelle1.UsedRange.Value" gemeint ist.
Ich freu mich auf eure Tiips :-)
VG
Kisska

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
UsedRange: benutzter Bereich ...
25.11.2017 05:55:11
Matthias
Hallo
Sub Frml_in_Werte()
With Tabelle1.UsedRange.Cells
.Value = .Value
End With
End Sub
Wandelt alle Formelergebnisse im benutzten Bereich(UsedRange) in feste Werte um.
Kannst aber eben auch einen anderen Bereich angeben, statt UsedRange.Cells
z.B 
Sub Frml_in_Werte()
With Tabelle1.Range("B1:B25")
.Value = .Value
End With
End Sub
... wandelt eben dann die Formelergebnisse nur in diesem Bereich um.
Gruß Matthias
Danke & letzte Frage
26.11.2017 14:49:54
Kisska
Hallo Matthias,
Besten Dank für die Erklärung!
Dumme Frage, aber es interessiert mich: Sind die beiden Codes in der Ausübung völlig gleich bzw. welcher ist schneller/besser?
Nr1: 

With Range("Tabelle1[test]")
.Value = .Value
End With
Nr2: 

With Range("Tabelle1[test]")
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
VG
Kisska
Anzeige
AW: Kein select, bitte
25.11.2017 09:37:44
Gerd
Hallo,
dein Code, etwas eingedampft. 
Sub kisska()
With Range("Tabelle1[test]")
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Gruß Gerd
Danke!!
26.11.2017 14:03:52
Kisska
Oh lieben Dank für die Verbesserung, Gerd!
wie select hier umgehen?
26.11.2017 14:16:57
Kisska
Gern, eine kurze Frage:
Mein angepasster Code nach deiner Korrektur: 

Sub Dateiname_feste_Werte()
Application.CutCopyMode = False
' String aus Dateinamen in Spalte schreiben
Range("Tabelle1[test]") = _
"=RIGHT(LEFT(MID(CELL(""Dateiname"",R[-15]C[-4]),FIND(""["",CELL(""Dateiname"",R[-15]C[- _
4]))+1,FIND("".xl"",CELL(""Dateiname"",R[-15]C[-4]))-FIND(""["",CELL(""Dateiname"",R[-15]C[-4]))-1),10),6)"
' In feste Werte umwandeln
With Range("Tabelle1[test]")
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = True
Range("E17").Select
End Sub
Zum Ende des Codes habe ich E17 wählen lassen, damit die Markierung der Spalte weggeht. Kann man dieses Select umgehen oder ist es an dieser Stelle ok?
VG
Kisska
Anzeige
AW: wie select hier umgehen?
26.11.2017 16:20:44
Gerd
Hallo Kisska,
es gibt ein paar wenige Fälle, in denen Select Sinn macht oder notwendig ist.
Deiner ist so einer.
Application.CutCopyMode = False leert den Zwischenspeicher.
Diese Codezeile nach der Paste-Aktion reicht.
Gruß Gerd
AW: wie select hier umgehen?
26.11.2017 18:27:57
Kisska
Hi Gerd,
danke für die Aufklärung!
Ich habe mich in meinem Code verschrieben: statt "Application.ScreenUpdating" habe ich den Befehl
"Application.CutCopyMode" einkopiert
Aber "Application.CutCopyMode" nach Paste-Aktion zu setzen ist tatsächlich eine gute Idee, dankeschön!
VG
Kisska

321 Forumthreads zu ähnlichen Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Formel einfügen wenn in A:A Werte stehen
Micha

Hallo zusammen,
ich bastle mal wieder an meinen Münzdateien und komme nicht so richtig weiter.
Mein Problem:
In Spalte A stehen Werte (z.B. 5 Pf), diese möchte ich nun trennen [in B2 soll per VBA die Funktion =Links(A2;1) / FormulaR1C1 = "=LEFT(RC[-53],1) ].
Diese Formel sollte...
14.01.2009 21:28:00
Thread-ID: 1039822
13 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Kann Formel nicht in Makro umwandeln. mit bsp xls
Julia


Gestern habe ich hier tolle Hilfe zu einer Berechnung bekommen. Dank der Tipps hab ich die Formeln bekommen
Jetzt hat sich die Ausgangstabelle geändert. Ich hab zwar die Formeln bekomme das aber nicht als Makro hin.
Habe eine Bsp.xls hochgeladen:
https://www.herber.de/bbs/user/...
13.03.2009 11:11:25
Thread-ID: 1059789
4 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
6
3
8
12
2
5
12
7
14
3
3
2
15
5
4
2
2
2
10
4
6
1
4
1
17