Office: (Office 2016) VBA - Zwei Spalten Vergleichen, Bestimmter Wert - Bestimmte Ausgabe

Guten Tag Zusammen

Ich bin leider im Thema VBA sehr unerfahren und kriege folgende Hürde nicht gelöst.

Ich habe zwei Excel Dateien: Export.xlsx und Darstellung.xlsm
In der Datei Export habe ich zwei Spalten mit Zahlen eine weitere Spalte mit Begriffen und noch eine mit Beträgen:
[table="width: 500, class: grid"]
[tr]
[td]Spalte A[/td]
[td]Spalte B[/td]
[td]Spalte C[/td]
[td]Spalte D[/td]
[/tr]
[tr]
[td]1[/td]
[td]1[/td]
[td]Begriff1[/td]
[td]100[/td]
[/tr]
[tr]
[td]1[/td]
[td]2[/td]
[td]Begriff2[/td]
[td]200[/td]
[/tr]
[tr]
[td]2[/td]
[td]1[/td]
[td]Begriff3[/td]
[td]300[/td]
[/tr]
[/table]

Nun möchte ich im Export Spalte A und Spalte B vergleichen, wenn zum Beispiel Spalte A: 1 und Spalte B: 2 steht, sollte "Begriff2" und "200" in der Datei Darstellung.xlsm in zwei bestimmten Zellen stehen.
Die Zahlen in Spalte A können bis 11 gehen und in Spalte B bis 6. Jedoch hab ich in verschieden Exportdateien nicht immer die gleichen Zeilen.

Wie könnte ich dies lösen?


Im Voraus schon vielen Dank für eure Hilfe :)

Gruss Swisswolf

 

Hallo,

z.B. mit einer einfachen Formel:

Code:

=Index(Export!C:C;Aggregat(15;6;Zeile(Export!$A:$A)/(Export!$A:$A=A1)/(Export!$B:$B=B1);1)

mangels Datei ungetestet!

 

Vielen Dank für deine Bemühungen.
Sieht schon mal nicht schlecht aus. Wäre dies aber auch in VBA realisierbar?

Ich habe noch die beiden Dateien als Anhang mitgeliefert.
Es gibt verschiedene Exportdateien mit unterschiedlichen Werten.
(Zahlen und Titel sind immer gleich, es können aber in gewisse Exportdateien verschiedene Kategorien nicht aufgelistet sein.)

Der Titel und die Anzahl sollten dann an ihren eigenen Platz in der Darstellung.xlsm.

Gruss Cyrill

 

Hola,

siehe auch...

http://ms-office-forum.net/forum/showthread.php?t=338429

Gruß,
steve1da

 

Hallo Zusammen

Ich habe dieses Problem wie folgt gelöst:
Da sich die Titel nicht ändern, habe ich nach dem Wort suchen lassen, dann eine Zelle weiter recht kopiert und im Dokument an der bestimmten Stelle eingefügt.

Vielen dank für eure Bemühungen.

Code:

Sub Suchen ()
Dim objExcel As New Excel.Application
Dim objSheet As Object
'objExcel.Workbooks.Open "[Dateiname]"
objExcel.Workbooks.Open Dateipfad
Set objSheet = objExcel.Sheets("Sheet1")


'Verhaftung - Begriff1 - D10
QSpalte = "C"
Spaltenanzahl = 2
ZSpalte = "D"
ZZeile = 10
    Suche = "Begriff1"
Set Q = objSheet
Set Z = Worksheets("Tabelle1")
With Q.Columns(QSpalte)
    Set Gefunden = .Find(Suche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Gefunden Is Nothing Then
    Z.Cells(ZZeile, ZSpalte).Resize(1, Spaltenanzahl) = Gefunden.Offset(0, 2).Resize(1, Spaltenanzahl).Value
End If
End With


'Verkehr - Begriff2 - D13
QSpalte = "C"
Spaltenanzahl = 1
ZSpalte = "D"
ZZeile = 13
    Suche = "Begriff2"
Set Q = objSheet
Set Z = Worksheets("Tabelle1")
With Q.Columns(QSpalte)
    Set Gefunden = .Find(Suche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Gefunden Is Nothing Then
    Z.Cells(ZZeile, ZSpalte).Resize(1, Spaltenanzahl) = Gefunden.Offset(0, 1).Resize(1, Spaltenanzahl).Value
End If
End With
 


objExcel.EnableEvents = False
objExcel.DisplayAlerts = False
objExcel.ActiveWorkbook.Close SaveChanges:=False
objExcel.Quit

Set objExcel = Nothing
Set objSheet = Nothing
End Sub

Gruss Swisswolf