Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> 26. März: Office-Treffen Rhein-Main <-
Berechneten Wert in Textfeld ausgeben.
zurück: Excel Diagramm mit drei Dimensionen weiter: Diagramm erstellen - dringende Hilfe!! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
blicki
Es wird langsam besser...


Verfasst am:
05. Sep 2006, 13:40
Rufname: Martin
Wohnort: Meerbusch

Berechneten Wert in Textfeld ausgeben. - Berechneten Wert in Textfeld ausgeben.

Nach oben
       

Hallo Excel Gemeinde,
ist es möglich berechnete Werte aus einer Datentabelle in einem Textfeld auszugeben.

Folgender Hintergrund:
Ich erstelle und aktualisiere sehr häufig Diagramme.
In die Diagramme habe ich Textfelder mit zusätzlichen Informationen eingefügt.
Diese Textfelder müssen aber ständig (monatlich synchron mit den Diagrammen) aktualisiert werden, weil sich die Datenbasis ändert.
Nun ist es mir schon mehrfach vorgekommen, dass bei der Menge an Diagrammen die ich monatlich erstelle, einTippfehler unterlief oder ich ein Diagramm ganz vergessen habe bezüglich der Textfelder zu aktualisieren.
Bei Präsentationen ist das eben peinlich Confused
Gibt es eine Möglichkeit per VBA?
Code:
=SUMME(Auditierung!P14;Auditierung!P16;Auditierung!P17)

_________________
Gruß Martin
Ein paar gesammelte Werke habe ich in der Beispiele.mdb,die ihr auf meiner HP findet, zusammengefasst.
Alto
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Sep 2006, 13:58
Rufname:
Wohnort: HH


AW: Berechneten Wert in Textfeld ausgeben. - AW: Berechneten Wert in Textfeld ausgeben.

Nach oben
       

Hallo Martin,

was hälst du hiervon?
Code:
Sub textfeld1()


'
Dim t1
   
t1 = Range("A1").Value
   
    ActiveSheet.Shapes("Label 1").Select
    Selection.Characters.Text = t1
End Sub


mfg

Alto
blicki
Es wird langsam besser...


Verfasst am:
05. Sep 2006, 14:47
Rufname: Martin
Wohnort: Meerbusch

AW: Berechneten Wert in Textfeld ausgeben. - AW: Berechneten Wert in Textfeld ausgeben.

Nach oben
       

Jepp....
so klappts.
Muss mir nur noch das drum und drann programmieren.
Bei Bedarf melde ich mich dann nochmal.
Auf jeden Fall Danke.

Gruß Martin

_________________
Gruß Martin
Ein paar gesammelte Werke habe ich in der Beispiele.mdb,die ihr auf meiner HP findet, zusammengefasst.
blicki
Es wird langsam besser...


Verfasst am:
05. Sep 2006, 17:54
Rufname: Martin
Wohnort: Meerbusch

Re: AW: Berechneten Wert in Textfeld ausgeben. - Re: AW: Berechneten Wert in Textfeld ausgeben.

Nach oben
       

blicki - 05. Sep 2006, 15:47 hat folgendes geschrieben:
Jepp....
so klappts.
Muss mir nur noch das drum und drann programmieren.
Bei Bedarf melde ich mich dann nochmal.
Auf jeden Fall Danke.


Problem geht weiter....

Die Textfelder, die ich so füllen möchte befinden sich auf (in) einem Diagramm. Also ich meine auf der Diagrammfläche.
Beim Durchlaufen des Codes wird an der Stelle wo das Textfeld angesprochen wird ein Fehler verursacht.
Spreche ich ein Textfeld an welches in der Tabelle sitzt, so gehts.
Und dann habe ich noch eine Frage.
Wie kann ich Textfelder umbenennen.
Ich stelle mir vor sie mit 'TF' beginnen zu lassen und dann über eine For--Next Schleife 1-7 zu bestimmen, um die Werte reinzuschießen.
Das ganze möchte ich für Textfelder in 15 verschiedenen Diagrammen machen.
Muss man die Diagramme auch noch irgendwie ansprechen.
Kann man denen Namen geben, um sie anzusprechen?
Wenn ja wie geht das.
Hier erst mal der verwendete Code:
Code:
Private Sub CommandButton1_Click()
On Error GoTo Hop:
Dim t1
Dim n As Integer
Dim Ce As String

For n = 1 To 7
Ce = Range("C" & n + 1).Value 'Baue Textfeldnummer aus Tabelleninhalt zusammen
t1 = Range("B" & n + 1).Value ' Lese Zellwert für Textfeld aus
    ActiveSheet.Shapes("Textfeld " & Ce).Select ' Aktiviere Textfeld
    Selection.Characters.Text = t1 'Schreibe neuen Wert in Textfeld
    Range("N2").Select 'Springe zurück zum Tabellenanfang Zelle N2
Next n
Exit Sub
Hop:
MsgBox ("Kein Textfeld mit diesem Namen vorhanden!"), vbOKOnly
End Sub

_________________
Gruß Martin
Ein paar gesammelte Werke habe ich in der Beispiele.mdb,die ihr auf meiner HP findet, zusammengefasst.
Alto
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Sep 2006, 07:51
Rufname:
Wohnort: HH

AW: Berechneten Wert in Textfeld ausgeben. - AW: Berechneten Wert in Textfeld ausgeben.

Nach oben
       

Hallo nochmal,

um Textfelder im Diagramm umzubenennen:
Aktivieren ("auf den Rand klicken")> im Namenfeld (oben links)umbenennen

um das Diagramm umzubenennen:
STRG + Linksklick auf das Diagramm")> im Namenfeld (oben links)umbenennen

Klappt's jetzt?

mfg

Alto
blicki
Es wird langsam besser...


Verfasst am:
06. Sep 2006, 10:07
Rufname: Martin
Wohnort: Meerbusch


AW: Berechneten Wert in Textfeld ausgeben. - AW: Berechneten Wert in Textfeld ausgeben.

Nach oben
       

Ich kann zwar die Textfelder umbenennen aber sobald sie sich im Diagramm befinden kann ich sie mit folgender Befehlszeile nicht mehr ansprechen.

Code:
 ActiveSheet.Shapes("Textfeld " & Zelle).Select ' Aktiviere Textfeld

Ich habe dann mal ein Makro aufgezeichnet, um zu sehen, was dort steht.
Die Zeile muss heißen
Code:
 ActiveChart.Shapes("TF" & Zelle).Select

Dann werden auch Felder im Diagramm gefüllt.

Vielen Dank für deine Hilfe.

_________________
Gruß Martin
Ein paar gesammelte Werke habe ich in der Beispiele.mdb,die ihr auf meiner HP findet, zusammengefasst.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen




Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): Zelle anklicken und Wert automatisch suchen lassen? 11 neuling031280 111 13. Feb 2010, 13:14
kjot259 Zelle anklicken und Wert automatisch suchen lassen?
Keine neuen Beiträge Excel Formeln: Text in Spalte suchen und Wert in Zelle rechts addieren 3 Gast00815 1549 01. Feb 2010, 12:57
kaeleb Text in Spalte suchen und Wert in Zelle rechts addieren
Keine neuen Beiträge Excel Auswertungen: Säulendiagramm - Farbe von Balken, Wert abhängig 2 samo 427 18. Jun 2009, 13:37
Gast Säulendiagramm - Farbe von Balken, Wert abhängig
Keine neuen Beiträge Excel Formeln: Wenn Wert = 0 Zeile ausblenden 1 schrumpfgermanin 749 01. Jun 2009, 10:18
shift-del Wenn Wert = 0 Zeile ausblenden
Keine neuen Beiträge Excel Formeln: #WERT! nicht anzeigen lassen 11 tina_86 205 14. Apr 2009, 13:38
tina_86 #WERT! nicht anzeigen lassen
Keine neuen Beiträge Excel Formeln: #wert weg bekommen 5 casran 105 11. Apr 2009, 20:43
casran #wert weg bekommen
Keine neuen Beiträge Excel Formeln: Zelle links vom Suchwert ausgeben 11 janny 813 16. Okt 2008, 08:40
janny Zelle links vom Suchwert ausgeben
Keine neuen Beiträge Excel Hilfe: Zwei Probleme: Zeichen hinter Wert entfernen u. Daten selekt 10 Jessi75 514 19. Sep 2008, 14:41
Gast Zwei Probleme: Zeichen hinter Wert entfernen u. Daten selekt
Keine neuen Beiträge Excel Formeln: Zählen, wenn in einer anderen Spalte ein bestimmter Wert ist 6 Wolli2000 1633 24. Feb 2008, 22:49
Wolli2000 Zählen, wenn in einer anderen Spalte ein bestimmter Wert ist
Keine neuen Beiträge Excel Formeln: Identische Werte finden und ausgeben 13 Fisch8888 2073 12. Okt 2007, 07:18
fridgenep Identische Werte finden und ausgeben
Keine neuen Beiträge Excel Formate: Schlechtesten Wert aus mehreren Zellen rot markieren 3 Cityliner 512 14. Mai 2007, 14:06
Cityliner_off Schlechtesten Wert aus mehreren Zellen rot markieren
Keine neuen Beiträge Excel VBA (Makros): Wert per Makro in neue Arbeitsmappe kopieren 2 gw47 2031 12. Apr 2007, 13:32
gw47 Wert per Makro in neue Arbeitsmappe kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver