Variable Spalte?

15/12/2010 - 18:46 von Peter Schuerer | Report spam
Hallo Zusammen,

XL2002.

Ich muss in Zeile 1 die Überschrift "Artikelbezeichnung" suchen und die
gefundene Spalte als Variable "Spalte" definieren.

Rows("1:1").Activate
Selection.Find(What:="Artikelbezeichnung", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Spalte = .Columns(1,"ActiveCell")

Kriegs einfach nicht hin.
Hilfe.

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Andreas Killer
15/12/2010 - 18:51 | Warnen spam
Am 15.12.2010 18:46, schrieb Peter Schuerer:

Ich muss in Zeile 1 die Überschrift "Artikelbezeichnung" suchen und die gefundene Spalte als Variable "Spalte" definieren.



So aus'm Kopf:

set Spalte = Rows(1).Find("Artikelbezeichnung", LookIn:= xlValues, LookAt:= xlWhole)
if Spalte is Nothing then
MsgBox """Artikelbezeichnung"" steht nicht in Zeile 1"
else
set Spalte = Spalte.EntireColumn
endif

Andreas.

Ähnliche fragen