---

Datenimport_Anfuegen.xls.txt

Hallo Kollegen im VB - Teil des Forums,

ich habe heut mal ein kleines Problem mit meinem Excel - Makro.
Dies hilft mir dabei, eine Abfrage aus einer SQL - Datenbank in meine Excel - Mappe einzutragen. Diese Excel - Mappe dient mir dabei als Schnittstelle zwischen der Datenbank und einem anderen Programm.
Soweit, so gut, klappt alles, allerdings habe ich das Problem, dass ich nur eine einzige Abfrage eintragen kann. Will ich die Tabelle dann fortsetzen, so schiebt er mir die existierenden Daten nach rechts, obwohl er die neuen Daten nur unten an die existierenden anfügen braucht.
Nun dachte ich mir, probier ich mal folgendes:

Set rngUsedRange = Excel.ActiveWorkbook.ActiveSheet.UsedRange
    lngRows = rngUsedRange.Rows.Count

Damit hole ich mir doch die "belegten" Zeilen, oder? Zumindest bekomme ich es damit hin, am Ende des Makro's den ausgefüllten bereich zu löschen.
Anschließend will ich bei dem Command 'Destination:=Range' diesen Ausdruck angeben, damit er am Ende der vorher geholten Daten, oder nach meinem Kopf mit Füllen beginnt.
Tja, nur leider hat "irgendwer" ein Problem damit. Fällt vielleicht jemandem ein Lösung dazu ein? Oder vielleicht eine andere Möglichkeit, dieses Problem zu erschlagen?
Achso, im Anhang ist noch das ganze Excel - Dokument zum Ansehen der Problematik.
Achso: VB ist nur so ein "kleines" Hobby von mir 
Vielen Dank im Voraus für eure Hilfe.

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tobias,

Zitat:

---

Tja, nur leider hat "irgendwer" ein Problem damit.

---

Ich habe mir Deine Mappe kurz angesehen; allerdings scheitert es bei mir bereits vorher, beim Lesen des Quelllaufwerks E:\ . Vermutlich bekommst Du eine Fehlermeldung seitens VBA (Einzelschrittmodus mit F8). Welche?

Falls es an der letzen Zeile liegt, fällt mir noch .Offset und .End(xlDown) ein; außerdem gab's hier im Forum diverse Beiträge zur Ermittlung der letzten Zeile/Zelle, die einen Wert enthält - z.B. hier, in etwa mittig, Stichwort: LetzteZeile. Ist da was dabei?

Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frederic,

dass es so funktioniert, auf die letzte belegte Zeile zu kommen, ist mir schon klar. Nur will ich dass dann auch in meine SQL - Abfrage mit einfügen! Ganz genau in dem Bereich, wo jetzt

Destination:=Range("A2")

steht, soll dann die auf die letzte belegte Zeile folgenden Zeile stehen. Trage ich dort anstatt "A2" den Ausdruck lngRows + 2 (variable) ein, so erhalte ich Destination:=range(lngRows + 2 , 1) und beim Ausführen den Laufzeitfehler 1004 "Anwendungs- oder objektdifinierter Fehler"

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Range(Zahl, Zahl) klappt nicht. Range möchte (Buchstabe, Zahl), siehe VBA-Hilfe zu Range:

Zitat:

---

...
Es muss ein Bezug in A1-Schreibweise in der Sprache des Makros sein.
...

---

Ich habe keinen blassen Schimmer von SQL und kann Deine Mappe nur begrenzt laufen lassen. Spiel' ein bisschen mit Cells, Range und der Verknüpfung von beidem herum.

Code:

---

Destination:=Cells(lngRows + 2, 1)

---

läuft?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frederic,

läuft leider nicht, erzeugt einen Syntaxfehler.

Grüße

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Verknüpft? Die Hilfe zu Cells (Beispiel)

Zitat:

---

In diesem Beispiel wird die Schrift der Zellen A1:C5 in Sheet1 auf kursiv gesetzt.

Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

---

Daraus kannst Du Dir doch sicher was basteln ?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Paulchen,

i hab's!

Code:

---

Destination:=wksWorksheet.Cells(lngRows + 1, 1)

---

Damit funktioniert es, neue Daten an die altdaten anzufügen. Vorher muss man jdedoch noch folgendes definieren:

Code:

---

Set wksWorksheet = ThisWorkbook.Worksheets(Artikelnummer)
Set rngUsedRange = wksWorksheet.UsedRange
lngRows = rngUsedRange.Rows.Count

---

Vielen Dank noch mal für deine Tip's.
Grüße

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP