15.03.2017, 08:42 (Dieser Beitrag wurde zuletzt bearbeitet: 15.03.2017, 08:58 von sunny01.)
Hallo,
ich hätte folgende Aufgabenstellung zu lösen, für die ich gerne Eure Vorschläge erfahren möchte. Im Beispieldokument als Anlage habe ich die Aufgabe vereinfacht dargestellt:
in Tabelle 1 in Zelle A2 wird die Bezeichnung einer Spaltenüberschrift von Tabelle 3 manuell eingegeben. Nachfolgend sollte ein Makro folgendes durchführen:
1. Diesen Wert auf Übereinstimmung mit der jeweiligen Spaltenüberschrift in Tabelle 3 prüfen
2. Zudem sollten alle Werte in Spalte A - Tabelle 3 auf Übereinstimmung mit allen Werten von Spalte A - Tabelle 2 geprüft werden
3. Nachfolgend sollten alle Werte, die in der Spalte mit der übereinstimmenden Spaltenüberschrift in Tabelle 3 gelegen sind (siehe Pt.1) in die jeweilige Zelle von Spalte B in Tabelle 2 kopiert werden, wenn folgende Bedingung erfüllt ist: der Eintrag von Spalte A - Tabelle 2 stimmt mit dem Eintrag von Spalte A - Tabelle 3 überein (siehe Pt. 2)
Zum leichteren Verständnis habe ich in der Anlage bereits einen Wert manuell eingetragen und die daran beteiligten Werte in roter Schrift gekennzeichnet.
warum hast du deine Lösung nicht einfach reingestellt?? Ich weiss ja auch nie ob mein Makro ankommt, oder Formel genommen wird?
Es gibt aber vielleicht noch andere Frager die nach Lösungen suchen, und den Thread sehen! Verzeih mir einen privaten Hinweis.
Schade sagen drückt Bedauern aus, zieht dich unbewusst runter. Eine Lösung reinstellen -ohne zu Erwarten- das sie angenommen wird,
gibt dir aber innere Befriedigung das du dein bestes gegebenhast, und das wertet -dich selbst- innerlich Auf! Achte mal auf den Unterschied.
zuerst einmal vielen Dank für Deinen Vorschlag für das Makro! Nebenbei erwähnt: ich gebe auf Antworten auf meine Fragen zumeist Bescheid, ob eine Lösung bei mir funktioniert, da ich glaube dass das anlässlich der Zeit und Mühe, die ein User für die Lösung für eines meiner Probleme investiert hat, wesentlich und wichtig ist.
Zu Deinem Makro: Ich habe es ausprobiert und leider hat es bei mir nicht funktioniert. Zudem wäre mir wichtig, dass alle übereinstimmenden Werte in die entsprechende Spalte in Tabelle 2 kopiert werden. Im Beispiel sind alle Zahlen in Spalte A - Tabelle 2 ebenfalls in Spalte A - Tabelle 3 vorhanden, sodass durch die Ausführung des Makros in jeder Zelle in Spalte B - Tabelle 2 ein Wert stehen müsste. Vielleicht könntest Du den Code noch dahingehend anpassen, vielen Dank.
vielleicht habe ich die Aufgabe falsch verstanden. Ich dachte man müsste in Tabelle 3 die Überschriften suchen.
Probiere bitte mal den neuen Code aus ob der jetzt so funktioniert wie gewünscht. Würde mich freuen
mfg Gast 123
Code:
Option Explicit '15.3.2017 Clever Forum Gast 123
Dim AC As Range, j As Integer 'neues Makro
Dim AJ As Range, sp As Integer
Dim Txt As String, z As Integer
'neues Modul zum auflisten
Sub Liste_auswerten_Neu()
Dim TB2 As Object, TB3 As Object
Dim lz2 As Integer, lz3 As Integer
Set TB2 = Sheets("Tabelle2")
Set TB3 = Sheets("Tabelle3")
With Sheets("Tabelle1")
'alte Liste löschen
TB2.Range("B2:B" & lz2) = Empty
Txt = .Range("A2").Value
z = 2 '1.Zeile Tabelle1
'Schleife für Wert suchen
For j = 2 To sp + 1
If TB3.Cells(1, j) = Txt Then Exit For
Next j
If j > sp Then MsgBox Txt & ": in Tabelle3 nicht gefunden": Exit Sub
'Schleife Für Spalte A vergleichen
For Each AC In TB2.Range("A2:A" & lz2)
For Each AJ In TB3.Range("A2:A" & lz3)
If AJ.Value = AC.Value Then
AC.Cells(1, 2) = AJ.Cells(1, j)
End If
Next AJ
Next AC
End With
End Sub
Wie kann in dem derzeitigen Makro am einfachsten eine Abfrage integriert werden, die in zwei (oder mehreren) Tabellen mit Zahlenwerten nach dem Eintrag in Zelle A2 - Tabelle 1 sucht. Angenommen es gibt zusätzlich eine Tabelle 4 mit Zahlenwerten wie bei Tabelle 3 jedoch mit anderen Überschriften!?
