Hi habe wieder mal einen Engpass mit einem Code :(
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
tut mir leid hab jetzt zu schnell gedrückt!!
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
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
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
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
Hallo
ZitatwksExcel.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
Hi Stampi,
ich glaube wir reden ein wenig aneinander vorbei :)
Hier ist mein Code den ich in Access habe.
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
Hallo
Zitatich 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.
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 :'(
Hallo
ZitatIch 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
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.
Hallo silentwolf
ZitatHi 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
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
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
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
Hallo Albert
Ist die besagte ID im Unterformular? Oder im Hauptformular ? die als Kriterium der Abfrage dient
Bezug auf das Unterfomular:
Forms![Hauptformular]![UFoSteuerelement_im_Hauptformular].Form![Steuerelement_im_Ufo]
Bezug auf Hauptformular:
Forms![Hauptformular].[Steuerelement_im_Hfo]
Also ich wähle einen DS im UF aus und im HF hab ich den Button der mir es ins Excel übergeben soll.
Hallo Albert
Dann lese meine Beitrag.
Bezug zum Ufo.
Hallo Stapi,
danke und wo finde ich den Beitrag?
Albert
Hallo Albert
ZitatIst die besagte ID im Unterformular? Oder im Hauptformular ? die als Kriterium der Abfrage dient
Bezug auf das Unterfomular:
Forms![Hauptformular]![UFoSteuerelement_im_Hauptformular].Form![Steuerelement_im_Ufo]
Bezug auf Hauptformular:
Forms![Hauptformular].[Steuerelement_im_Hfo]
So besser?
Hallo Stapi,
vielen Dank für Deine Hilfe wirklich!!
[Forms]![frmObjektListe]![frmKontaktObjekt].[Form]![txtObjektName]Aber ich denke ich gebe es auf! Ich hab folgendes Kriterium nun in meine Abfrage gestellt [Forms]![frmObjektListe]![frmKontaktObjekt].[Form]![Kon_ID]
und das ganze in verschiedenen Spalten meiner Abfrage gestellt.
Nun zeigt mir das UF gar nichts mehr an es kommt gleich eine Parameter Eingabe.
Ich bekomme es einfach nicht hin.
Aber wie gesagt ich bedanke mich für Deine Hilfe aber ich werde es einfach mal lassen . Schein noch eine Nummer zu groß für mich zu sein :)
Danke und ein schönes WE
Albert
Hallo Albert
ZitatAber wie gesagt ich bedanke mich für Deine Hilfe aber ich werde es einfach mal lassen . Schein noch eine Nummer zu groß für mich zu sein
Wer wird den gleich aufgeben ;) ;)
ZitatNun zeigt mir das UF gar nichts mehr an es kommt gleich eine Parameter Eingabe.
Ich bekomme es einfach nicht hin.
Dein UFO darf nicht als Datenherkunft deine neue Abfrage sein, es ändert sich nur das du eine neue Abfrage erstellst
die nur für den Export nach Ecxel gebraucht wird und in dieser wird das Kriterium auf die ID deines UFO.Heißt du öffnest deine Hfo mit Ufo wählst dein Datensatz aus den du Exportieren möchtest, nun öffne deine Abfrage dort kannst du sehen ob der richtige Datensatz zum Export angezeigt wird.
Um dir weiter helfen zu können biete ich dir an lade deine beiden Tabellen und den Formularen
mit Spieldaten im Acces Format 2003 hier hoch, dann können wir anhand deiner Tabellen das plausibel zeigen.
Guten Morgen Stapi,
hab mich Heute Morgen noch mal mit diesen Thema beschäftigt und muss sagen jetzt hat es geklappt :)
Vielen Dank!!
Geht doch ;D
Schönen Gruß
Albert