Datensätze über Schlüsselvariable einlesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim x Dim z z = 9112 'zu suchende Schlüsselnummer On Error Resume Next x = Application.WorksheetFunction.Match(z, Range("a:a"), 0) 'entspr. Funktion "Vergleich" If Err.Number = 1004 Then MsgBox "nicht gefunden" Else MsgBox x '1. Auftreten von z in Zeile x End If On Error GoTo 0

Hi MichaV,
danke, hab ich gleich eingebaut. Ich meinte allerdings mehr die gesamte Vorgehensweise. Meine Vorgehensweise erscheint´mir doch recht umständlich. Hast du da noch eine Idee:
(habs noch nicht getestet, Verbesserungsvorschläge willkommen!)
Option Base 1


Sub DatensaetzeVereinigen()
Dim i As Long, j As Long, n As Long
Dim numberDataSets As Long, numberDataSetsNewData As Long
Dim arrOld(numberDataSets) As Variant, arrNew(numberDataSetsNewData) As Variant
'Einlesen der bestehenden Datensatznamen in arrOld
For i = 1 To numberDataSets
arrOld(i) = ThisWorkbook.Worksheets(1).Cells(i + 1, 1).Value
Next i
'Einlesen der einzulesenden Datensatznamen in arrNew
For i = 1 To numberDataSetsNewData
arrNew(i) = Workbooks(dataFileName).Worksheets(1).Cells(i + 1, 1).Value
Next i
'Eindeutigkeit der einzulesenden Datensaetze überprüfen
For i = 1 To numberDataSetsNewData
n = Application.WorksheetFunction.CountIf _
(Workbooks(dataFileName).Worksheets(1).Range(Cells(2, 1), Cells(numberDataSetsNewData + 1, 1)), arrNew(i))
If n > 1 Then
MsgBox ("Die Datensätze sind nicht eindeutig")
Exit Sub
End If
'Datensaetze vergleichen
For i = 1 To numberDataSetsNewData
dataSet = Application.WorksheetFunction.Match(arrNew(i), _
ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(1 + numberDataSets, 1)))
If Err.Number = 1004 Then
'Code um zusätzliche Datensätze aufzunehmen
End If
'Code um Daten bestehender Datensätze einzulesen
Next i
For i = 1 To numberDataSets
dataSet = Application.WorksheetFunction.Match(arrOld(i), _
Workbooks(dataFileName).Worksheets(1).Range(Cells(2, 1), _
Cells(numberDataSetsNewData + 1, 1)))
If Err.Number = 1004 Then
'Code um nicht vorhandene neue Daten als "-" einzutragen
End If
Next i
End Sub

Hi,
3 Sachen, die mir dazu einfallen, auch ungetestet:
1.)Einlesen der bestehenden Datensatznamen in Deine beiden Arrays geht schneller mit z.B.:
arrOld=Application.WorksheetFunction.Transpose(ThisWorkbook.Worksheets(1).Range(Cells(2,1),Cells(numberDataSets+1,1)))
Damit sparst Du 2 Schleifen. Dimensionieren musst Du als leeres Array Dim arrOld()
2.)Ich würde die Daten dann so abgleichen:
zuerst:


Workbooks(dataFileName).Worksheets(1).Range(Cells(2, x), Cells(numberDataSetsNewData + 1, x))="-"

also in Spalte x bei jedem vorhandenen Datensatz ein "-" eintragen
2. Schleife:
Wie Deine 1. Vergleichs- Schleife, die "-" werden dann ggf. durch aktuelle Daten überschrieben. Damit sparst Du Dir wieder eine Schleife.
3. Ansonsten Err.Clear vor jeder neuen oder direkt nach der alten Fehlerabfrage nicht vergessen:


If Err.Number = 1004 Then
'Code um nicht vorhandene neue Daten als "-" einzutragen
End If
Err.Clear

Gruss- Micha
PS: Rückmeldung wäre nett

Beliebteste Forumthreads (12 Monate)

Datensätze über Schlüsselvariable einlesen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datensätze über Schlüsselvariable einlesen

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread