Daten auslesen

Hallo ..
..ich habe mal wieder ein Problem, bei dem ich nicht weiterkomme und ich hoffe es kann mir dabei jemand helfen.
https://www.herber.de/bbs/user/35674.xls
In der hochgeladenen Datei befinden sich 2 Tabellen:
Tabelle Verlauf
Tabelle Tabelle1 [diese ist normalerweise in einer anderen xls-Datei]
Nun möchte ich die Tabelle1 in Verlauf einlesen.
Folgende Werte sollen eingelesen werden:
Spalten A sollen miteinander verglichen werden, wenn die Inhalte gleich sind, dann in diese Zweile schreiben.
Spalte B der Tabelle1 soll mit Spaalte H2 bis S2 verglichen werden, wenn gleich den Wert aus Spalte C von Tabelle1 in Verlauf schreiben und zwar da, wo sich die beiden Vergleiche treffen (siehe Markierung in Datei)
Problem ist, dass die Spalten H2-S2 unterschiedlich heißen, da jeden Monat die Spalten um eins nach links rutschen (I2 bis S2 kopieren nach H2) und rechts mit dem Folgemonat aufgefüllt wird. Dies ist kein Problem, nur wie bekomme ich die Werte in die entsprechende Zelle geschrieben?
Problem ist, dass die Nummern in Tabelle1 nicht immer die gleiche Zeilenanzahl haben sondern variieren. Kommt einmal ein Wert (Bsp. 2005 12 für Nummer 234624) nicht in Tabelle1 vor so soll in der entsprechenden Zelle in Verlauf 0 geschrieben werden.
Ich würde mich echt freuen, wenn mir dabei jemand helfen könnte. Ich kann mir vorstellen wie das funktionieren könnte, aber mir fehlen da einfach die Kenntnisse für diesen Syntax.
Wenn ich das Problem nicht genau genug beschrieben habe bitte ich um Rückmeldung.
Gruß
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten auslesen

09.08.2006 22:48:14

daniel

AW: Daten auslesen

10.08.2006 08:18:02

Matthias

AW: Daten auslesen

10.08.2006 22:23:43

Daniel.Eisert

Danke

11.08.2006 08:08:05

Matthias

Doch noch eine Frage

14.08.2006 08:22:46

Matthias

Sub Einlesen, dim wbQuelle as Workbook Dim wbZiel as Workbook set wbZiel = thisworkbook 'Das ist jetzt die Mappe mit dem Sheet "Verlauf" set wbQuelle = workbooks.Open("c:\.....xls", writeprotect:=true) 'das ist die Mappe mit den Daten 'ab hier der weitere Code, aber vor jedes SHEETS(...) solltest du das entsprechende Workbook setzen, also wbZiel.sheets("Verlauf").cells(x,y).value = wbQuelle.sheets("Tabelle1").cells(a,b).value 'wenn die aktualisierung durchgelaufen ist, solltest du die Datei wieder schließen wbQuelle.close End Sub

Hallo ..
.. hoffe das liest hier doch noch jemand.
Hab leider doch noch eine Frage.
Wenn ich fogenden Code verwende um die Datei einzulesen und die Werte in die Zieldatei einlesen möchte klappt es nicht. Könnte mir da jemand helfen?
'öffnet die Datei
strFile = Application.GetOpenFilename("Excel Dateien (*.xls; *.xlt; *.xla)," & _
"*.xls; *.xlt; *.xla")
If strFile = "Falsch" Then Exit Sub
Set objFSO = CreateObject("Scripting.FileSystemObject")
strNeu = objFSO.GetBaseName(strFile)
Wenn ich dann den Code von Daniel einfüge kommt immer ein Laufzeit fehler 424: Objekt erforderlich
With ThisWorkbook.Sheets("Verlauf")
For Each Zelle In StrNeu.Sheets("Tabelle1").Range(StrNeu.Sheets("Tabelle1").Cells(2, 1), StrNeu.Sheets("Tabelle1").Cells(65000, 1).End(xlUp))
If WorksheetFunction.CountIf(.Columns(1), Zelle.Value) = 0 Then
.Cells(65000, 1).End(xlUp).Offset(1, 0).Value = Zelle.Value
.Cells(65000, 1).End(xlUp).Offset(0, 1).Value = Zelle.Offset(0, 1).Value
End If
Zeile = Columns(1).Find(what:=Zelle.Value, lookat:=xlWhole).Row
If Not Zelle.Offset(0, 2).Value Like "Summe*" Then
Spalte = .Rows(2).Find(what:=Zelle.Offset(0, 2), lookat:=xlWhole).Column
.Cells(Zeile, Spalte).Value = Zelle.Offset(0, 3).Value
End If
Next
End With
Woran liegt der Fehler ich komme da leider nicht weiter hab schon verschiedenes versucht aber es klappt nicht. Bitte um Hilfe.

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread