daten aus excel nach access (mdb) exportieren

[Chrisi99]

danke wbendl für die umfangreiche hilfe bisher!!

eine Frage hab ich jetzt noch

mit der SQL-Anweisung wird ein Bestimmter Zellenbereich (Ax:Zy) mit Monatsumsätzen gefüllt. Über den Chartwizard

Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A1:B17"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Monatsübersicht"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

wird dann aus diesem Bereich ein Diagramm erstellt.
Die Anzahl der Verkäufer kann sich aber ändern (wenn nach Kostestelle abgefragt wird). deshalb würde ich gerne den Tabellenbereich dynamisch (automatisch) vergrößern können.
füe die Letzte Zeile gibt es ja die Funktion

Range("A65536").End(xlUp).Offset(1, 0).Select
lr = ActiveWindow.RangeSelection.Address

und die letzte Spalte wird bei der Ausgabe durch eine Zählschleife auf der numerischen Variable "ss" festgelegt.

wie kann ich das jetzt in meine
Range("A1:B17")
einbauen?

es müsste dann ca so aussehen: Range("A1:ss[umgewandelt in Buchstaben]lr[umgewandelt in zahl]")
leider bekomm ich das nicht hin, und es scheint auch keine vorgefertigte Lösung zu geben (zumindest hab ich in google nichts entdeckt....

mfg

[wbendl]

Eine Zelle oder einen Bereich kann man auch nur mit Zahlen definieren. Damit kann man numerische Variable direkt einsetzen.

Beispiel:
Range(Cells(Zeile1, Spalte1), Cells(Zeile2, Spalte2))

mfg

WB

[Chrisi99]

Original geschrieben von wbendl
Eine Zelle oder einen Bereich kann man auch nur mit Zahlen definieren. Damit kann man numerische Variable direkt einsetzen.

Beispiel:
Range(Cells(Zeile1, Spalte1), Cells(Zeile2, Spalte2))

mfg

WB

so hab ich es auch schon versucht, leider kam da gleich eine neue lustige Fehlermeldung

ohne die "Cells(,)" geht es aber....

noch etwas ist mir eingefalle.
kann ich am ende einer Monatsabrechnung (aus der access-db) eine =SUMME(A1:A13) anhängen, und das für jedes monat extra (also in die Schleife einbauen die mir die Monatsbeträge ausspuckt)

mfg

[wbendl]

Zu Cells:
Eventuell muß die Tabelle angegeben oder ausgewählt werden.
Ich hab diese Methode jedenfalls früher verwendet.

Zur Summe:
Wie die Formel in eine Zelle kommt, kannst du dir mit dem Makro-Recorder ansehen.
Du könntest die Summe aber auch über SQL aus der DB holen.

Es wäre übrigens möglich, die ganze Tabelle über eine SQL-Anweisung zu erstellen. Schau dir mal in Access eine Kreuztabellen-Abfrage an.

Ich hab einmal ein Tool für die Berechnung einer Gesamtwertung aus mehreren Radrennen gebastelt. Die Version mit der DB war ca. um den Faktor 100 schneller als die Version mit Excel und VBA.

mfg

WB

[renew]

Original geschrieben von wbendl
Eine Zelle oder einen Bereich kann man auch nur mit Zahlen definieren. Damit kann man numerische Variable direkt einsetzen.

Beispiel:
Range(Cells(Zeile1, Spalte1), Cells(Zeile2, Spalte2))

mfg

WB

Dass geht!?

Cool, und ich hab mir, das letzte mal wie ich sowas gebraucht hab, extra eine Funktion gebastelt die von "A" weg mit ASCII Werte rechnen konnte und dann wieder auf die Buchstaben umgewandelt hat....

[Chrisi99]

Original geschrieben von wbendl
Zu Cells:
Eventuell muß die Tabelle angegeben oder ausgewählt werden.
Ich hab diese Methode jedenfalls früher verwendet.


WB

es kommt der Fehler:

"Die Methode 'Cells' für das Objekt '_Global' ist fehlgeschlagen"

wie meinst du das aktivieren/Auswählen der Tabelle?

Sheets("Tabelle1").Activate
?

mfg

[wbendl]

Poste mal den ganzen Code. Dann probier ich das selber.

Übrigens welche Version von Excel verwendest du?

mfg

WB

[Chrisi99]

achtung lange Codewurst

Office 2002

Option Base 1
Global db As Database, rc As Recordset, rc1 As Recordset, rec As Recordset, rc2 As Recordset
Global aktuellesnodes As Variant
Global ss As Integer

Sub sql_umsatz()
Dim var As String
Dim w1 As Worksheet
Set w1 = Worksheets("monatsumsatz")
w1.Range("E3:K30").ClearContents
a = ActiveCell.Row
NR = ActiveSheet.Cells(a, 29).Value
Set db = DBEngine.Workspaces(0).OpenDatabase("J:\PROJEKT\PIS\test\test.mdb")
sql1 = "SELECT Mitarbeiter.PNR, Umsatz.NAME, Umsatz.VNAME,_"
Umsatz.[Umsatz/Jänner], Umsatz.[Umsatz/Februar], Umsatz.[Umsatz/März],_
Umsatz.[Umsatz/April], Umsatz.[Umsatz/Mai], Umsatz.[Umsatz/Juni],_
Umsatz.[Umsatz/Juli], Umsatz.[Umsatz/August], Umsatz.[Umsatz/September],_
Umsatz.[Umsatz/Oktober], Umsatz.[Umsatz/Novmeber], Umsatz.[Umsatz/Dezember]_
FROM Mitarbeiter INNER JOIN Umsatz ON Mitarbeiter.PNR=Umsatz.PNR"

Set rc1 = db.OpenRecordset(sql1)

On Error Resume Next
rc1.MoveFirst
ss = 2
i = rc1.RecordCount
w1.Select
While Not rc1.EOF
For anz = 1 To i
w1.Cells(3, ss).Value = rc1!PNR
w1.Cells(4, ss).Value = rc1!Name
w1.Cells(5, ss).Value = rc1!VNAME
w1.Cells(6, ss).Value = rc1!KST
w1.Cells(7, ss).Value = rc1![Umsatz/Jänner]
w1.Cells(8, ss).Value = rc1![Umsatz/Februar]
w1.Cells(9, ss).Value = rc1![Umsatz/März]
w1.Cells(10, ss).Value = rc1![Umsatz/April]
w1.Cells(11, ss).Value = rc1![Umsatz/Mai]
w1.Cells(12, ss).Value = rc1![Umsatz/Juni]
w1.Cells(13, ss).Value = rc1![Umsatz/Juli]
w1.Cells(14, ss).Value = rc1![Umsatz/August]
w1.Cells(15, ss).Value = rc1![Umsatz/September]
w1.Cells(16, ss).Value = rc1![Umsatz/Oktober]
w1.Cells(17, ss).Value = rc1![Umsatz/Novmeber]
w1.Cells(18, ss).Value = rc1![Umsatz/Dezember]
ss = ss + 1 'Zählvariable für die Schleife
rc1.MoveNext
Next anz
Wend
Call Chart
End Sub
Sub Chart()
'gibt die Tabelle aus
Dim lr As String
Dim lc As String


 Range("A65536").End(xlUp).Offset(1, 0).Select
 
 lr = ActiveWindow.RangeSelection.Address
 lc = ss
 
    'Range("A5:D18").Select
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("monatsumsatz").Range("A7:B17"), PlotBy:=xlColumns 'Diese Zeile sollte automatisch
    'an das ende angepasst werden, wenn man zb nur die Daten von Januar bis März ausgeben lässt
    ActiveChart.Location Where:=xlLocationAsObject, Name:="monatsumsatz"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Monatsübersicht"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

ps: kann man diese "Verweise" einmal über zB eine Globale Definition einbinden?? das nervt schon sehr das immer wieder anzuwählen!


mfg und Danke für die Hilfe (1000 mal)

[wbendl]

Hab ich mich doch richtig erinnert. Die Tabelle muß vorher ausgewählt werden. (Würde ich als Bug bezeichnen)

Name des Diagramm-Blattes zur späteren Verwendung speichern:
dia = ActiveChart.Name

Tabellen-Blatt auswählen:
Sheets("Tabelle1").Select

Dann sollte es so funktionieren:
Diagramm-Blatt mit Namen ansprechen.
Sheets(dia).SetSourceData Source:=Range(Cells(7, 1), Cells(17, 2)), PlotBy:=xlColumns

Blätter mit Namen ansprechen ist immer gut. Wer weiß mitten im Code schon, was jetzt ActiveSheet ist?

Mit Probieren ist leider nichts. Also alle Angaben ungeprüft.

Was meinst du bezüglich der Verweise?

Noch ein paar Tips, für die Zukunft:
Globale Deklarationen sollte man so sparsam wie möglich verwenden. Bei dir sind wahrscheinlich keine notwendig. Um Variable mehreren Prozeduren zur Verfügung zu stellen, verwendet man Parameter.

Das Schlüsselwort Global sollte man auch nicht verwenden. Es genügt Dim im Deklarations-Abschnitt.

Außerdem möchte ich dir nochmal ADO ans Herz legen. Da würde ich dann eventuell die Connection Modulweit deklarieren.

mfg

WB