Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

311 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

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