Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1224to1228
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
Inhaltsverzeichnis

Löschen von Dateinamen in Diagramm

Löschen von Dateinamen in Diagramm
Dateinamen
Hallo Leute,
wie kann ich in den Datenquellen von Diagrammen etwas suchen und ersetzen. Ich habe leider überall dateil1.xlsm drin stehen und möchte das durch nix ersetzen... Hab ca. 50 Diagramme im Tabellenblatt
Sub DiagrammneuesJahr()
For Each A In ActiveSheet.Charts
A.Activate
A.ChartArea.Select
Selection.SetSourceData Source:=?
Next A
End Sub
Wie Gehts weiter?
Hab leider keinen Plan mehr...
Gruß,
Maris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Löschen von Dateinamen in Diagramm
17.08.2011 14:50:59
Dateinamen
Hi Maris,
Sub ZuweisungAendern()
Dim intDiagramm As Integer
Dim intReihe As Integer
With ActiveSheet
For intDiagramm = 1 To .ChartObjects.Count
With .ChartObjects(intDiagramm).Chart
For intReihe = 1 To .SeriesCollection.Count
.SeriesCollection(intReihe).Formula = _
Application.Substitute(.SeriesCollection(intReihe).Formula, _
"dateil1.xlsm", ThisWorkbook.Name)
Next intReihe
End With
Next intDiagramm
End With
End Sub



AW: Löschen von Dateinamen in Diagramm
18.08.2011 08:43:23
Dateinamen
Hallo Beverly, vielen DAnk für deine Hilfe :-)
nach dem Schliessen der Datei ist jetzt auch der gesamte Dateipfad in die Diagramme gerutscht, wenn ich deinen Code jetzt ausführe, mit dem kompletten Pfad verbleibt mir trotzdem noch der DAteiname...
Ein Ahnung an was das liegt?
Gruß,
Maris
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige