Tabellen Verweise
14.03.2005 09:03:05
Tobias Marx
Also, um mein Problem noch einmal zu verdeutlichen, habe ich nun Ausschnitte aus meinen zwei Tabellen gemacht und diese noch etwas ausgestaltet mit Kommentaren.
Hier auch nochmal der Code, der die Arbeit bewerkstelligen soll:
Dim c As Range, SuBe As Range
Dim s As String
Dim laR As Long, lar2 As Long
'Bildschirmflackern abstellen
'Application.ScreenUpdating = False
'Anzahl der belegten Zellen in Tabelle2, Spalte A ermitteln
Windows("Dienstarten.xls").Activate
lar2 = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
Windows("temp.xls").Activate
With Sheets("DATA")
'Anzahl der belegten Zellen in Tabelle3, Spalte A ermitteln
laR = .Cells(Rows.Count, 1).End(xlUp).Row
For Each c In .Range("A1:A" & laR)
'Jede Zelle in Bereich B abhandeln
s = c.Text
Windows("Dienstarten.xls").Activate
With Sheets(1)
'Bezug finden?
Set SuBe = .Range(.Cells(1, 2), .Cells(lar2, 2)). _
Find(s, lookat:=xlWhole)
'Falls was drin, Marker setzen
If Not SuBe Is Nothing Then
c.Offset(0, 3).Value = SuBe.Offset(0, 3).Value
'Variable loeschen
Set SuBe = Nothing
End If
End With
Next c
End With
Application.ScreenUpdating = True
End Sub
Nun, die Tabellen sollten selbstbeschreibend sein, aber ich wills noch einmal erklaeren:
https://www.herber.de/bbs/user/19614.xls - Dienstarten.xls
Die Datei https://www.herber.de/bbs/user/19615.xls wurde aus Datenschutzgründen gelöscht
- Dokument1.xlsName der 1ten Datei: Dienstarten.xls
Name der 2ten Datei: Dokument1.xls
Tabelle in der 1ten Datei: Tabelle1 (erstes Blatt)
Tabelle in der 2ten Datei: DATA (drittes Blatt)
In Tabelle1 stehen folgende relevante Daten:
In Spalte B stehen die Schluessel, ueber die jeweils die Datensaetze verknuepft werden sollen, in Spalte C steht der Klartext, der nachher in die zweite Datei reinkopiert werden soll.
In Tabelle2 stehen folgende relevante Daten:
In Spalte 1 (Ueberschrift DA) stehen widerrum die Schluessel, ueber die die Datensaetze mit der der ersten Datei/Tabelle vernknuepft werden sollen, in Spalte B der zweiten Datei sollen die Daten aus Spalte C der ersten Datei im Bezug auf o.g. eingefuegt werden.
Ich hoffe, das war jetzt so formuliert, dasses verstaendlich wird.
Gruss
Tobias
P.S.: Martin, ich hab mich gegen SVERWEIS entschieden, da ich von Formeln noch weniger verstehe als von VBA-Quelltext... ausserdem versteh ich die Parameter fuer diesen Befehl in VBA in diesem Fall ned...
P.P.S.: Ich musste einen neuen Thread aufmachen, da der alte, in dem ich Martins Meinung nach antworten sollte, wie es scheint im Archiv gelandet ist inzwischen...