Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in Werte umschreiben

Formel in Werte umschreiben
03.09.2003 13:15:26
mimi
Hallo, ist ein bißchen mehr als in der Überschrift.

ich habe in K3 eine Formel geschrieben, die ich in die ganzen Bereiche
eintragen (ich kopiere) möchte. Dann soll aus den Formeln ein fester Wert gemacht werden. Kann man die Bereiche irgendwie zusammenfassen? Und was ganz wichtig ist: Im nächsten Monat müssen die Formel eine Spalte weiter nach Spalte "L" aber die gleichen Zeilen.

Kann mir einer beim umschreiben helfen? Ich hab das per Rekorder gamacht, weil ich das so gut nicht kann...

Danke
Mimi


Sub FormelInWert()
Range("K3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC2,'Summen und Salden'!R3C1:R180C9,9,0)),0,VLOOKUP(RC2,'Summen und Salden'!R3C1:R180C9,9,0))"
Range("K3").Select
Selection.Copy
Range("K4:K23").Select
ActiveSheet.Paste
Range("K26:K37").Select
ActiveSheet.Paste
Range("K40:K59").Select
ActiveSheet.Paste
Range("K83:K88").Select
Range("K91:K95").Select
Range("K117").Select
Range("K18").Select
Selection.Copy
Range("K26:K37").Select
ActiveSheet.Paste
Range("K40:K59").Select
ActiveSheet.Paste
Range("K62:K80").Select
ActiveSheet.Paste
Range("K83:K88").Select
ActiveSheet.Paste
Range("K91:K95").Select
ActiveSheet.Paste
Range("K98:K114").Select
ActiveSheet.Paste
Range("K117:K134").Select
ActiveSheet.Paste
Range("K137:K148").Select
ActiveSheet.Paste
Range("K151:K174").Select
ActiveSheet.Paste
Range("K179:K191").Select
ActiveSheet.Paste
Range("K194:K227").Select
ActiveSheet.Paste
Range("K232:K252").Select
ActiveSheet.Paste
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in Werte umschreiben
03.09.2003 13:47:53
Christoph
Hallo mimi,
gebe den Zellen in der Spalte K einen Namen.
Alle betreffenden Zellen markieren -Einfügen - Namen - Namen eintragen (zB: Test)
und dann folgendes Makro:


Sub Formel_in_Bereich_Namen()
Range("A1").Copy
Range("Test").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub


wenn du nur die Werte kopieren willst und nicht die Formel, dann schreibst du
....
Range("Test").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
....

Für die Spalte L genauso, eben mit anderem Namen
Gruß
Christoph
Anzeige
AW: Formel in Werte umschreiben
03.09.2003 14:14:45
mimi
mhhh,

hatte mir das leichter vorgestellt! Mit Namen eingeben dauert das ja genauso lang.

Ich hab mir mal provisorisch geholfen. Ich hab den Buckstaben "K" durch "L" mit "suchen, ersetzt" geändert, weil in meinen Makro nur an 2 Stellen ein "K" vorkommt, wo ich es ganz schnell ändern kann.

Ist stümperhaft - geht aber 99% perfekt!!!

Danke trotzdem
AW: Formel in Werte umschreiben
03.09.2003 14:30:52
Christoph
Hi Mini,
genauso könntest du das K der Spalte in z.B: Range("K62:K80") durch eine Variable ersetzen.
Dabei ist die Schreibweise mit Cells(Spalte, Zeile) hilfreich
Range(Cells(62, i),Cells(82, i))...
setzte dann i =11. (11 ist die 11. Spalte, also K) das nächste Mal setzt du i = 12 für Spalte L

hoffe dir geholfen zu haben
Gruß
Christoph
Anzeige
AW: Formel in Werte umschreiben
03.09.2003 14:16:16
xXx
Hallo,
das schreibt dir die Formeln in die Spalte, die du markiert hast und wandelt gleich in Werte um:

Sub FormelInWert()
Dim strFormel As String, iCol As Integer, arrRng, t As Byte, rngFormel As Range
Application.ScreenUpdating = False
strFormel = "=IF(ISERROR(VLOOKUP(RC2,'Summen und Salden'!R3C1:R180C9,9,0)),0,VLOOKUP(RC2,'Summen und Salden'!R3C1:R180C9,9,0))"
iCol = ActiveCell.Column
'Bereichsdefinition (erste-letzte Zeile)
arrRng = Array(3, 23, 26, 37, 40, 59, 62, 80, 83, 88, 91, 95, 98, 114, 117, 134, _
137, 148, 151, 174, 179, 191, 194, 227, 232, 252)
For t = 0 To UBound(arrRng) - 1 Step 2
Set rngFormel = Range(Cells(arrRng(t), iCol), Cells(arrRng(t + 1), iCol))
rngFormel.FormulaR1C1 = strFormel 'Formel einfügen
rngFormel.Copy  'Bereich kopieren
rngFormel.PasteSpecial xlPasteValues  'Werte einfügen
Next t
Application.CutCopyMode = False
Cells(3, iCol).Select
Application.ScreenUpdating = True
End Sub


Gruß aus'm Pott
Udo
Anzeige

305 Forumthreads zu ähnlichen Themen

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
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Anzeige
Text in einer Spalte formatieren
Martin

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...
04.01.2009 10:57:00
Thread-ID: 1036687
5 Beiträge
Formel WENN DANN
Hirtenanna

Hallo Gemeinde,
wende mich heute mit einem Formelproblem an Euch, wo ich bisher keine Lösung für ergoogeln bzw. im Forum finden konnte. Weiß nur, das es sich wohl um eine WENN DANN Formel handeln muß.
Also:
Ich habe in den Zellen V4 R4 N4 J4 F4 Z4 Zeiten stehen, welche als Summe in...
25.01.2009 12:12:00
Thread-ID: 1043536
11 Beiträge
Formel mit festem Textinhalt
Felix

Hallo Zusammen
Könnte mir jemand diese Formel überprüfen warum sie nicht geht!
C8 = ist der Name der Gesellschaft
C9 = ist das Datum z.b. 31.Dezember 2008
="Abschlussmemo für die "&TEXT(Stammdaten!$C$8;"per")&TEXT(Stammdaten!$C$9;"TT. MMMMMMMM JJJJ")
Für Eure hilfe...
30.01.2009 21:22:49
Thread-ID: 1045527
3 Beiträge
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 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
2
9
4
4
2
4
10
2
4
1
5
2
2
5
1
1
1
6
8
2
10
1
6
5
6