Posts

Es werden Posts vom Januar, 2013 angezeigt.

Datei suchen - Pfad unbekannt - Hyperlink - API...

Frage: Zwei Dinge - zum Einen habe ich eine Liste mit Dateinamen in Spalte A, zum Zweiten möchte ich den Dateinamen in Zelle A1 eingeben. Der Speicherort der jeweiligen Datei ist nicht bekannt. Ein Hyperlink soll in Spalte B eingefügt werden. Optional möchte ich die Dateien in ein Verzeichnis mit Ordnerauswahl kopieren. Wie geht das?

Two things - first I have a list of file names in column A, secondly I would like to enter the file name in cell A1. The location of the file is unknown. A hyperlink will be inserted in column B. Optional I want to copy the files into a folder with folder selection. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
Datei suchen - Pfad unbekannt - Hyperlink - API...[ZIP 3 MB]

Code gehört in Sheet1 / Code belongs in Sheet1:

OptionExplicitPrivateDeclareFunction SearchTreeForFile Lib"imagehlp.dll" _ (ByVal RootPath AsString, ByVal InputPathName AsString, _ ByVal OutputPathBuffer AsString) AsLong'-------------------…

Excel - Word - vertikal verbundene Zellen - Tabelle - Zeile löschen...

Frage: Von einem Exceldokument wird ein bestimmter Bereich nach Word kopiert. Dieser beinhaltet vertikal verbundene Zellen. Das löschen einer Zeile dieser Tabelle mit "Rows(2).Delete" scheitert. Wie geht das?

From an Excel document a particular range is copied to Word. This includes vertically merged cells. Delete a row in this table with "Rows(2).Delete" fails. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
Excel - Word - vertikal verbundene Zellen - Tabelle - Zeile löschen...[XLS 40 KB]

OptionExplicit'-------------------------------------------------------------------------- ' Module : Module1 ' Procedure : Main ' Author : Case (Ralf Stolzenburg) ' Date : 28.01.2013 ' Purpose : Excel to Word with vertically merged cells... '-------------------------------------------------------------------------- Const wdDeleteCellsEntireRow = 2PublicSub Main() Dim strBookmark AsStringDim objWDApp AsObjectDim…

PowerPoint - New Presentation - Slide add - TextFrame...

Frage: Ich möchte In Powerpoint Rechtecke erzeugen und Text reinschreiben. Wie geht das?

I want to create in PowerPoint rectangles and write in text. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
PowerPoint - New Presentation - Slide add - TextFrame...[XLS 40 KB]

OptionExplicit' Leeres Slide in PowerPoint Const ppLayoutBlank AsLong = 12' Objektvariable für Applikation Dim objPP AsObject'-------------------------------------------------------------------------- ' Module : Module1 ' Procedure : Main ' Author : Case (Ralf Stolzenburg) ' Date : 24.01.2013 ' Purpose : PowerPoint - New Presentation - Slide add - TextFrame... '-------------------------------------------------------------------------- PublicSub Main() ' Variablendeklaration Dim intHeight AsIntegerDim intWidth AsIntegerDim intCount AsIntegerDim objPPDoc AsObjectDim intLeft AsIntegerDim intTop AsIntegerDim intTMP AsInteger' Wenn ein Fehler a…

Word - Tabelle erstellen - Zeile löschen - Daten kopieren...

Frage: Nachfolgend ein paar Beispiele wie man in Word Tabellen erstellt, Zeilen in der Tabelle löscht, einen Zellbereich nach Word kopiert - natürlich alles aus Excel. Kommentare im Code.

Here are a few examples of how to create tables in Word, delete rows in the table, copying a range of cells to Word - of course everything from Excel. Comments in the code.

Hier noch eine Beispieldatei / Here's a sample file:
Word - Tabelle erstellen - Zeile löschen - Daten kopieren...[ZIP 50 KB]

Code gehört in ein Modul (Module1) / Code belongs in a module (Module1):

OptionExplicit'-------------------------------------------------------------------------- ' Module : Module1 ' Procedure : Main ' Author : Case (Ralf Stolzenburg) ' Date : 24.01.2013 ' Purpose : Open Word from Excel insert data and delete table row... '-------------------------------------------------------------------------- PublicSub Main() Dim intCount1 AsIntegerDim intCount2 AsIntegerDi…

Chartsheets mit Bedingung kopieren, die 2te...

Frage: Es gibt eine Reihe von Diagrammblätter (ChartSheets). Wenn eines dieser Diagrammblätter einen bestimmten String im Namen hat, wird das jeweilige Diagramm in ein neu erstelltes Tabellenblatt kopiert - ABER ALS DIAGRAMM. Wird der Code erneut ausgeführt, wird das neu erstellte Tabellenblatt samt den darin enthaltenen Diagrammen gelöscht. Wie geht das?

There are a number of chart sheets (chart sheets). If any of these chart sheets has a certain string in the name, the appropriate chart sheet is copied to a newly created spreadsheet - BUT AS A CHART. If the code is executed again, the newly created spreadsheet including the contained diagrams will be deleted. How does it work?

Mit einer kleinen Codeänderung funktioniert das / With a small code change works:

Hier noch eine Beispieldatei / Here's a sample file:
Chartsheets mit Bedingung kopieren, die 2te...[XLS 90 KB]

OptionExplicit' Der Abstand von Oben und zwischen den Diagrammen Const intAbove AsInteger = 20' Der Abstand …