Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln_in_Werte_umwandeln

Forumthread: Formeln_in_Werte_umwandeln

Formeln_in_Werte_umwandeln
09.04.2014 15:48:09
Selma
Hallo Leute,
was muss ich bitte im Code anpassen, damit die Aktionen in aufgeführten Arbeitsblättern durgeführt werden?
Sub Formeln_in_Werte_umwandeln()
'Januar
With Sheets("Januar")
Columns("D:D").EntireColumn.Hidden = False
Range("A9:NX500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
Columns("D:D").EntireColumn.Hidden = True
End With
'Februar
With Sheets("Februar")
Columns("D:D").EntireColumn.Hidden = False
Range("A9:NX500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
Columns("D:D").EntireColumn.Hidden = True
End With
'März
With Sheets("März")
Columns("D:D").EntireColumn.Hidden = False
Range("A9:NX500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
Columns("D:D").EntireColumn.Hidden = True
End With
End Sub
Viele Grüße,
Selma

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln_in_Werte_umwandeln
09.04.2014 16:27:45
hary
Moin Selma
Mach's ohne Copy. Innerhalb einer with Anweisung musst du einen Punkt davor setzen damit VBA weiss wo die range ist. 
With Sheets("Januar")
.Columns("D:D").EntireColumn.Hidden = False
.Range("A9:NX500").Value = .Range("A9:NX500").Value
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
.Columns("D:D").EntireColumn.Hidden = True
End With

ungetestet.
gruss hary

Anzeige
AW: Formeln_in_Werte_umwandeln
10.04.2014 09:54:42
Selma
Danke hary!
Gruß,
Selma

AW: Formeln_in_Werte_umwandeln
10.04.2014 10:00:38
Selma
Hallo Hary,
lässt sich dieser Code auch mit With bezüglich Performance optimieren?
Sheets("Januar").Select
Columns("D:D").EntireColumn.Hidden = False
Range("A9").FormulaLocal = "=WENN(Mitarbeiter!A4>0;Mitarbeiter!A4;"""")"
Range("B9").FormulaLocal = "=WENN(Mitarbeiter!B4<>"""";Mitarbeiter!B4;"""")"
Range("C9").FormulaLocal = "=WENN(UND(Mitarbeiter!B4<>"""";Mitarbeiter!C4<>"""");Mitarbeiter!C4;"""")"
Range("D9").FormulaLocal = "=WENN(UND(Mitarbeiter!B4<>"""";Mitarbeiter!E4<>"""");Mitarbeiter!E4;"""")"
Range("E9").FormulaLocal = "=WENN(Mitarbeiter!S4<>"""";Mitarbeiter!S4;"""")"
Range("AK9").FormulaLocal = "=WENN($B9>"""";(ZÄHLENWENN($F9:AJ9;""U""))+((ZÄHLENWENN($F9:AJ9;""U½"")/2))+((ZÄHLENWENN($F9:AJ9;""uh"")/2));"""")"
Range("AL9").FormulaLocal = "=WENN(ISTFEHLER(E9+(AK9*-1));"""";(E9+(AK9*-1)))"
Range("AM9").FormulaLocal = "=WENN(B9>"""";ZÄHLENWENN(F9:AJ9;""K"")+((ZÄHLENWENN(F9:AJ9;""kh"")/2))+((ZÄHLENWENN(F9:AJ9;""K½"")/2));"""")"
Range("AN9").FormulaLocal = "=WENN($B9>"""";ZÄHLENWENN($F9:AJ9;""S"")+((ZÄHLENWENN($F9:AJ9;""sh"")/2))+((ZÄHLENWENN($F9:AJ9;""S½"")/2));"""")"
Range("A9:E9").Select
Selection.Copy
Range("A10:E500").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("AK9:AN9").Select
Selection.Copy
Range("AK10:AN500").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Range("A9:AT9").AutoFill Destination:=Range("A9:AT500"), Type:=xlFillDefault
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
Columns("D:D").EntireColumn.Hidden = True
Viele Grüße,
Selma

Anzeige
AW: Formeln_in_Werte_umwandeln
11.04.2014 13:18:45
hary
Moin Selma
Probier mal. 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheets("Januar")
.Columns("D:D").EntireColumn.Hidden = False
.Range("A9:A500").FormulaLocal = "=WENN(Mitarbeiter!A4>0;Mitarbeiter!A4;"""")"
.Range("B9:B500").FormulaLocal = "=WENN(Mitarbeiter!B4"""";Mitarbeiter!B4;"""")"
.Range("C9:C500").FormulaLocal = "=WENN(UND(Mitarbeiter!B4"""";Mitarbeiter!C4""""); _
Mitarbeiter!C4;"""")"
.Range("D9:D500").FormulaLocal = "=WENN(UND(Mitarbeiter!B4"""";Mitarbeiter!E4""""); _
Mitarbeiter!E4;"""")"
.Range("E9:E500").FormulaLocal = "=WENN(Mitarbeiter!S4"""";Mitarbeiter!S4;"""")"
.Range("AK9:AK500").FormulaLocal = "=WENN($B9>"""";(ZÄHLENWENN($F9:AJ9;""U""))+((ZÄHLENWENN($ _
F9:AJ9;""U½"")/2))+((ZÄHLENWENN($F9:AJ9;""uh"")/2));"""")"
.Range("AL9:AL500").FormulaLocal = "=WENN(ISTFEHLER(E9+(AK9*-1));"""";(E9+(AK9*-1)))"
.Range("AM9:AM500").FormulaLocal = "=WENN(B9>"""";ZÄHLENWENN(F9:AJ9;""K"")+((ZÄHLENWENN(F9: _
AJ9;""kh"")/2))+((ZÄHLENWENN(F9:AJ9;""K½"")/2));"""")"
.Range("AN9:AN500").FormulaLocal = "=WENN($B9>"""";ZÄHLENWENN($F9:AJ9;""S"")+((ZÄHLENWENN($F9: _
AJ9;""sh"")/2))+((ZÄHLENWENN($F9:AJ9;""S½"")/2));"""")"
ActiveWindow.Zoom = 100
Application.GoTo Reference:=.Range("A1"), Scroll:=True
.Columns("D:D").EntireColumn.Hidden = True
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

gruss hary

Anzeige
AW: Formeln_in_Werte_umwandeln
11.04.2014 15:25:21
Selma
Danke Hary....
Vg,
Selma
;

Forumthreads zu verwandten 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
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
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
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
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
Anzeige
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
Anzeige
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
Anzeige
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
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige