Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-
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, 14: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, 14: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, 15: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, 18: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, 08: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, 11: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): Nach bestimmtem Wert eine leere Zeile einfügen 10 Hypero 391 17. Aug 2010, 15:27
Nicolaus Nach bestimmtem Wert eine leere Zeile einfügen
Keine neuen Beiträge Excel Formeln: 2 Spalten durchsuchen nach einem Wert 1 Gast 238 24. März 2010, 15:53
Gast 2 Spalten durchsuchen nach einem Wert
Keine neuen Beiträge Excel Hilfe: zelle durch wert/text aus anderer Zelle färben 3 rene.haefferer 128 19. März 2010, 21:07
silex1 zelle durch wert/text aus anderer Zelle färben
Keine neuen Beiträge Excel Formeln: Zellenfarbe anpassen wenn bestimmter Wert in Zelle erscheint 3 Gast 461 26. Jan 2010, 22:26
shift-del Zellenfarbe anpassen wenn bestimmter Wert in Zelle erscheint
Keine neuen Beiträge Excel Formeln: Letzter Wert eines Bereiches = ? 2 T Fröhlich 109 15. Mai 2009, 18:20
Gast Letzter Wert eines Bereiches = ?
Keine neuen Beiträge Excel Formate: Farbe in Zelle mit Wert automatisch ändern 1 forumarbeit 1232 12. Jan 2009, 22:14
Klaus-Dieter Farbe in Zelle mit Wert automatisch ändern
Keine neuen Beiträge Excel Auswertungen: Pivot nach Wert aufsteigend/absteigend sortieren 6 Joerg112 1580 10. Dez 2008, 22:00
Joerg112 Pivot nach Wert aufsteigend/absteigend sortieren
Keine neuen Beiträge Excel Formeln: Musikliste erstellen und vllt. später als Playlist ausgeben 1 Nights 1249 12. Nov 2008, 15:22
Nights Musikliste erstellen und vllt. später als Playlist ausgeben
Keine neuen Beiträge Excel VBA (Makros): OptionButton wählen und Wert in Zelle übertragen? 2 uemeluetchen 926 24. Sep 2008, 20:06
uemeluetchen OptionButton wählen und Wert in Zelle übertragen?
Keine neuen Beiträge Excel VBA (Makros): TextFeld Cursor nach Enter ins nächste Textfeld setzen 2 xyzdef 1851 18. Apr 2008, 19:33
xyzdef TextFeld Cursor nach Enter ins nächste Textfeld setzen
Keine neuen Beiträge Excel VBA (Makros): Wert mit Button übergeben 13 Mr.C 317 17. Apr 2008, 14:55
Jessi08 Wert mit Button übergeben
Keine neuen Beiträge Excel Formeln: will den wert nur wenn das fordere feld ausgefüllt ist. 5 linux 514 04. Mai 2007, 16:52
linux will den wert nur wenn das fordere feld ausgefüllt ist.
 

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