Posts

Es werden Posts vom Februar, 2009 angezeigt.

HTML - Enumerating - Format!

Two possibilities to convert "HTML files" in "XLS files". Either with "QueryTables", or into that "HTML files" each enumerating an inverted comma is placed in front. The problem is the enumerating - for example 1.1, 1.2.4 etc. This is interpreted in Excel as date. The files at the end of the article are Excelfiles of the version 2003 and 2007 with example files in the Zipformat. The following code belonged in "Module1"
Zwei Möglichkeiten, wie "HTML-Dateien" in "XLS-Dateien" umgewandelt werden können. Entweder über die "QueryTables", oder in den "HTML-Dateien" wird den Aufzählungen ein Hochkomma vorangestellt. Die Problematik liegt in den Aufzählungen - zum Beispiel 1.1, 1.2.4 usw. Dies wird in Excel als Datum interpretiert. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007 mit Beispieldateien im Zipformat. Der folgende Code gehört in "Modul1"
Option Explicit
Publ…

Filter - Data - Copy!

A few simple examples, how filtered data are copied. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in "Module1"
Ein paar einfache Beispiele, wie gefilterte Daten kopiert werden. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgende Code gehört in "Modul1"
Option Explicit
PublicSub Step_1()
Dim wksSheetQ As Worksheet
Dim wksSheetZ As Worksheet
Dim rngTMP As Range
OnErrorGoTo Fin
Application.ScreenUpdating =False
Set wksSheetZ = Sheet1
Set wksSheetQ = Worksheets.Add
With wksSheetQ
.Cells.Clear
Set rngTMP = wksSheetZ.Range("A2")._
CurrentRegion.SpecialCells(xlCellTypeVisible)
rngTMP.Copy .Range("A1")
EndWith
Fin:
Set rngTMP =Nothing
Application.ScreenUpdating =True
EndSub
PublicSub Step_3()
Dim wksSheetQ As Worksheet
Dim wksSheetZ As Worksheet
Dim rngTMP As Range
OnErrorGoTo Fin
Application.ScreenUpdating =False
Set wksSheetZ = Sheet1
Set wksShee…

TextBox - Formatted - Word!

The content of a TextBox (in Excel 2007 from "Insert - Text - TextBox") is inserted formatted in a new Word document. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in "Module1"
Der Inhalt einer Textbox (in Excel 2007 aus "Einfügen - Text - Textfeld") wird formatiert in ein neues Worddokument eingefügt. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgende Code gehört in "Modul1"
Option Explicit
PublicSub Test()
Dim objDocument AsObject
Dim intHeight AsInteger
Dim intWidth AsInteger
Dim objWDApp AsObject
Dim shpShape As Shape
Dim intTMP AsInteger
Application.ScreenUpdating =False
OnErrorResumeNext
Set objWDApp =GetObject(,"Word.Application")
If objWDApp Is NothingThenSet objWDApp =_
CreateObject("Word.Application")
OnErrorGoTo0
OnErrorGoTo Fin
Set objDocument = objWDApp.Documents.Add
objWDApp.Visible =True
ForEach shpShape In ThisWorkbook.…