Posts

Es werden Posts vom Februar, 2011 angezeigt.

UPDATE! Excel - PowerPoint - Textfelder - Diagramm!

UPDATE!

Berechtigter Einwand: Das/die Diagramm(e) sollen entweder als Bild, oder als eingebettetes Objekt eingefügt werden. Damit die Übersicht gewahrt bleibt ein neuer Blogeintrag.

Hier der Link zum Vorhergehenden:
http://vbanet.blogspot.com/2011/02/excel-powerpoint-textfelder-diagramm.html

Immer wieder gefragt: Wie bekomme ich einen Bereich bzw. ein Diagramm in eine PowerPoint Datei, die auf einer Vorlage basiert? Für jedes Tabellenblatt soll eine Folie angelegt werden, bestimmte Werte in zu erzeugende Textfelder kopiert werden. Platzhalter bzw. Titel sollen befüllt werden. Dann soll noch das im jeweiligen Tabellenblatt eingebettete Diagramm auf die entsprechende Folie übernommen werden. Erstellt und getestet habe ich das in Excel 2010 (ergo die PowerPoint-Dateien in PP2010). Für andere Excel- PowerPointversionen müssen Änderungen vorgenommen werden. Insbesondere beim Dateinamen der Vorlage und in Excel 2003 darf das PowerPoint-Fenster NICHT ausgeblendet bleiben - das führt zu einem Feh…

Excel - PowerPoint - Textfelder - Diagramm!

Immer wieder gefragt: Wie bekomme ich einen Bereich bzw. ein Diagramm in eine PowerPoint Datei, die auf einer Vorlage basiert? Für jedes Tabellenblatt soll eine Folie angelegt werden, bestimmte Werte in zu erzeugende Textfelder kopiert werden. Platzhalter bzw. Titel sollen befüllt werden. Dann soll noch das im jeweiligen Tabellenblatt eingebettete Diagramm auf die entsprechende Folie übernommen werden. Erstellt und getestet habe ich das in Excel 2010 (ergo die PowerPoint-Dateien in PP2010). Für andere Excel- PowerPointversionen müssen Änderungen vorgenommen werden. Insbesondere beim Dateinamen der Vorlage und in Excel 2003 darf das PowerPoint-Fenster NICHT ausgeblendet bleiben - das führt zu einem Fehler.

Excel - PowerPoint - Textfelder - Diagramm...[ZIP, 200 KB]

Code gehört in ein allgemeines Modul:
Option Explicit
Private Declare Function GetWindowText Lib "user32"_
Alias "GetWindowTextA"(ByVal hwnd AsLong,_
ByVal lpString AsString,ByVal cch AsLong)AsLong
Private De…

Namen - RefersTo - RefersTo Range - auslesen!

Frage: In Tabellenblättern ist einer Zelle oder einem Range ein Name zugeordnet. Auf einem neuen Tabellenblatt sollen nun die Werte der Namen und die Zugehörigkeit ausgegeben werden:

Namen - RefersTo - RefersTo Range - auslesen...[ZIP, 50 KB]

Code gehört in ein allgemeines Modul:
Option Explicit
PublicSub Eine_Zelle()
Dim blnFrage AsBoolean
Dim intCount AsInteger
Dim nmName AsName
OnErrorGoTo Fin
With Application
.ScreenUpdating =False
.DisplayAlerts =False
EndWith
Worksheets.Add After:=Sheets(Sheets.Count)
ForEach nmName In ThisWorkbook.Names
IfLCase(nmName.Name) Like "*nettopreis"Then
With ActiveSheet
.Cells(intCount +1,1).Value =_
nmName.RefersToRange.Text
.Cells(intCount +1,2).Value =_
nmName.RefersTo
.Cells(intCount +1,3).Value =_
nmName.Name
intCount = intCount +1
blnFrage =True
EndWith
EndIf
Next nmName
Fin:
IfErr.Number <>0ThenMsgBox"Fehler: "&_
Err.Number &" "&Err…

Datei - Zelle auslesen - Dialog!

Frage: Wie kann man aus einer Datei die über einen Dateiauswahldialog auszuwählen ist eine Zelle in eine Übersicht kopieren. Es soll die Möglichkeit bestehen das Tabellenblatt auszuwählen. Die Zelle wird über eine InputBox das Tabellenblatt über eine UserForm abgefragt.

Datei - Zelle auslesen - Dialog - Tabellenblattauswahl...[ZIP, 80 KB]

Code gehört in "UsrForm1":
Option Explicit
PrivateSub UserForm_Activate()
ComboBox1.ListIndex =0
EndSub
PrivateSub CommandButton1_Click()
Me.Tag = ComboBox1.Value
Me.Hide
EndSub

Code gehört in ein allgemeines Modul:
Option Explicit
PublicSub Test()
Dim wksSheetZ As Worksheet
Dim wksSheet As Worksheet
Dim wkbBook As Workbook
Dim strCell AsString
Dim lngColumn AsLong
Dim strTMP AsString
Dim lngRow AsLong
OnErrorGoTo Fin:
lngRow = ActiveCell.Row
lngColumn = ActiveCell.Column
strCell = InputBox("Zelle","Eingabe","A4")
IfTrim(strCell)=""ThenExitSub
Application.ScreenUpdating =False
If GetAFile(strTMP)<>&quo…