Doppelte Matrix-Abfrage via VBA?
13.06.2018 09:04:53
Adrian
bei mir drückt der Schuh mal wieder ein wenig, und zwar habe ich eine Beispieldatei hochgeladen, in der ich Tabelle1 mit den Werten aus Tabelle2 füllen möchte, wenn sowohl die Nummern, als auch die Bedingung (A, B, C, ...) übereinstimmen...
https://www.herber.de/bbs/user/122079.xlsx
Ich denke, dass das nur über eine Art Matrix-Funktion zu lösen ist, meine Ansätze in VBA sehen bisher jedenfalls so aus:
Sub daten_suchen()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim LZ1 As Long
Dim LZ2 As Long
Dim ZeileU As Long
Dim ZeileZ As Long
Set sh1 = Worksheets(Tabelle1.Name) ' _
_
Quelle
Set sh2 = Worksheets(Tabelle2.Name)
LZ1 = sh1.Cells(Rows.Count, 2).End(xlUp).Row 'Letzte _
_
Zeile Quellbereich
LZ2 = sh2.Cells(Rows.Count, 2).End(xlUp).Row 'Letzte _
_
Zeile Zielbereich
For ZeileU = 2 To LZ1
If WorksheetFunction.CountIfs(sh2.Range("A:A"), sh1.Cells(ZeileU, 1)) > 0 Then
'LZT = WorksheetFunction.CountIf(sh2.Range("A:A"), sh1.Cells(ZeileU, 1))
'Debug.Print LZT
For ZeileZ = 2 To LZ2
If sh2.Cells(ZeileZ, 3) = "A" Then
sh2.Cells(ZeileZ, 4).Copy sh1.Cells(ZeileU, 3)
Set LZT = Nothing
End If
Next
End If
Next
'WorksheetFunction.CountIfs(sh2.Columns(3), sh1.Cells(ZeileU, 3).Value, sh2.Cells(ZeileZ, 4), " _
_
Zugelassener Prüfer") = 1
End Sub
Mein Problem ist hier aber, dass ich nicht so recht an die betreffende Zeile aus Tabelle2 rankomme, in der beide Bedingungen erfüllt sind...
Ich hoffe mal wieder auf eure smarten Ideen :-)
Danke im Voraus!
Anzeige