Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln im Diagramm durch Werte ersetzen

Formeln im Diagramm durch Werte ersetzen
05.01.2006 10:32:04
Bernd
Hallo!
Ich möchte in einem Diagramm die Formeln (Verknüpfungen) durch feste Werte ersetzen. Kennt da jemand eine Lösung?
Bei einem Tabellenblatt geht das z.B. so:
Dim Zelle As Range
On Error Resume Next
For Each Zelle In ActiveSheet.UsedRange
If Left(Zelle.Formula, 1) = "=" Then Zelle.Formula = Zelle.Value
Next
Gibt es da etwas ähnliches bei Diagrammen, oder muss man da einfach mit einer Hilftabelle arbeiten und dort die Formeln durch Werte ersetzen?
Grüße - Bernd

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln im Diagramm durch Werte ersetzen
05.01.2006 12:08:38
Herbert
hallo Bernd,


Option Explicit
Sub dQU_als_Werte_in_Diagr_einfügen()
Dim datr As Series, lz%, n$, t$
Dim arrX, arrV
With Sheets("Tabelle4")
     t = .[d1].Value
    
    With .ChartObjects(1).Chart
        For Each datr In .SeriesCollection
            arrX = datr.XValues
            arrV = datr.Values
            n = datr.Name
        Next
                      
             .ChartTitle.Characters.Text = t
             
        With .SeriesCollection(1)
              .Name = n
              .Values = arrV
             .XValues = arrX
        End With
        
    End With
End With
End Sub

     gruß Herbert
Anzeige
AW: Formeln im Diagramm durch Werte ersetzen
05.01.2006 12:43:08
Bernd
Hallo Herbert!
Zunächst einmal danke! Es klappt! Leider nur zum Teil: die Überschrift war auch verknüpft, und die ist jetzt weg. Außerdem habe ich den Ablauf nicht ganz verstanden, die eine oder andere Erläuterung wäre hilfreich.
Grüße - Bernd
AW: Formeln im Diagramm durch Werte ersetzen
05.01.2006 13:03:36
Bernd
Es gibt noch ein Problem: Es funktioniert nicht bei mehr als einer Datenreihe! Die erste Datenreihe wird mit der zweiten überschrieben, bei der zweiten bleiben die Verküpfungen erhalten.
Gruß - Bernd
AW: Formeln im Diagramm durch Werte ersetzen
05.01.2006 14:43:02
Herbert
probiers so:


Option Explicit
Public Sub dQU_Werte_in_Diagr_einfügen()
Dim i%, n$, t$
Dim arrX, arrV
With Sheets("Tabelle5")
     t = .[d1].Value
    With .ChartObjects(1).Chart
        .ChartTitle.Characters.Text = t
        
        For i = 1 To .SeriesCollection.Count
           With .SeriesCollection(i)
                arrX = .XValues
                arrV = .Values
                    n = .Name
            End With
           With .SeriesCollection(i)
              .Name = n
              .Values = arrV
             .XValues = arrX
           End With
        Next
        
    End With
End With
End Sub

     gruß Herbert
Anzeige
AW: Formeln im Diagramm durch Werte ersetzen
06.01.2006 09:47:46
Bernd
Deine erste Lösung habe ich gestern Nachmittag genauer analysiert, und bin dann zu einer ähnlichen Lösung gekommen. Nachdenken hilft doch manchmal! ;-)))
Trotzdem, danke vielmals!
Grüße - Bernd
war zum Nachdenken...
06.01.2006 11:46:42
Herbert
hallo Bernd,
mein erster Ansatz hätte ja noch zwei zusätzliche Schleifen gehabt,die ich gestern rausgestrichen habe,weil sie nicht nötig sind...dieses Beispiel war in der
Tat ganz schön zum Nachdenken,unbeabsichtigt...denn einerseits zwar alle Datenreihen mit For-Each ansprechen,dann allerdings nur mehr an die DR1 zuweisen,ist auch eine interessante Variante...habe ich gestern übersehen...
es geht natürlich auch mit For-Each,dann würde es so aussehen:


Sub dQU_als_Werte_einfügen()
Dim dr As Series, n$, t$
Dim arrX, arrV
With Sheets("Tabelle6")
     t = .[d1].Value
    
    With .ChartObjects(1).Chart
        .ChartTitle.Characters.Text = t
        
        For Each dr In .SeriesCollection
            arrX = datr.XValues
            arrV = datr.Values
            n = datr.Name
                   
             With dr
                .XValues = arrX
                .Values = arrV
                .Name = n
             End With
     Next
     
    End With
End With
End Sub

     gruß Herbert
Anzeige

304 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Verknüpfungen durch Werte ersetzen
Horst

Hallo Excel-Freunde!
Wie kann ich bei folgendem Makro angeben, dass nur Verknüpfungen ab der Spalte AA (Spalte 30) durch Inhalte ersetzt werden. Alle anderen Verknüpfungen sollen erhalten bleiben.
Sub update() Dim i As Long For i = 1515 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).R...
22.02.2009 12:18:26
Thread-ID: 1052805
4 Beiträge
Bei Blattschutz- Formeln durch Werte ersetzen
Mandy

Hallo Ihr Lieben,
habe mal wieder eine Frage: ich lade mit folgenden Code eine Datei und kopiere alle Tebellenblätter aus der Quelle bei mir rein.
Die Tabellenblätter der Quelle, die da eingelesen werden, habe zum Teil untereinander Verknüpfungen (Verweise). Beim einlesen wollte ich abe...
05.05.2009 15:04:37
Thread-ID: 1073102
7 Beiträge
Anzeige
Bestimmte Formeln in durch Werte ersetzen
Steffen

Hallo zusammen,
ich habe folgendes Problem:
ein spezielle Formel (Hyperion Retrieve AddOn(HPVAL)) transportiert externe Daten aus meinem Konsolidierungsprogramm in verschiedene Tabellenblätter einer Exceldatei. Diese externen Daten werden über normale Excelformeln in weiteren Tabellenbl...
21.08.2009 20:57:43
Thread-ID: 1097849
2 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 14:31:21
Thread-ID: 1142729
3 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 15:13:40
Thread-ID: 1142750
4 Beiträge
SVERWEISE finden und durch Werte ersetzen
grexx123

HAllo,
wie schon im Betreff beschrieben suche ich ein VBA-Schnipsel, das
1. Alle Sverweise sucht
2. Zellen, in denen ein SVERWEIS steht, mit "Wert" füttern (also kopieren und als Wert einfügen)
Ich weiß, dass man Verknüpfungen lösen kann, jedoch habe ich sowohl die Formel als au...
08.03.2010 13:25:36
Thread-ID: 1144304
6 Beiträge
Formeln in Zellen durch VBA ersetzen
Kuhlmey

Hallo, liebe Excel-Freunde ich habe folgendes Problem:
Mittels VBA setzte ich durch Doppelclick ein „X“ in bestimmte Zellen. Diese Zellen werden
ausgelesen und für nachfolgende Formel benötigt:
{=WENN(ZEILE()>ZÄHLENWENN(Tabelle1!A:A;"WAHR");"";INDEX(Tabelle1!B:B; KKLEINSTE(WENN(...
13.03.2010 14:03:05
Thread-ID: 1145598
18 Beiträge
Anzeige

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
4
17
3
6
4
1
2
3
5
17
2
6
10
3
4
7
8
10
9
2
1
5
13
2
3