---

Hallo,
ich möchte Daten einlesen von einer Excelzeile. Dabei ist in der ersten Spalte jeweils die ID eingetragen, z.B. eine Nummer.

Gibt es eine Möglichkeit, auf diese Zeile anhand der bekannten ID zuzugreifen?
Die Möglichkeit einer Schleife, in der pro Zeile geprüft wird, ob die  ID mit der gesuchten übereinstimmt würde ich ungerne verwenden.
Meine Befürchtung ist, das bei Verwendung einer Schleife die Performace bei größeren Datensätzen ganz schön leidet.

Ich möchte das nochmal verdeutlichen, wie ich so etwas in LISP lösen würde:

Aus den Excel-Zeilen eine Liste erzeugen:
(setq liste
((Zelle A1)(Zelle B1)(Zelle C1)(Zelle D1))
((Zelle A2)(Zelle B2)(Zelle C2)(Zelle D2))
((Zelle A3)(Zelle B3)(Zelle C3)(Zelle D3))
((Zelle A4)(Zelle B4)(Zelle C4)(Zelle D4)))
wobei in den Zellen A1 bis A4 jeweils eine ID enthalten ist, z.B. die Nummer "1" bis "4"

Um dann den 2 Eintrag der Zeile mit der ID "2" zu bekommen kann ich die Funktion ASSOC verwenden:
(CADR(ASSOC "2" liste))

Diese Art der Datenabfrage funktioniert in LISP auch mit großen Datenmengen ziemlich schnell.

Ich freu mich über Anregungen und Ideen, und, sprechen Sie langsam, in VBA tu ich mich immer ein bißchen schwer

------------------
viele Grüße

Jörn

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

---

Hallo nochmal,

ich glaube, ich bin bereits weitergekommen, dank des Beitrages
http://ww3.cad.de/foren/ubb/Forum259/HTML/000849.shtml#000017

Ungefähr zu folgenden Ergebnis bin ich gekommen, mit großen Datenmengen habe ich das allerdings noch nicht getestet.

Code:

---

Sub LD_test(Pfad)
Dim ExcelWb As Excel.Workbook
Dim found As Range
Dim Zelle_spalte_x_in_zeile_ID
Dim ID As String
Dim Spalte As Integer
ID = "2"
Spalte = 5
Set ExcelWb = Excel.Application.Workbooks.Open(FileName:=Pfad)
Set found = ActiveSheet.Columns("A:A").Find(What:=ID)
Zelle_spalte_x_in_zeile_ID = ActiveSheet.Cells(found.Row, Spalte)
ExcelWb.Close
End Sub

---

------------------
viele Grüße

Jörn

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

---

wenn Du nur eineige wenige Excel zeile benötigst, könnte diese Methode passen.

Solltest Du aber alle Zeilen benötigen, und darauf gezielt zugreifen wollen (ähnlich Deinem Assoc Beispiel) könnte das Mricrosoft Scripting.Dictionary Objekt interresant sein.

kleines Beispiel, anstatt eine Excelliste einzulesen mache ich nur eine Schleife von 1 bis 20, wobei der Schleifenzähler i als ID herhält.

1. Verweis auf Microsoft Scripting Runtime (scrrun.dll)

2. Erstellen eines Klassenmodules namens Datensatz mit folgendem Inhalt
Public ID As String
Public ZelleB As String
Public ZelleC As String
Public ZelleD As String
Public ZelleE As String

3. Erstellen eineer Testroutine in einem Modul mit folgendem Inhalt

Sub test()
 
    Dim dict As New Scripting.Dictionary
    Dim zeile As Datensatz

    For i = 1 To 20
        Set zeile = New Datensatz
        zeile.ID = i
        zeile.ZelleB = "ZelleB Datensatz " & i
        zeile.ZelleC = "ZelleC Datensatz " & i
        zeile.ZelleD = "ZelleD Datensatz " & i
        zeile.ZelleE = "ZelleE Datensatz " & i
        Call dict.Add(i, zeile) ' hier wird i als ID verwendet
    Next

    Debug.Print dict.Item(15).ZelleB  ' hier würde man mit dict.item(ID).ZelleB eigentlich suchen
   
End Sub

-> ZelleB Datensatz 15

Dabei sollte man aber immer zuerst schauen, ob es einen Datensatz mit dem gesuchten ID gibt

if dict.exists(ID) then
  debug.print dict(ID).ZelleB
  debug.print dict(ID).ZelleC
  debug.print dict(ID).ZelleD
end if

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

mitarbeiter.gif

Hallo Anton,
danke erstmal für Dein Antwort.
Also meine Datenmenge wird ungefähr 2000 Zeilen groß sein. Mit der Find-Methode komme ich da auch wirklich schnell zum Ergebnis.
Hätte es jetzt nicht funktioniert, dann hätte ich mich bestimmt mit dem Microsoft Scripting.Dictionary Objekt auseinandergesetzt, hatte ich bis jetzt noch nichts von gehört.
Aber das mit dem Klassenmodul habe ich gleich für meine Variante übernommen (auch noch alles Neuland für mich).

Eine weiter Frage hätte ich aber noch.
Ich möchte von der Tabelle "Administrator" die Spalte Mitarbeiter einlesen, damit ich die Namen der Mitarbeiter in einem Pulldownmenü zur Verfügung stellen kann. (siehe beigepacktes Bild)

Code:

---

Dim Mitarbeiter As Range
Set Mitarbeiter = Worksheets("Administrator").Range("A:A")

---

Dann habe ich also die Objektvariable Mitarbeiter, und unter
Mitarbeiter.Value2.Value2(2).Value2(2,1) finde ich dann z.B. den "Meier"  wieder.

Wenn ich in LISP programmieren würde hätte ich die Daten als Liste vorliegen. Dann würde ich mit VL-REMOVE-IF und MAPCAR folgende Liste erzeugen:
("Mitarbeiter" "Meier" "Müller" "Schulz" "Mustermann" "Wassermann")

Wie komme ich in VBA zu einem vergleichbaren Ergebnis, das ich eine Variable MITARBEITER(Anzahl der Einträge) AS STRING bekomme?

------------------
viele Grüße

Jörn

[Diese Nachricht wurde von joern bosse am 20. Mai. 2008 editiert.]

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

---

Tja ich würde da einfach eine Schleife drüber programmieren, und die Namen in einem Array speichern

Achtung dieses Beispiel ist in Excel-VBA geschrieben, muss eventuell für VBA unter Autocad angepasst werden !!

    Dim MitArbeiter() As String

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

        ReDim Preserve MitArbeiter(i)

        MitArbeiter(i) = Cells(i, 1).Value

    Next

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hallo Anton,
danke, so gehts, allerdings bin ich zur Zeit auch in Excel unterwegs. Die REDIM-Anweisung habe ich vor die FOR-Next-Schleife gebaut:

Code:

---

Dim MitArbeiter() As String
ReDim MitArbeiter(Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    MitArbeiter(i) = Cells(i, 1).Value
    Next

---

------------------
viele Grüße

Jörn

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

---

ist Geschmacksfrage ob man das Array gleich auf die fertige Länge dimmensioniert, oder bei Bedarf mit PRESERVE immer um eins erweitert.

Wenn man z.B.: Daten aus einer sequentiellen Datei (z.B.: Textdatei, bei der man die Zeileanzahl nicht weiss) einliest, ist es halt nur mit redim preserve möglich.

In deinem Fall ists wurscht, da man ja die Anzahl der Zeilen ja eh schon vorher weiss.

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hallo Fuchsi,
der Grund ist, das ich beim googlen desöfteren gelesen habe, das die Verwendung von REDIM PRESERVE die Leistung stark vermindert, ob es stimmt? Keine Ahnung, das wird bei meinen paar Einträgen eh nicht auffallen.
Und der wahre Grund ist, beim Testdurchlauf mit REDIM PRESERVE wurde mir irgendein Fehler an dieser Stelle ausgegeben, ich hatte keine Lust mehr zu suchen und daher habe ich das REDIM einfach vorweg gebastelt.
Schönen Feierabend

------------------
viele Grüße

Jörn

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