Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus Excel in Access einfügen

Forumthread: Daten aus Excel in Access einfügen

Daten aus Excel in Access einfügen
23.09.2004 09:39:11
Christian
Hallo,
ich habe folgendes Problem:
Ich will die Daten A2:A20 im Worksheet "Ausgabe" per Knopfdruck
als neuen Datensatz in der Tabelle "Sheet1" der Datenbank "Kennzahlen.mdb" anfügen. Folgenden Code habe ich bereits, er funktioniertaber wegen "anwendungs- und objektdefinierter Fehler" nicht und ich bin völlig ratlos...
Vielen Dank im Voraus
Hier mein Code:

Private Sub CommandButton4_Click()
Dim Datenbank As Database
Dim Tabelle As Recordset
Set Datenbank = dbengine.Workspaces(0).OpenDatabase("Z:\Ad_pt6\DTP_ALLG_Info\TWC_allgemein\Kennzahlen\Einlesen_von_Daten\Kennzahlen.mdb")
Set Tabelle = Datenbank.TableDefs("Sheet1").OpenRecordset
Worksheets("Ausgabe").Select
letztezeile = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To letztezeile
Tabelle.MoveLast
Tabelle.AddNew
Tabelle!Analysedatum = Range("A" & i).Value
Tabelle!ÜbNummer = Range("B" & i).Value
Tabelle!Art_des_Dokuments = Range("C" & i).Value
Tabelle!Ausgangssprache = Range("D" & i).Value
Tabelle!Zielsprache = Range("E" & i).Value
Tabelle!Xtranslated = Range("F" & i).Value
Tabelle!Repetitions = Range("G" & i).Value
Tabelle!Matches = Range("H" & i).Value
Tabelle!aMatches = Range("I" & i).Value
Tabelle!bMatches = Range("J" & i).Value
Tabelle!noMatches = Range("K" & i).Value
Tabelle!Summe_Worte = Range("L" & i).Value
Tabelle!Xtranslated_p = Range("M" & i).Value
Tabelle!Repetitions_p = Range("N" & i).Value
Tabelle!Matches_p = Range("O" & i).Value
Tabelle!aMatches_p = Range("P" & i).Value
Tabelle!bMatches_p = Range("Q" & i).Value
Tabelle!noMatches_p = Range("R" & i).Value
Tabelle!Verhältnis_Match_zu_NoMatch = Range("S" & i).Value
Tabelle.Update
Next i
Datenbank.Close
End Sub

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Excel in Access einfügen
23.09.2004 12:17:35
tom
hab dir mal die befehlsfolge reingeschrieben.
Dim DB1 As Database
Dim RS1 As Recordset
Dim sMDBFile1 As String
Dim sPasswort1 As String
sMDBFile1 = (ThisWorkbook.Path & "\deine.mdb")
Set DB1 = DBEngine.OpenDatabase(sMDBFile1)
Set RS1 = DB1.OpenRecordset(Name:="einetabelleinderdatenbank , Type:=dbOpenDynaset)
With RS1
.AddNew
.Fields("deinfeldname").Value = "dein Text" oder deine vari
.Update
End With
DB1.Close
hoffe du kommst damit klar. viel vergnügen
tom
Anzeige
AW: Daten aus Excel in Access einfügen
Christian
Hi,
Danke erstmal!!!
Aber vielleicht könntest du es dir nochmal anschauen.
Wie kann ich denn in die Datenbank statt hier "abc" den Inhalt einer Zelle von Excel übernehmen?
Hab's jetzt nach deinen Angaben in Folgendes geändert, der "anwendungs- oder objektorientierte Fehler" kommt aber auch so. Und zwar in der Zeile mit OpenRecordset

Private Sub CommandButton4_Click()
Dim DB1 As Database
Dim RS1 As Recordset
Dim sMDBFile1 As String
Dim sPasswort1 As String
sMDBFile1 = (ThisWorkbook.Path & "Z:\Ad_pt6\DTP_ALLG_Info\TWC_allgemein\Kennzahlen\Einlesen_von_Daten\Kennzahlen.mdb")
Set DB1 = DBEngine.OpenDatabase(sMDBFile1)
Set RS1 = DB1.OpenRecordset(Name:="Sheet1", Type:=dbOpenDynaset)
With RS1
.AddNew
.Fields("Analysedatum").Value = "abc"
.Update
End With
DB1.Close
End Sub

Anzeige
AW: Daten aus Excel in Access einfügen
Christian
Habe vergessen button anzuklicken
AW: Daten aus Excel in Access einfügen
23.09.2004 19:11:00
tom
hi christian
deine pfadangabe stimmt vermutlich nicht.
thisworkbook.path war noch von mir, wenn du deinen absoluten pfad zusätzlich einträgst
hauts nich mehr hin.
so müsste es eigentlich funktionieren
sMDBFile1 = ("Z:\Ad_pt6\DTP_ALLG_Info\TWC_allgemein\Kennzahlen\Einlesen_von_Daten\Kennzahlen.mdb")
probiers mal aus. ich schau später noch mal rein.
tom
Anzeige
AW: Daten aus Excel in Access einfügen
Christian
Tut sich leider nichts...
AW: Daten aus Excel in Access einfügen
24.09.2004 12:22:01
tom
Versuchs nochmal mit ner neuen Exceldatei und ner neuen Datenbank - das Beispiel ist dann einfacher zu verstehen.
Du brauchst nur eine kleine Datenbank, Name: datenbank.mdb
im Ordner dieser Exceldatei.
In der datenbank.mdb eine Tabelle mit dem Namen "daten"
In der Tabelle ein Feld mit dem Namen "üdaten" mit dem entsprechenden Format.
Daten Zelle A1 werden in die Datenbank übernommen

Sub übernehmen()
Dim DB1 As Database
Dim RS1 As Recordset
Dim sMDBFile1 As String
Dim sPasswort1 As String
sMDBFile1 = (ThisWorkbook.Path & "\datenbank.mdb")
Set DB1 = DBEngine.OpenDatabase(sMDBFile1)
Set RS1 = DB1.OpenRecordset(Name:="daten", Type:=dbOpenDynaset)
a = Sheets("Tabelle1").Range("A1").Text
With RS1
.AddNew
.Fields("üdaten").Value = a
.Update
End With
DB1.Close
With Sheets("Tabelle1")
.Range("A1") = ""
End With
End Sub

Bei mir geht’s
wie immer viel Vergnügen
tom
Anzeige
AW: Daten aus Excel in Access einfügen
Christian
Danke,
geil!!! Es funktioniert!!!
Ich bin dir unendlich dankbar! Ich hab's inzwischen 3Tage lang probiert und es hat nie geklappt!
DankeDankeDankeDanke
!!We are not worthy!!
;

Forumthreads zu verwandten Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Anzeige
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Anzeige
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Anzeige
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Import von daten aus txt file
daten

Guten Morgen an alle VBA-Aktivisten
Ich hätte mal ne kleine Frage. Ich hab einen Code der es mir ermöglicht innerhalb eines Tabellenblattes über einen Button eine txt-Datei zu öffnen und in eine bestehende Tabelle einzulesen. Leider fängt er immer im txt file ganz oben links an. Wie kann ic...
10.10.2008 09:07:22
Thread-ID: 1015499
6 Beiträge
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige