Posts

Es werden Posts vom 2012 angezeigt.

Bilder aus Tabellenblatt auf Festplatte exportieren...

Frage:

In einem Tabellenblatt habe ich verschiedene Bilder. Manchmal muss ich ein Bild auf die Festplatte speichern. Dies möchte ich auf zwei Arten erreichen. Das Bild wird angeklickt und dann über einen Button oder eine Taste gespeichert. Oder das Bild wird angeklickt und sofort gespeichert. Wie geht das?

In a spreadsheet I have various images. Sometimes I need to save an image to the hard drive. I want to achieve this in two ways. The image is clicked and saved via a button or a key. Or the image is clicked and saved immediately. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
Bilder aus Tabellenblatt auf Festplatte exportieren...[XLS 160 KB]

Code gehört in "DieseArbeitsmappe" / Code belongs in "ThisworkBook":

OptionExplicit'-------------------------------------------------------------------------- ' Module : DieseArbeitsmappe / Thisworkbook ' Procedure : Workbook_Open ' Author : Case (Ralf Stolzenburg) ' Date …

In Worddokumenten Wörter ersetzen - Liste in Excel...

Frage:

In allen Worddokumenten - optional auch nur in bestimmten Worddateien mit Dateiauswahldialog - sollen Wörter ersetzt werden. Die Liste der alten bzw. neuen Wörter ist in Excel in den Spalten B und C. Wie geht das?
In all Word documents - also only in certain Word files with file selection dialog - words should be replaced. The list of old and new words is in an Excel file in columns B and C. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
In Worddokumenten Wörter ersetzen - Liste in Excel...[ZIP 50 KB]

OptionExplicitConst wdreplaceAll = 2Dim blnTMP AsBoolean'-------------------------------------------------------------------------- ' Module : AllFiles ' Procedure : Main ' Author : Case (Ralf Stolzenburg) ' Date : 18.12.2012 ' Purpose : In Worddokumenten Wörter ersetzen - Liste in Excel... '-------------------------------------------------------------------------- PublicSub Main() ' Dimensionieren der Vari…

Word - Inhaltssteuerelemente auslesen...

Frage: Es gibt einige Worddokumente mit Inhaltssteuerelementen. Diese möchte ich gerne nach Excel auslesen. Wie geht das?

Hier noch eine Beispieldatei: Word - Inhaltssteuerelemente auslesen...[ZIP 100 KB]

Im Download ist das Exceldokument sowie ein paar Worddokumente mit Beispieldaten.

OptionExplicitConst wdContentControlCheckBox = 8Dim blnTMP AsBoolean'-------------------------------------------------------------------------- ' Module : Modul1 ' Procedure : Main ' Author : Case (Ralf Stolzenburg) ' Date : 12.12.2012 ' Purpose : Aus Worddokumenten Inhaltssteuerelemente auslesen... '-------------------------------------------------------------------------- PublicSub Main() ' Dimensionieren der Variablen Dim wksSheet As Worksheet Dim objDocument AsObjectDim conControl AsObjectDim lngLastRow AsLongDim strDatei AsStringDim strPath AsStringDim objApp AsObjectDim lngCalc AsLong' Wenn ein Fehler auftritt gehe zu der angegebenen Sprungma…

Internet - Dateien / Files - Download....

Frage / Question: Ich habe zwei Spalten. In der ersten Spalte steht ein Link zu den Dateien im Internet die ich downloaden will. In der zweiten Spalte der Name den die Datei erhalten soll. Basically what I have is two columns. The first has a url I can click on, which sends me to a download link that automatically brings up the Save As (Windows 7) box. The second column contains the name I would like the file to be.

Hier noch eine Beispieldatei / Here's a sample file: Internet - Dateien / Files - Download....

OptionExplicitPrivateDeclareFunction MakeSureDirectoryPathExists _ Lib"imagehlp.dll" (ByVal Pfad AsString) AsLongPrivateDeclareFunction DeleteUrlCacheEntry Lib"wininet"Alias _ "DeleteUrlCacheEntryA" (ByVal lpszUrlName AsString) AsLongPrivateDeclareFunction PathFileExists Lib"shlwapi.dll" _ Alias"PathFileExistsA" (ByVal pszPath AsString) AsLongPrivateDeclareFunction URLDownloadToFile Lib"urlmon" _ Alias…

Formeln - auch Array - per VBA eintragen...

Bild
Frage: In einer Tabelle habe ich einige Formeln, die ich - aus welchem Grund auch immer - per VBA eintragen möchte. Wie geht das?

Hier noch eine Beispieldatei: Formeln - auch Array - per VBA eintragen...

WICHTIG! In der Formel vorkommende Hochkommata müssen gedoppelt werden - also aus "" wird """"!

Zunächst wird die Zelle mit der Formel markiert.


Dann öffnet man im VBA-Editor das Direktfenster bzw. den Direktbereich (wenn nicht schon geschehen) per STRG+G, gibt folgendes ein (inklusive das Fragezeichen am Anfang) und beendet die Zeile mit Return:


Das gleiche für die Formel in B1:


Dann die Formeln in VBA so nutzen - Arrayformeln werden mit Evaluate direkt in VBA berechnet:


Über "Application.ErrorCheckingOptions.BackgroundChecking" wird verhindert, dass dieses "grüne" Flag mit dem Fehlerhinweis (Zahl als Text) angezeigt wird. Weitere Beispiele folgend und in der Beispieldatei.

OptionExplicit'--------------------------------------------…

Word - bestimmte Werte nach Excel...

Frage: Es gibt eine ganze Menge von Worddokumenten, in denen in zwei Spalten (keine Tabelle, sondern Tabulatorgetrennt) Analysedaten und die entsprechenden Werte stehen. Es gibt noch Überschriften und am Ende ein paar Daten, die nicht benötigt werden. Diese brauche ich in Excel. Wie geht das?

Im Download ist das Exceldokument sowie ein paar Worddokumente mit Beispieldaten.

Hier noch eine Beispieldatei: Word - bestimmte Werte nach Excel...[ZIP 60 KB]

OptionExplicitDim blnTMP AsBoolean'-------------------------------------------------------------------------- ' Module : Modul1 ' Procedure : Main ' Author : Case (Ralf Stolzenburg) ' Date : 05.12.2012 ' Purpose : Aus Worddokumenten bestimmte Werte nach Excel übertragen... '-------------------------------------------------------------------------- PublicSub Main() ' Dimensionieren der Variablen Dim wksSheet As Worksheet Dim objDocument AsObjectDim lngLastRow AsLongDim strDatei AsStringDim…

DAO - Accessdatenbank Anzahl aus allen Auswahlabfragen ausgeben...

Frage: In meinen Accessdatenbanken (.mdb und .accdb) habe ich einige Abfragen. Die Anzahl der Datensätze aller Auswahlabfragen möchte ich aus Excel herraus wissen. Wie geht das?

Hier noch eine Beispieldatei: DAO Accessdatenbank Anzahl aus allen Auswahlabfragen ausgeben...

Hinweis: Um diesen Code zu testen und das gleiche Ergebnis wie in der Beispieldatei zu erhalten werden die Beispieldatenbanken "nwind.mdb" und "nwind.accdb" von Microsoft benötigt!

OptionExplicit'----------------------------------------------------------------------------- ' Module : Modul1 ' Procedure : Main ' Author : Case (Ralf Stolzenburg) ' Date : 28.11.2012 ' Purpose : DAO Accessdatenbank Anzahl aus allen Auswahlabfragen ausgeben... '----------------------------------------------------------------------------- ' Erstellt UND getestet in Excel 2010 - Access ist NICHT installiert ' http://msdn.microsoft.com/de-de/library/office/ff965871%28v=offi…