Selektierter Datensatz in Excel Zelle schreiben?

[silentwolf]

Hi habe wieder mal einen Engpass mit einem Code

Code [Auswählen] Erweitern

Private Sub cmdReport_Click()
    Dim appExcel As Excel.Application
    Dim wbkExcel As Excel.Workbook
    Dim wksExcel As Excel.Worksheet
 
    Set appExcel = Excel.Application
    Set wbkExcel = appExcel.Workbooks.Open(CurrentProject.Path & "\Objekt.xlsx", , , , , , , , , , , , False)
    appExcel.Visible = True
    Set wksExcel = wbkExcel.Worksheets("Tabelle1")


   
    wksExcel.Cells(1, 2).Value = currentdb.OpenRecordset ("Select *
   
   
End Sub

[silentwolf]

tut mir leid hab jetzt zu schnell gedrückt!!

Code [Auswählen] Erweitern

Private Sub cmdReport_Click()
    Dim appExcel As Excel.Application
    Dim wbkExcel As Excel.Workbook
    Dim wksExcel As Excel.Worksheet
 
    Set appExcel = Excel.Application
    Set wbkExcel = appExcel.Workbooks.Open(CurrentProject.Path & "\Objekt.xlsx", , , , , , , , , , , , False)
    appExcel.Visible = True
    Set wksExcel = wbkExcel.Worksheets("Tabelle1")
   
    wksExcel.Cells(1, 2).Value = currentdb.OpenRecordset ("Select *
   
   
End Sub

Also ab der letzten Zeile des Codes komme ich leider nicht mehr weiter!
Ich möchte in einem HF das ein UF enthält einen Datensatz im UF auswählen bzw. den selektierte Datensatz
möchte ich per button in eine Bestimmte Zelle in Excel auslesen.
Könnte mir jemand diesbezüglich Helfen bitte?

Dankeschön

Albert

[silentwolf]

Hi nochmal ich versuche mich noch ein bisschen besser auszudrücken

wie schaut den der Code aus um den selektierten Datensatz eines Endlosformular das sich im UF befindet in eine Excel Zelle einzulesen.
Bekomme es einfach nicht hin ??

Vielen Dank

Albert

[Stapi]

Hallo

  Set xlArbBlatt = xlBuch.Worksheets(5) ' die Zahl z.b 5 gibt dir an welche Tabelle in deinem Excel Datei angesprochen werden soll
     xlArbBlatt.Shapes("Textfeld 13").TextFrame.Characters.Text = "Dein Wert" ' gezeigt wie ein Textfeld in Ecxel befüllt wird
        xlArbBlatt.Range("B6").Value ="Dein Wert" 'hier eine Zelle in Ecxel befüllt wird

[silentwolf]

Hallo Stampi,

danke erst mal für Deine Nachricht!!
Na ich möchte eigentlich nur einen ausgewählten Datensatz im Access an eine bestimmte Excel Tabelle einfügen.
Bekomme aber es nicht hin

z.B. wie muss denn dieser Code aussehen damit ich den ausgewählten DS bekomme

    wksExcel.Cells(1, 2).Value = CurrentDb.???Der Ausgewählte Datensatz und die Spalte "KontaktName" soll nun in die wksExcel.Celle(1,2) geschrieben werden..


Hoffe das ist verständlich wie ich es beschreibe 

Danke

[Stapi]

Hallo

wksExcel.Cells(1, 2).Value = CurrentDb.???Der Ausgewählte Datensatz und die Spalte "KontaktName" soll nun in die wksExcel.Celle(1,2) geschrieben werden..

Habe ich dir doch gezeigt:
xlArbBlatt.Range("B6").Value ="Dein Wert" 'hier wird die Zelle B6 in Ecxel befüllt wird

[silentwolf]

Hi Stampi,

ich glaube wir reden ein wenig aneinander vorbei

Hier ist mein Code den ich in Access habe.

Code [Auswählen] Erweitern

Private Sub cmdReport_Click()
    Dim appExcel As Excel.Application
    Dim wbkExcel As Excel.Workbook
    Dim wksExcel As Excel.Worksheet
    Dim rcsP As Recordset

    Set appExcel = Excel.Application
    Set wbkExcel = appExcel.Workbooks.Open(CurrentProject.Path & "\Objekt.xlsx", , , , , , , , , , , , False)
    appExcel.Visible = True
    Set wksExcel = wbkExcel.Worksheets("Tabelle1")
   
    set rcsP = currentDb.OpenRecordset                        """"CurrentDb. openRecordset stimmt das ?? Und wie bekomme ich nun den Selektierten DS den ich im UF ausgewählt habe in diese Code Zeile?""""
    wksExcel.Cells(1, 2).Value =                                   """Diese Code Zeile gibt mir schon die richtige Zeile im WS an. Aber Ich möchte ja als Value den DS den ich Ausgewählt habe und das Feld "KonName"""""

End Sub

Tut mir leid ich kann es leider nicht besser erklären

Albert

[Stapi]

Hallo

ich glaube wir reden ein wenig aneinander vorbei

Nein

Set wksExcel = wbkExcel.Worksheets(1)        
wksExcel.Range("B6").Value  = ">>> Hier dein Datensatz<<<<<"  

Wenn du den Datensatz nicht zusammen hängen hast, must du jede Ecxel Zelle einzeln ansprechen.
wksExcel.Range("B6").Value  = ">>> Feld_Nachname<<<<<" 
wksExcel.Range("B7").Value  = ">>> Feld_Vorname<<<<<" 
usw.

[silentwolf]

Danke Dir,

Nur ich weis nicht was >>>Mein Datensatz<<<< ist???
Ich kann ja nicht in den Code schreiben Nimm doch bitte den Datensatz her den ich ausgewählt habe  und davon das Feld Kontakt Name

[Stapi]

Hallo

Ich kann ja nicht in den Code schreiben Nimm doch bitte den Datensatz her den ich ausgewählt habe  und davon das Feld Kontakt Name

wksExcel.Range("B7").Value  = DLookup("[Kontakt Name]", "Hier den Namen deiner Abfrage eintragen")

So Verständlicher?
Ganz wichtig fehlt noch in deinem Code, am Ende die Objekte zerstören.

  Set appExcel = Nothing
  Set wbkExcel = Nothing
  Set wksExcel = Nothing

[silentwolf]

Hi Stampi,

es tut mir ja leid aber das geht so nicht das ist nicht was ich meine oder was ich brauche.
Ich weis nicht wie ich meinen kleinen Code sage das er den Datensatz hernehmen soll den ich ausgewählt habe.
Es handelt sich hier um ein Access UF.
Und dessen Datensatz.

[Stapi]

Hallo silentwolf

Hi Stampi

Heißt "Stapi"

Erzeuge eine Abfrage auf die Tabelle deines  UFO, als Abfrage Kriterium die ID des Datensatz.
Aus dieser Abfrage beziehst du die Daten wie beschrieben
Private Sub cmdReport_Click()   
Dim appExcel As Excel.Application   
Dim wbkExcel As Excel.Workbook   
Dim wksExcel As Excel.Worksheet   
Dim rcsP As Recordset   
Set appExcel = Excel.Application   
Set wbkExcel = appExcel.Workbooks.Open(CurrentProject.Path & "\Objekt.xlsx", , , , , , , , , , , , False)   
appExcel.Visible = True
Set wksExcel = wbkExcel.Worksheets(1)
wksExcel.Range("B7").Value  = DLookup("[Kontakt Name]", "Hier den Namen deiner Abfrage eintragen")

Set appExcel = Nothing
Set wbkExcel = Nothing
Set wksExcel = Nothing
End Sub

[silentwolf]

Hi Stapi... Tut mir leid!
Hab ich mich wohl ein bissl verlesen
Danke auf alle Fälle für Deine Mail!!

Ich hab Deinen Vorschlag umgesetzt!
Nur mit den Kriterium hab ich wahrscheinlich noch meine Probleme in der Abfrage
Deshalb denke ich werden auch die Daten also nur die Daten des ersten Datensatzes dort eingefügt.

Wird das Kriterium im Abfrage Entwurf eingegeben=?
Wenn ja wie muss denn der aussehen?

Lg
Danke noch mal!

Albert

[Stapi]

Hallo Albert

Du hast eine neue Abfrage erzeugt, in der du im Abfrage Entwurf ein Kriterium an geben kannst und das auf Bezug deines Formular.
In etwa so:
Forms!Name_deines_HFO.Name_deines_IDFeld

[silentwolf]

Hi Stapi,

danke für Deine mail!
Ja ich habe eine Abfrage erstellt. Nur mit dem Kriterium funktioniert es noch nicht....
Ein screenshot was ich versucht habe.
Und noch ein screenshot wie das Formular aussieht.
Das HF hat den Namen frmObjektListe
UF mit den Namen frmKontaktObjekt
qryKonObjekte

Hab schon probiert aber leider ohne Erfolg

Albert



Vielen Dank

Albert