|
Berechneten Wert in Textfeld ausgeben.
|
| Autor |
Nachricht |
blicki
Es wird langsam besser...

Verfasst am: 05. Sep 2006, 13:40 Rufname: Martin
Wohnort: Meerbusch
|
|
| |
|
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
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
|
| |
| |
|
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
|
|
| |
|
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
|
|
| |
|
| 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
|
|
blicki
Es wird langsam besser...

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