|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Hilfe!!! Einlesen von Daten aus Excel Tabelle in ein Dictionary |
20.07.2016 14:13:11 |
Jan K. |
|
|
|
20.07.2016 17:08:32 |
Gast1692 |
|
|
|
21.07.2016 09:09:29 |
Rafa |
|
|
Von:
Jan K. |
Datum:
20.07.2016 14:13:11 |
Views:
1167 |
Rating:
|
Antwort:
|
Thema:
Hilfe!!! Einlesen von Daten aus Excel Tabelle in ein Dictionary |
|
Hallo allerseits,
bräuchte dringend Hilfe!!
ich würde gerne in Excel aus einer Tabelle Daten in ein Dictionary einlesen. Dictionaries sind allerdings leider Neuland für mich, vor allem da ich erst seit einer Woche mit VBA programmiere. Daher würde ich mich sehr über jede konstruktive Hilfe Freuen.
Ich habe eine Tabelle in welcher in Zeile 1 oben zunächst die Überschriften stehen:
Modul (A1) , Tunnelhöhe (B1), Tunnelbreite (C1), .... , Coil-Länge (K1)
In den jeweiligen Spalten darunter befinden sich die Daten zu der jeweiligen Überschrift (beispielsweise Maßangaben bzw. Zahlenwerte)
Nun würde ich sehr gerne Überschriften als Keys zu dem Dictionary speichern mit den dazugehörigen Daten in den Spalten als Items zu den Keys, um hinterher dann bestimmte Daten daraus letztlich ausgeben zu können auf andere Arbeitsblätter.
Ich habe mich bereits etwas daran versucht, komme aber leider bislang nicht weiter:
Public Sub auslesen()
'# Datapage als Arbeitsblatt deklarieren
Dim Datapage As Worksheet
'# Datapage als Arbeitsblatt setzen
Set Datapage = ThisWorkbook.Worksheets("Datapage")
'# Dictionary "Daten als Object deklarieren
Dim Daten As Object
'# create Dictionary
Set Daten = CreateObject("Scripting.Dictionary")
'# Variable für den Bereich, in dem sich die Daten, die ausgelesen werden sollen befinden
Dim Bereich As Range
'# Variable für die Spalte in der For-Schleife
Dim col_ As Long
'# Variable für die Reihe in der For-Schleife
Dim row_ As Long
Set Bereich = Range("A1:K31")
'# Spalten A bis K
For col_ = 1 To 11
Daten(Bereich(1, col_).Value) = Range(Cells(2, col_), Cells(31, col_)).Value
Daten.Add Key:=Cells(1, col_).Value
Next
End Sub
Ich hoffe daher, dass mir jemand weiterhelfen kann. Vielen Dank im Voraus!!
Freundlichen Gruß
Jan
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Hilfe!!! Einlesen von Daten aus Excel Tabelle in ein Dictionary |
20.07.2016 14:13:11 |
Jan K. |
|
|
|
20.07.2016 17:08:32 |
Gast1692 |
|
|
|
21.07.2016 09:09:29 |
Rafa |
|
|