Posts

Es werden Posts vom Juni, 2009 angezeigt.

Address - Filter - Find!

Der Autofilter filtert über VBA Adressdaten. Auf Tabellenblatt 2 und 3 werden die nicht passenden Zeilen über die Find-Funktion ausgeblendet. In Tabellenblatt 3 können mehrere Suchbegriffe kommagetrennt einegegeben werden. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgende Code gehört in "Tabelle1, Tabelle2 und Tabelle3".
Option Explicit
PublicSub CommandButton1_Click()
Dim objButton As OLEObject
ForEach objButton In ActiveSheet.OLEObjects
IfLeft(objButton.Name,7)="TextBox"Then
objButton.Object.Value =""
EndIf
Next objButton
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
EndSub
PrivateSub TextBox1_Change()
If TextBox1.Text =""Then
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Else
Selection.AutoFilter Field:=1, Criteria1:="="_
&Me.TextBox1 &"*", Operator:=xlAnd
'Selection.AutoFilter Field:=1, Criteria1:="**" _
' & Me.TextBox1 & &qu…

UserForm - Save - TIF - GIF - JPG!

A user form is to be stored as a file. There are the formats "TIF", "GIF" and "JPG". The problem is over "PowerPoint" solved. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in "UserForm1, UserForm2 and Module1".
Eine UserForm soll als Datei gespeichert werden. Es gibt die Formate "TIF", "GIF" und "JPG". Das Problem wird über "PowerPoint" gelöst. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgende Code gehört in "UserForm1, UserForm2 und Modul1".
Option Explicit
Private Declare Function MapVirtualKey Lib "user32"_
Alias "MapVirtualKeyA"(ByVal wCode AsLong,_
ByVal wMapType AsLong)AsLong
Private Declare Sub keybd_event Lib "user32"_
(ByVal bVk AsByte,ByVal bScan AsByte,_
ByVal dwFlags AsLong,ByVal dwExtraInfo AsLong)
PrivateSub CommandButton1_Click()
'vbKeySnapsh…

Everything Divide Column A!

All same values from sheet "Master" column A are distributed on worksheets. The worksheets are provided. With repetitive call of the code the provided worksheets are deleted and again provided. The example works with 6000 (29 different) values and autofilters. The column A is not sorted. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in "Module1".
Alle gleichen Werte aus Tabellenblatt "Master" Spalte A sollen auf Tabellenblätter verteilt werden. Die Tabellenblätter werden erstellt. Bei wiederholtem Aufruf des Codes werden die erstellten Tabellenblätter gelöscht und neu erstellt. Das Beispiel arbeitet mit 6000 (29 unterschiedlichen) Werten und Autofilter. Die Spalte A ist nicht sortiert. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgende Code gehört in "Modul1".
Option Explicit
PublicSub Everything_Divide()
Dim wksSheet As Worksheet
Dim wksTMP As Work…