Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In Zellen Werte statt Formeln

In Zellen Werte statt Formeln
12.10.2007 20:00:00
roger
Hallo,
ich suche einen VBA Code, der folgendes erledigt: Ich habe in den Spalten A-w Formeln bis Zeile 400 (Ab Zeile 26). Jeden Tag wird eine neue Zeile mit Werten gefüllt( Damit nicht #NV oder BEZUG erscheint (in den Zellen die noch nicht Werte enthalten) habe ich =Wenn(Tabelle1!A1="";"";..........) gemach). Das funktioniert auch sehr gut. Nun habe ich jedoch das Problem, dass die Spalten F & H Formeln beinhalten, welche auf eine Zelle mit Werten zugreiffen, die ab und zu ändern. Was aber in der Vergangenheit durch die Formeln ermittelt wurde, soll auch so bleiben und nicht nochmals mit dem veränderten Wert rechnen. So, ich will also dass die letzte (und alle obendran bis Zeile 26) mit Werten beschriebenen Zellen in den Spalten F & H keine Formeln mehr sind, sondern Werte. Kann man das mit VBA lösen? Es soll nicht mit Kopieren und als Wert einfügen ablaufen, denn das müsste man jeden Tag dann machen.
Vielen Dank,
Roger

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Zellen Werte statt Formeln
12.10.2007 20:13:06
Worti
Hallo Roger,
meinst du so etwas:


Sub FormelnZuWerten()
    Dim Bereich As Range
    Dim lngEnde As Long
    lngEnde = Cells(Rows.Count, 6).End(xlUp).Row
    Set Bereich = Union(Range("F26:F" & lngEnde), Range("H26:H" & lngEnde)).Cells.SpecialCells(xlCellTypeFormulas)
    Bereich.Value = Bereich.Value
End Sub


Gruß Worti
Anzeige
AW: In Zellen Werte statt Formeln
12.10.2007 20:25:00
roger
Hallo Worti,
ich denke schon. Kann ich den Code einer schaltfläche zuweisen, die ich sonst schon für einen anderen Befehl gebrauche? Oder kann ich den Code so in meine UserForm einbauen, dass bei Aufruf dieser, der Code automatisch abläuft?
Vielen Dank für Deine Antwort,
Roger

AW: In Zellen Werte statt Formeln
12.10.2007 20:29:00
Worti
Hallo roger,
du könntest den Code zB. in das Userform.Activate-Ereignis einbauen.
Hinter eine schaltfläche legen ist natürlich auch immer möglich.
Gruß Worti

AW: In Zellen Werte statt Formeln
12.10.2007 20:40:31
roger
Ich komme leider bei VBA nicht klar. Ich habe den Code nun einfach in die Tabelle4 (Code) reingeschrieben. Das funktioniert leider nicht. Kannst Du mir nochmals helfen?
Danke im Voraus,
Roger

Anzeige
AW: In Zellen Werte statt Formeln
12.10.2007 20:46:00
Worti
Hallo nochmal,
lad die Mappe mal hoch, dann bau ich es dir ein.
Worti

AW: In Zellen Werte statt Formeln
12.10.2007 20:55:47
roger
Hallo Worti,
hier die massiv abgespeckte Tabelle (musste sein). Die Spalten sind C & G ab zeile 26.
Vielen Dank.
roger

Die Datei https://www.herber.de/bbs/user/46731.xls wurde aus Datenschutzgründen gelöscht


AW: In Zellen Werte statt Formeln
12.10.2007 21:14:00
Worti
Hallo Roger,
hab mir auf die Schnelle ne Userform gebaut und den Code eingebaut. Siehe
https://www.herber.de/bbs/user/46732.xls
Gruß Worti

Anzeige
AW: In Zellen Werte statt Formeln
12.10.2007 21:24:00
roger
Hallo Worti,
funktioniert leider nicht. Zwar wird die Zelle 26 als Wert geschrieben, die anderen aber nicht. Kann man den code nicht "Automatisch" laufen lassen, das heisst ohne Anweisung. So quasi ständig im Hintergrund?
Vielen Dank,
Roger

AW: Noch offen
13.10.2007 14:20:00
roger
Noch offen

AW: In Zellen Werte statt Formeln
13.10.2007 15:16:14
Daniel
Hallo
ich hoffe, ich habs richtig verstanden
- Du schreibst in den ganzen Zellbereich Formeln rein, am Anfang haben alle Formeln den Wert "".
- jeden Tag kommen informationen hinzu, so daß sich das Formelergebnis von "" auf einen anderen Wert ändert.
- jetzt möchtset du, daß ohne dein Zutun die Formeln, die schon einen Wert als Ergebnis haben, durch ihren Wert ersetzt werden (als Fix sind), aber die Formeln, die noch das "" als Ergebnis haben, sollen erhalten bleiben.
Wenn das zurtrifft, probier mal diesen Code, er gehört in das Modul der Tabelle.
bei jeder Berechnung wird geprüft, ob die Zellen ein Ergebis "" haben und wenn ja, dann wird der Wert fixert, ansonsten bleibt die Formel erhalten.
(ich habs aber mangels Beispieldatei nicht getestet!)

Private Sub Worksheet_Calculate()
Dim Zelle As Range
On Error GoTo ende
Application.EnableEvents = False
For Each Zelle In Range("F26:H400").SpecialCells(xlCellTypeFormulas, 7)
If Zelle.Value  "" Then Zelle.Formula = Zelle.Value
Next
ende:
Application.EnableEvents = True
End Sub


Gruß, Daniel

Anzeige
AW: In Zellen Werte statt Formeln
13.10.2007 15:33:30
roger
Hallo Daniel,
ja, du hast das genau richtig erkannt! Ich habe nun bei der Tabelle4 (ich habe 8 Blätter) einfügen gedrückt und dann Modul gewählt. Dort habe ich den Code eingeführt. Ist das richtig? leider funktioniert es nicht.
Vielen Dank,
Roger

AW: In Zellen Werte statt Formeln
13.10.2007 16:49:12
Daniel
Hi
im Prinzip gehört der Modul der jeweiligen Tabelle, in der er laufen soll.
d.h. klickst in der Baumstrukur des Projekexplorers das Element für die Tabelle doppelt und fügst dann den Code im Codebereich ein.
soll der Code für alle 8 Blätter laufen oder nur für Tabelle4?
wenns nicht funktioniert, dann lad doch mal das beispiel hoch, sonst lässt sich da kaum was sagen.
und VBA - Anfängekurs übers Forum zu geben ist auch sehr mühselig.
Gruß, Daniel
Anzeige

305 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 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
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 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
Anzeige

Links zu Excel-Dialogen

UserForm

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
7
4
1
4
2
5
1
2
1
6
6
2
17
6
6
6
6
2
3
5
6
7
2
4
2