Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-
Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login
Infos zu Datenpunkt im diagramm anzeigen
Office Forum -> Excel Forum -> Excel VBA (Makros)
zurück: in einer Listbox alles auswählen weiter: userform scroll Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
tom_r
Anfänger


Verfasst am:
08. Feb 2007, 10:50
Rufname:
Wohnort: Pfungstadt

Infos zu Datenpunkt im diagramm anzeigen - Infos zu Datenpunkt im diagramm anzeigen

 Nach oben
       Version: Office 2k (2000)
Moin,

ich versuch gerade mir einen Code von Jon Peltier so abzuwandeln, dass mir bei Klick auf einen Datenpunkt eines Diagrammes per VLOOKUP in einer Msgbox zusätzliche angaben zum Datenpunkt angezeigt werden. Leider bekomm ich aber eine Fehlermeldung "Typen unverträglich". Wo liegt mein Fehler?


Code:
Private Sub Chart_Select(ByVal ElementID As Long, _
   ByVal Arg1 As Long, ByVal Arg2 As Long)
   'Grundlage Jon Peltier
   Dim was As String
   Dim Bezeichnung As String
   
   wo = Sheets("Sheet1").Range("B1:C50")
   
   If ElementID = xlSeries Then
      If Arg2 > 0 Then
         was = WorksheetFunction.Index _
            (SeriesCollection(Arg1).Values, Arg2)
         Bezeichnung = Application.VLookup(was, wo, 2, 0) [color=red]'hier kommt Fehlermeldung[/color]
         MsgBox Bezeichung
      Else
         MsgBox "Select a single point, please", vbInformation, "Pick a Point"
      End If
   End If
End Sub


Danke

Gruß Thomas
christian611
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Feb 2007, 10:55
Rufname:

AW: Infos zu Datenpunkt im diagramm anzeigen - AW: Infos zu Datenpunkt im diagramm anzeigen

 Nach oben
       Version: Office 2k (2000)
Zitat:
(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long)

welche werte übergibst du ??


Zitat:
If Arg2 > 0 Then

debugge mal zeile für zeile mir f8 und guck mal ob arg2 größer 0 ist



Zitat:
Bezeichnung = Application.VLookup(was, wo, 2, 0)


bitte mal die inhalte von was und wo prüfen !
was steht in den beiden variablen , wenn die fehlermeldung kommt
tom_r
Anfänger


Verfasst am:
08. Feb 2007, 11:10
Rufname:
Wohnort: Pfungstadt

AW: Infos zu Datenpunkt im diagramm anzeigen - AW: Infos zu Datenpunkt im diagramm anzeigen

 Nach oben
       Version: Office 2k (2000)
Hallo Christian,

erstmal danke für Deine Antwort.

da es noch darum geht auszuprobieren, wie das geht, ist die Datengrundlage absolut einfach

<P><blockquote>
 ABC
1Punkt15Text1
2Punkt27Text2
3Punkt36Text3
4Punkt43Text4
5Punkt51Text5
</blockquote></P>



Den Tip, mit F8 den Code zeilenweise duchlaufen zu lassen, hatte ich schon probiert, geht aber nicht. Deshalb habe ich die Variablen mit einer Msgbox nacheinander abgefragt. Bei der Anzeige von "wo" gibt es die Fehlermeldung. Nur warum?

Gruß Thomas
tom_r
Anfänger


Verfasst am:
08. Feb 2007, 16:46
Rufname:
Wohnort: Pfungstadt

AW: Infos zu Datenpunkt im diagramm anzeigen - AW: Infos zu Datenpunkt im diagramm anzeigen

 Nach oben
       Version: Office 2k (2000)
Hi,

niemand mehr eine Idee? Sad

Gruß Thomas
Neues Thema eröffnen   Neue Antwort erstellen     Nach oben 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 Auswertungen: datenbereich im diagramm automatisch anpassen 1 Gast 150 26. Mai 2010, 20:35
shift-del datenbereich im diagramm automatisch anpassen
Keine neuen Beiträge Excel VBA (Makros): Diagramm als *.emf speichern? 4 Red_Dragon 579 15. Feb 2010, 13:04
bst Diagramm als *.emf speichern?
Keine neuen Beiträge Excel Formeln: Redundanzen aus umfangreichen Listen anzeigen lassen 3 Duderino 115 11. Feb 2010, 12:30
werni barny Redundanzen aus umfangreichen Listen anzeigen lassen
Keine neuen Beiträge Excel Auswertungen: Bedingung in Diagramm? 1 Gast 648 16. Jan 2009, 17:11
Zero Bedingung in Diagramm?
Keine neuen Beiträge Excel Auswertungen: falsche Datumsanzeige in Achsenbeschriftung (Diagramm) 2 dinas 1163 29. Aug 2008, 08:21
dinas falsche Datumsanzeige in Achsenbeschriftung (Diagramm)
Keine neuen Beiträge Excel Auswertungen: Diagramm - Inhalt sortieren 2 cosypanther 3430 08. Jan 2008, 23:53
cosypanther Diagramm - Inhalt sortieren
Keine neuen Beiträge Excel VBA (Makros): ComboBox mit Spalte verknüpfen/ Nur gefüllte Zellen anzeigen 2 Mog 425 26. Aug 2007, 13:59
Mog ComboBox mit Spalte verknüpfen/ Nur gefüllte Zellen anzeigen
Keine neuen Beiträge Excel Formeln: Geburtstag mit Vorwarnung anzeigen 3 TomWI06 519 15. Aug 2007, 00:32
fridgenep Geburtstag mit Vorwarnung anzeigen
Keine neuen Beiträge Excel Auswertungen: Balken im Diagramm der Größe nach automatisch ordnen lassen? 1 Stefan Hauser 945 25. Jun 2007, 10:50
Stefan Hauser Balken im Diagramm der Größe nach automatisch ordnen lassen?
Keine neuen Beiträge Excel VBA (Makros): anzeigen des gestrigen Datums 26 Searcher 1035 16. Mai 2007, 14:05
Bamberg anzeigen des gestrigen Datums
Keine neuen Beiträge Excel Auswertungen: Mehrere Tabellenblätter in einem Diagramm auswerten 2 Christian02 2122 03. Mai 2007, 15:21
Christian02 Mehrere Tabellenblätter in einem Diagramm auswerten
Keine neuen Beiträge Excel Formeln: Formel anzeigen aber nicht ausrechnen 5 alexwick 1240 06. Dez 2006, 12:51
Juliane Formel anzeigen aber nicht ausrechnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Diagramme