Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel als Wert anzeigen

Forumthread: Formel als Wert anzeigen

Formel als Wert anzeigen
Heinz
Schönen Tag im Forum
Habe in C3:AG3 lauter Sverweisformeln stehen.
Jetzt besteht die Gefahr das ein Mitarbeiter diese Formeln löscht. (Blattschutz geht aus anderen Gründen nicht)
Könnte man die Formeln nicht in eine VBA Code umwandeln,so das nur Werte eingetragen werden?
Gruß
Heinz
Schichttausch

 CDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAG
300031313232333300031313232333300031313232333300031

Formeln der Tabelle
ZelleFormel
C3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;2;0)
D3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;3;0)
E3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;4;0)
F3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;5;0)
G3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;6;0)
H3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;7;0)
I3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;8;0)
J3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;9;0)
K3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;10;0)
L3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;11;0)
M3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;12;0)
N3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;13;0)
O3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;14;0)
P3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;15;0)
Q3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;16;0)
R3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;17;0)
S3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;18;0)
T3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;19;0)
U3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;20;0)
V3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;21;0)
W3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;22;0)
X3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;23;0)
Y3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;24;0)
Z3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;25;0)
AA3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;26;0)
AB3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;27;0)
AC3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;28;0)
AD3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;29;0)
AE3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;30;0)
AF3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;31;0)
AG3=SVERWEIS($B$3;Jänner!$B$500:$AG$524;32;0)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel als Wert anzeigen
26.03.2012 12:32:00
JoWE
Hallo Heinz,
so vllt.: Sub Makro1() Dim i As Long, z As Range For Each z In Range("C3:AG3") i = i + 1 z.Formula = "=VLOOKUP($B$3,Jänner!$B$500:$AG$254," & i & ",0)" Next End Sub
Gruß
Jochen
AW: Formel als Wert anzeigen
26.03.2012 12:59:37
Heinz
Hallo Jochen
Erstmals recht herzlichen Dank,für deine Hilfe,so im grossen und ganzen passt es.
NUR in C3 kommt ein Fehler
C3 =SVERWEIS($B$3;Jänner!$B$500:$AG$524;1;0)
Es sollte aber mit 2 beginnen
C3 =SVERWEIS($B$3;Jänner!$B$500:$AG$524;2;0)
Könntest du das bitte noch für mich ändern ?
Danke Heinz
Anzeige
AW: Formel als Wert anzeigen
26.03.2012 14:23:00
JoWE
so vllt.? 
Sub Makro1()
Dim i As Long, z As Range
i = 2
For Each z In Range("C3:AG3")
z.Formula = "=VLOOKUP($B$3,Jänner!$B$500:$AG$254," & i & ",0)"
i = i + 1
Next
End Sub

Gruß
Jochen
AW: Formel als Wert anzeigen
26.03.2012 14:50:02
Heinz
Hallo Jochen
Jetzt funktionierts.
Recht herzlichen Dank.
Gruß
Heinz
Anzeige
AW: Nachfrage
26.03.2012 15:57:18
Heinz
Hallo Jochen
Hätte mir jetzt für mehrere Monate etwas gebastelt.
Nur funkt.es so leider nicht.
Könntest du bitte eine eventuelle Anpassung machen?
Danke Heinz 
Sub Svereis_einfügen()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Long, z As Range
'Jänner
a = 2
For Each z In Range("C3:AG3")
z.Formula = "=VLOOKUP($B$3,Jänner!$B$500:$AG$524," & a & ",0)"
a = a + 1
Next
'Februar
b = 2
For Each z In Range("C7:AE7")
z.Formula = "=VLOOKUP($B$7,Februar!$B$500:$AG$524," & b & ",0)"
b = b + 1
Next
'März
c = 2
For Each z In Range("C11:AG11")
z.Formula = "=VLOOKUP($B$7,März!$B$500:$AG$524," & c & ",0)"
c = c + 1
Next
'April
d = 2
For Each z In Range("C15:AF15")
z.Formula = "=VLOOKUP($B$7,April!$B$500:$AG$524," & d & ",0)"
d = d + 1
Next
'Mai
e = 2
For Each z In Range("C19:AG19")
z.Formula = "=VLOOKUP($B$7,Mai!$B$500:$AG$524," & e & ",0)"
e = e + 1
Next
'Juni
f = 2
For Each z In Range("C23:AF23")
z.Formula = "=VLOOKUP($B$7,Juni!$B$500:$AG$524," & f & ",0)"
f = f + 1
Next
'Juli
g = 2
For Each z In Range("C27:AG27")
z.Formula = "=VLOOKUP($B$7,Juli!$B$500:$AG$524," & g & ",0)"
g = g + 1
Next
'August
h = 2
For Each z In Range("C31:AF31")
z.Formula = "=VLOOKUP($B$7,August!$B$500:$AG$524," & h & ",0)"
h = h + 1
Next
'September
i = 2
For Each z In Range("C35:AF35")
z.Formula = "=VLOOKUP($B$7,September!$B$500:$AG$524," & i & ",0)"
i = i + 1
Next
'Oktober
j = 2
For Each z In Range("C39:AG39")
z.Formula = "=VLOOKUP($B$7,Oktober!$B$500:$AG$524," & j & ",0)"
j = j + 1
Next
'November
k = 2
For Each z In Range("C43:AF43")
z.Formula = "=VLOOKUP($B$7,November!$B$500:$AG$524," & k & ",0)"
k = k + 1
Next
'Dezember
l = 2
For Each z In Range("C47:AG47")
z.Formula = "=VLOOKUP($B$7,Dezember!$B$500:$AG$524," & l & ",0)"
l = l + 1
Next
End Sub

Anzeige
AW: Nachfrage noch offen
26.03.2012 16:24:41
robert
Dim a, b, c, d, e, f, g, h, i, j, k, l As Long, z As Range
Hi,
zur Info-
bei dieser Dimensionierung ist nur l As Long, alle vorigen als Variabel
Gruß
robert
AW: Nachfrage noch offen
26.03.2012 19:05:48
JoWe
Hallo nochmal,
ja, ihr habt natürlich alle recht mit der Deklaration-
Aber da liegt der Hund ja nicht begraben!!
Heinz,
Du mußt immer auf das entsprechende Tabellenblatt referenzieren:
statt ' 

For Each z In Range("C3:AG3")
' muss es lauten: ' 


For each z in Sheets("Jänner").Range("C3:AG3")
' und für die anderen Monate in dieser Form weiter. Du solltest übrigens nur mit der Variablen a arbeiten. Die wird ja zu Beginn jeder Schleife sowieso wieder auf 2 gesetzt. Dann sparst Du auch die Menge der Deklarationen.
Gruß
Jochen
Anzeige
AW: Nachfrage noch offen
26.03.2012 20:35:58
Heinz
Hallo Jochen
So funkt.es
Recht herzlichen Dank.
Gruß
Heinz 
Sub Svereis_einfügen()
Dim i As Long, z As Range
'Jänner
i = 2
For Each z In Sheets("Schichttausch").Range("C3:AG3")
z.Formula = "=VLOOKUP($B$3,Jänner!$B$500:$AG$524," & i & ",0)"
i = i + 1
Next
'Februar
i = 2
For Each z In Sheets("Schichttausch").Range("C7:AE7")
z.Formula = "=VLOOKUP($B$7,Februar!$B$500:$AG$524," & i & ",0)"
i = i + 1
Next
'März
i = 2
For Each z In Sheets("Schichttausch").Range("C11:AG11")
z.Formula = "=VLOOKUP($B$11,März!$B$500:$AG$524," & i & ",0)"
i = i + 1
Next

Anzeige
AW: Nachfrage noch offen
27.03.2012 09:00:09
JoWE
Hallo Heinz,
so könnte es evtl. auch klappen: 
Sub Svereis_einfügen()
Dim i As Long, z As Long, p As Long, ze As Object
p = 3
For z = 2 To Sheets.Count
If Month(CDate("01. " & Sheets(z).Name & " 2012")) >= 1 And _
Month(CDate("01. " & Sheets(z).Name & " 2012"))

Gruß
Jochen
Anzeige
AW: Nachfrage noch offen
27.03.2012 09:26:14
Heinz
Hallo Jochen
Super !!
Ist um einiges kürzer.
Recht herzlichen Dank!!
Gruß
Heinz
;

Forumthreads zu verwandten Themen

Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Formeln und Text
Juergen

Hallo all zusammen,
ich habe wieder einmal eine Frage:
kann man Formeln und Texte kombinieren?
Ich habe über Winkel;Bogenmaß den tangens der Winkel berechnet und möchte nun in dem Kombinationsfeld ersichtlich machen welcher tangens zu welchem Winkel gehört.
Z.B 0,364 = tan 20°
23.09.2008 18:08:11
Thread-ID: 1011848
8 Beiträge
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Anzeige
Exceldaten als Fliestext in Word einbinden?
Frank

Hallo zusammen,
ich habe eine halbe Excel und halbe Wordfrage :-)
Ich habe eine Exceltabelle mit diversen Zahlenmaterial. Das Zahlenmaterial wird ständig aktualisiert. Parallel dazu habe ich einen geschriebenen Langtext in Word, der eine Art ausführliche Erklärung zur Exceltabelle darst...
23.10.2008 07:08:00
Thread-ID: 1018498
3 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 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 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
Anzeige
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 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
Ergebnis in Formel = FALSCH
Josef

Hallo!
Ich bekomme bei nachstehender Formel immer die Fehlermeldung FALSCH.
=WENN(A1=1;VERKETTEN(C1;B1;"";WENN(A1=2;VERKETTEN(C2;B1;""))))
Die Werte stehen jedoch in den Spalten. In A1 entweder 1 oder 2 in der Spalte B 2008 und in C1 und C2 verschiedene Texte.
Wo habe ich hier b...
03.12.2008 14:11:00
Thread-ID: 1029820
7 Beiträge
Formel: Summe= Monat, Jaht und Text
Frank

Hallo, bräuchte mal eure Hilfe.
Habe eine Tabelle und möchte nur die Anzahl des Textes die in A stehen
aber nur von bestimmtem Jahr und Monat
es wird erst in M der Monat gesucht den ich in B2 eingebe
dann das Jahr in M das ich in F1 eingebe
und nun der Text der in A steht.
14.12.2008 10:38:00
Thread-ID: 1032734
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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