Office: Hilfe!! Einlesen von Daten aus Tabelle in Dictionary

Hallo allerseits,

bräuchte dringend Hilfe bei der Programmierung (Excel-VBA)!!

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


Da nicht immer Alle 31 Zeilen mit Daten gefüllt sind, sondern es können auch beispielsweise nur 8 Zeilen Werte beinhalten. Wie könnte man das in der For-Schleife brücksichtigen?
Ich hoffe daher, dass mir jemand weiterhelfen kann. Vielen Dank im Voraus!!

Freundlichen Gruß
Jan

:)

 

Code:

 

Vielen Dank für die schnelle Hilfe und die tolle Lödung!! das hat mir sehr weiter geholfen! Ich hätte noch eine weiter kurze Frage bei der ich über über einen Lösungsvorschlag ebenfalls sehr dankbar wäre.

und zwar würde ich gerne bestimmte Werte aus dem Dictionary auf andere Blätter in bestimmte Zellen meines meines ExcelSheets ausgeben.

In der Zeile 1 befinden sich ja die Überschriften:
z.B. "Modul" (A1) und "Duct length" (K1)

Nun würde ich gerne Ausgabe erstellen:

Wenn der Wert der Zelle in Spalte A = 1 beträgt (Modul 1), dann soll die Zelle in der Spalte K (Duct Length (z.B. 1200 mm) in eine bestimmte Zelle in einem anderen Datenblatt ausgegeben werden. z.b. auf das Datenblatt "Ausgabeblatt" in Zelle B3

Nun ist meine Idee dies mit einer Funktion mit einer For-Schleife zu machen:


Function filldata()

'# Ausgabeblatt als Arbeitsblatt deklarieren
Dim Ausgabeblatt As Worksheet
'# Ausgabeblatt als Arbeitsblatt setzen
Set Ausgabeblatt = ThisWorkbook.Worksheets("Ausgabeblatt")

Dim DatapageRow As Long

For Each Item In Daten

DatapageRow = DatapageRow + 1

If Daten("Modul") = 1 Then

Ausgabeblatt.Cells(7, 3).Value = Daten("Duct Length")

ElseIf Daten("Modul") = 2 Then

Ausgabeblatt.Cells(7, 6).Value = Daten("Duct Length")

....

Next Item

filldata = True


End Function


Funktioniert das oder gibt es evtl deutlich bessere Lösungen?
Habe wie gesagt bislang leider wenig Programmiererfahrung und wäre daher sehr dankbar über jede Hilfe!

Freundliche Grüße
Jan

 

lad eine Bsp-Datei mit Erklärung u. Anliegen hoch

 

Zunächst einmal Entschuldigung für meine späte Rückmeldung. ich habe hier mal eine xlsx Datei angehängt um mein Anliegen besser veranschaulichen zu können. Besten Dank für ihre Zeit und Mühen.

Mit Freundlichen Grüßen

Jan

 

Hallo Jan,

eine XLSX Datei kann keinen Code enthalten.
Im ersten Beitrag ging es um VBA Code, ist das nicht mehr aktuell?

 

Dazu brauchst du kein Dictionary.

Code:

 

Super! Vielen Dank für die Hilfe und die schnelle Lösung meines Problems!*Smilie *Smilie