Office: (Office 2007) VBA

geni · 24. Februar 2009

Hallo,

erstmal: ICH BIN NEU HIER (auch im VBA Umfeld). *Smilie

Nun mein Problem:
Ich möchte eine Excel Tabelle mit Überschriften nach einer bestimmten Überschrift durchsuchen, als Rückgabewert brauche ich die Spalte in der die Überschrift ist.

Gruß

geni

:)

Case_Germany · 25. Februar 2009

Hallo, *Smilie

kopiere folgenden Code in ein Modul und passe den Wert "Test" bei "Const strSearch As String = "Test" ' Ueberschrift" an:

Code:

Option Explicit
Const strSearch As String = "Test" ' Ueberschrift

Public Sub Test()
Dim rngFound As Range
Set rngFound = Rows(1).Find(What:=strSearch, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngFound Is Nothing Then
MsgBox rngFound.Address
MsgBox rngFound.Address(False, False)
MsgBox rngFound.Column
Else
MsgBox "Nichts gefunden!"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die dritte MsgBox gibt dir die Spalte aus. Die anderen habe ich nur als Beispiel drin, die kannst Du rauswerfen.

Servus
Case

hary · 25. Februar 2009

Hi Geni
versuch mal diese Mappe.

hary · 25. Februar 2009

Hi
Du musst dem Starfeld noch das Makro zuweisen
Gruss hary

geni · 25. Februar 2009

Danke für all die Antworten.
Ich bin ein GROßES Stück weiter.
DANKE.

Office: (Office 2007) VBA

VBA

VBA

VBA

VBA - Similar Threads - VBA

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Erstellung eines Dynamischen Kalenders (ggf. VBA)