Posts

Es werden Posts vom März, 2009 angezeigt.

Search - Copy - Offset!

The following code is searched for a term and a cell on the right of the find cell is copied in a new sheet. The parameters are optional. Also the find cell, a cell left, right, above or down and/or further can be copied. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in a "Module."
Im folgenden Code wird nach einem Begriff gesucht und eine Zelle rechts der Fundstelle in einem neuen Tabellenblatt ausgegeben. Die Parameter sind Optional. Es kann auch die Fundzelle, eine Zelle links, rechts, oben oder unten bzw. weitere ausgegeben werden. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgede Code gehört in ein "Modul."
Option Explicit
PublicSub Test()
' a cell right - eine Zelle rechts
Call subSearch(,1)

' the find cell - die FundZelle
'Call subSearch

'a cell right AND down. - eine Zelle rechts UND runter
'Call subSearch(1, 1)

' a cell down
'Call s…

Formula - Comment!

You have formulas, which were provided with the formula editor? You would have these formulas gladly in the comment of a freely selectable cell (InputBox)? Or you would like a picture in the comment? Try the following. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in a "Module."
Du hast Formeln mit dem Formeleditor erstellt? Du möchtest diese Formeln in einer frei wählbaren Zelle (InputBox) in den Kommentar kopieren? Oder Du möchtest Bilder im Kommentar darstellen? Probiere den folgenden Code. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgede Code gehört in ein "Modul."
Option Explicit
Dim strPath AsString
Dim PicHeight AsLong
Dim PicWidth AsLong
PublicSub Ex_Pic()
Dim MyPicture AsString
Dim MyChart AsString
Dim MyObject As Shape
Dim strTMP AsString
OnErrorGoTo Fin
strPath =Environ$("TEMP")&"\"
ForEach MyObject In Sheet1.Shapes
Application.Sc…