Thema Datum  Von Nutzer Rating
Antwort
09.03.2009 12:11:55 gflamme
NotSolved
Blau Aw:automatische Aktualisierung aus Datenbank
 10.03.2009 08:57:53 gflamme
NotSolved

Ansicht des Beitrags:
Von:
gflamme		 Datum:
10.03.2009 08:57:53		 Views:
790		 Rating:
     
Antwort:
  Ja
Thema:
Aw:automatische Aktualisierung aus Datenbank
hm...ich bzw. eigentlich mein Freund hat jetzt ne Lösung gefunden.

Wen's interessiert:

[code]Public Sub Daten_Import()
Dim DBPfad As String
Dim Tabellenname As String
Dim Anzahl_Felder, i, x, z, Anzahl, s As Integer
Dim n As Variant

DBPfad = ActiveWorkbook.Path & "\DB_Einnaessen_im_Vorschulalter.mdb"
Tabellenname = "TAB_daten_fragebogen"
Sheets("TAB_daten_fragebogen").Select
Range("A1:AL65536").ClearContents
Range("A1").Select
Dim ws As Workspace
Set ws = DBEngine.Workspaces(0)

Dim Datenbank As Database
'Datenbank öffnen
Set Datenbank = OpenDatabase(DBPfad)

'Überschriften setzen (Feldnamen)
Anzahl_Felder = 0
For i = 0 To Datenbank.TableDefs(Tabellenname).Fields.Count - 1
Anzahl_Felder = Anzahl_Felder + 1
Cells(1, Anzahl_Felder) = Datenbank.TableDefs(Tabellenname).Fields(i).Name
With Cells(1, Anzahl_Felder)
.Interior.ColorIndex = 48
.Interior.Pattern = xlSolid
.Font.Bold = True
End With
Next i


'Tabelle zum Einlesen öffnen
Dim Datensatz As Recordset

Set Datensatz = Datenbank.OpenRecordset(Tabellenname, dbOpenDynaset)
'Anzahl der Datensätze
Anzahl = Datenbank.TableDefs(Tabellenname).RecordCount
z = 2 'ab Zeile 2 Daten schreiben
'alle Datensätze einlesen
Do Until Datensatz.EOF
'Schleife über alle Felder
'ab Spalte 1 wird geschrieben
s = 1
For x = 0 To Datenbank.TableDefs(Tabellenname).Fields.Count - 1
'Wert ermitteln
n = Datensatz.Fields(x).Value
'Ausgabe in der Tabelle
Cells(z, s) = n
'Spaltennummer um 1 erhöhen
s = s + 1
Next x
'Ausgabezeile um 1 erhöhen
z = z + 1
'nächster Datensatz
Datensatz.MoveNext
Loop
'Datenbank schließen
Datenbank.Close
'Optimale Spaltenbreite
Range(Cells(1, 1), Cells(1, Anzahl_Felder)).EntireColumn.AutoFit
'Information (Anzahl der Datensätze)

Sheets("Menü").Select

Set Datenbank = Nothing
Set Datensatz = Nothing

End Sub[/code]

Erklären kann ich das allerdings alles nicht ^^

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.03.2009 12:11:55 gflamme
NotSolved
Blau Aw:automatische Aktualisierung aus Datenbank
 10.03.2009 08:57:53 gflamme
NotSolved