Office: (Office 2013) Spaltenkopf in Excel (dynamisch) suchen

Hallo zusammen,

Ich lese aus einer ausgewählten Exceltabelle Daten in eine Access Tabelle.

Zuerst wird eine bestimmte Zeilennummer (MG_Sp) ermittelt.
Mit dieser Zeilennummer lese ich dann den KUNDE aus der Spalte M aus:

rst!Kunde = GID_ArbBlatt.Range("M" & MG_Sp)

Das passt soweit. Nun meine Frage:
habe festgestellt, dass die Spalte KUNDE in den Excel-Tabellen die ich einlese nicht immer "M" ist,
sondern kann auch mal "N" oder "O" oder sonstwas sein.
Bei so einer Verschiebung würde eich natürlich die falsche Information auslesen.

Gibt es eine Möglichkeit, die Information nicht statisch aus "M" auszulesen, sondern da, wo im Header (Zeile1)
"KUNDE" steht. Oder vielleicht könnte man vor dem auslesen den Buchstabe der Spalte "KUNDE" ermitteln und dann
als Variable in meinen Code einsetzen.

Hat da jemand eine Idee

Danke

Mandy

:)

 

Hallo Mandy,

du könntest z.B. in Excel die Worksheetfunction "Match" verwenden, um die Zelle zu finden.

Gruß Ulrich

 

Hallo Ulrich,

die funktion kannte ich bisher noch nicht. Aber lässt die sich auch aus Access heraus nutzen ?

Danke

Mandy

 

Hallo ,

habe mal versucht, das in Excel abzubilden. Also im Prinzip suche ich sowas:

=Wechseln(Adresse(1;Vergleich("test";1:1;0);4);1;"")


diese Funktion sucht in der Excel in der Zeile 1 nach "test" und gibt den Buchstaben zurück, wo "test" gefunden wurde.

Diesen Könnte ich dann als Variable einbauen..

NUR: wie frage ich aus Access heraus diese Funktion ab bzw. wie geht das per VBA.

Danke
Mandy

 

Code:

 

Hallo CatboyJones,

Danke für Dein Beispiel.
Habe mal versucht, das bei mir einzubauen, aber irgend wie geht da nichts bei mir. Es kommt auch keine Fehlermeldung, sondern es wird nur eine leere msgbox angezeigt.

liegt aber sicher an mir :-)
Code:

(oder so: GID_ArbBlatt.WorksheetFunction.Match("Gruppe", oWS.Rows(1), 0) ???

Bin mir nicht sicher, ob ich das richtig bei mir gemacht habe:

Was zB geht, wenn ich den Header aus Spalte BB auslesen will:

Inhalt = GID_ArbBlatt.Range("BB" & MG_SzE)
Msgbox Inhalt

Nach dem gleich Muster habe ich es nun auch versucht, dein Beispiel bei mir einzubauen. Was mache ich falsch ???

Danke

Mandy

 

oExApp.WorksheetFunction.Match

WorksheetFunction gehört zum Application-Objekt nicht zum Worksheet-Objekt.

Code:

Sollte auch funktionieren.

 

Sorry, aber irgend wie schein ich heute zu doof zu sein:

Code:

Die erste msgbox liefert ein richtiges Ergebnis, die zweite ist weiterhin leer.
Rows(1) ist doch tatsächlich die erste Zeile , oder ? und mein Kenner "Gruppe" gibt es auch definitiv in der Zeile.
Was mach ich nur falsch ??? *frown.gif*

Mandy

 

Du musst natürlich überall mein oWS durch dein GID_ArbBlatt ersetzen.

iColOffset = GID_ArbBlatt.Application.WorksheetFunction.Match("Gruppe", oWS.Rows(1), 0)
sColLetter = Split(oWS.Cells(1, iColOffset).Address, "$")(1)

 

Oh man,
doch zu doof …

Jetzt geht es , vielen Dank für deine Geduld.

Mandy