Zell Koordinaten verwenden in "range- Funktion"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function WandleZahlInBuchstaben(ByVal iWert As Integer) As String Dim Spaltenbuchstabe As String Spaltenbuchstabe = Right(Columns(iWert).Address, _ Len(Columns(iWert).Address) - _ InStrRev(Columns(iWert).Address, "$")) WandleZahlInBuchstaben = Spaltenbuchstabe End Function

Hallo Hary, danke für den Hinweis, ok vielleicht habe ich mich nicht vollständig und gut genug ausgedrückt. Ich möchte mit arNamen nicht nur den Inhalt dieser selektierten Zelle auslesen sondern weitere Zellen rechts von diesem Punkt - deshalb .End(xlToRight). Es kommen nach rechts ca. 20 gefüllte Zellen die alle als Referenz der Spalten Überschriften für MS Access dienen. In MS Access soll dann eine Tabelle gefüllt werden mit all den Werten die unter diesem Bereich kommen. Hier das weitere Marco welches ich reingestellt habe:
https://www.herber.de/bbs/user/92327.txt
Ich hoffe ich habe mich jetzt besser ausgedrückt - sorry. Aber vielleicht mache ich das auch alles viel zu kompliziert und es git eine bessere Idee wie man Daten für variable Bereiche die immer die gleichen Überschriften haben nach MS Access überträgt. ich dachte über die SucheQ wäre das eine passable Lösung.
Gruß Karsten

Hallo hary, jetzt habe ich eine Lösung gefunden ist ja eigentlich gar nicht so schwer man muss nur die Zusammenhänge verstehen ;-)
Danke Euch allen die mir bei der Lösung geholfen haben. Gruß Karsten

Sub TEST02_DB_import()
Dim ADOC As ADODB.Connection
Dim DBS As ADODB.Recordset
Dim lngZeile As Long, intIndex As Integer
Dim ZelleA As Variant
Dim ZelleB As Variant
Dim ZeileB As Variant
Dim arNamen As Variant
Dim SucheQ As Variant
On Error GoTo Fehler
Set ADOC = New ADODB.Connection 'ADOC - Provider für Access Verbindung. Notwendigkeit der  _
Aktivierung von ActiveX Dataobject x.y Library unter:
'Extras-> Verweise-> Microsoft ActiveX Dataobject x.y  _
Library. Nimm immer die mit der höchsten Versionsnummer!!!
With ADOC
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "C:\Users\Karsten\Desktop\Documents\Excel\Beispiele\EMEA_MonthlyReport_HB.mdb"
End With
Set DBS = New ADODB.Recordset
DBS.Open "tbl_raw_data", ADOC, adOpenKeyset, adLockOptimistic
With Sheets("Importliste")
Set SucheQ = Sheets("Importliste").Range("A1:A50000").Find(What:="test") 'Suche der  _
Anfangsposition des Querys auf dem Arbeitsblatt
ZelleA = SucheQ.Offset(1, 0).Address
ZelleB = SucheQ.Offset(2, 0).Address
ZeileB = ActiveCell.Offset(1, 0).Row
arNamen = .Range(.Range(ZelleA), .Range(ZelleA).End(xlToRight))
For lngZeile = ZeileB To .Range(ZelleB).End(xlDown).Row
DBS.AddNew
For intIndex = 1 To UBound(arNamen, 2)
DBS.Fields(arNamen(1, intIndex)) = .Cells(lngZeile, intIndex).Value
Next
DBS.Update
Next
End With
Fehler:
If Err.Number Then MsgBox Err.Description, , Err.Number
Set DBS = Nothing
'DBS.Close
ADOC.Close
Set ADOC = Nothing
End 

Sub

Beliebteste Forumthreads (12 Monate)

Zell Koordinaten verwenden in "range- Funktion"

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zell Koordinaten verwenden in "range- Funktion"

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread