Office: SVerweis als Ziel angeben

Hallo @ all!

Ich bin froh ein Forum gefunden zu haben das aktiv ist :)

Mein Problem sieht wie folgt aus (ich hoffe es wird verständlich):

Kurzfassung:
Ich würde gerne so wie ich mit einem SVerweis Daten aus einer Matrix aus einem anderen Arbeitsblatt holen kann, Daten wieder zurück geben an die Stellen der Matrix wo ich sie her habe.
Also wie eine kleine Datenbank. Ich würde gern Bestimmte Daten aus einer Tabelle holen, bearbeiten und dann wieder zurück in die Tabelle schicken.
Das zurückschicken bekomme ich aber leider nicht auf die Reihe

Langfassung:
Ich habe ein Arbeitsblatt "Daten 2014"; hier sind Daten von Events gespeichert. Pro Zeile ein Datensatz zu einem Event befüllt mit einem Haufen Spalten mit Zahlen, Datum, Text usw.
Ein weiteres Arbeitsblatt "Eingabemaske", wie der Name schon sagt eine kleine Eingabemaske.
Per Macro/Button "load" hole ich mit einem Haufen SVERWEISEN die Daten die ich bearbeiten möchte in die Eingabemaske.
Hier kann ich dann alles schön aufbereitet bearbeiten.
Bis hier hin habe ich alles geschafft und es klappt ohne Probleme.

Jetzt würde ich die Daten gerne wieder per Macro/Button an die Stellen in dem Arbeitsblatt "Daten 2014" schicken von denen ich sie her habe.
An der Stelle steige ich leider aus
Habe keine Ahnung wie ich das lösen kann.
Ich will also "nur" Werte in Zellen schreiben die ich per SVerweis finde ...

Ich hoffe man hat verstanden was ich hier holprig erklärt habe :)
Falls weitere Infos notwendig sind bitte einfach sagen ich liefer alles gerne.
Office nutze ich 2010

Danke schon mal im Voraus!

Grüße, CAPA

 

Hallo,

1) Du hast also im Blatt "Eingabemaske" SVERWEIS-Formeln stehen, mit denen du Daten aus Matrizen des Arbeitsblattes "Daten 2014" holst.
2) Diese Daten bearbeitest du.
3) Du möchtest diese bearbeiteten Daten wieder zurück in die korrekte Zeile und Spalte der Matrix schicken, aus der/denen du sie hast.

Also besteht das Problem aus Folgendem:
a) Das Quellarbeitsblatt ("Daten 2014") ist bekannt.
b) Die Quellmatrix ist auch bekannt (du hast den betreffenden Bereich ja im SVERWEIS verwendet)
c) Die Spalte in dieser Matrix, aus der die Daten stammen, ist bekannt (ebenfalls im SVERWEIS verwendet)
d) Bleibt somit das Problem, die betreffende Zeile zu ermitteln, aus der der SVERWEIS seinerzeit die Daten bezog.

Angenommen, die SVERWEIS-Formel lautete folgendermaßen:
=SVERWEIS(G2;'Daten 2014'!B6:D8;3;FALSCH)

Dann muss die Formel, mit der du die korrekte Zeilennummer innerhalb der Matrix "'Daten 2014'!B6:D8" ermittelst, lauten:
=VERGLEICH(G2;'Daten 2014'!B6:B8;0)
Du musst also die 1. Spalte der ursprünglich verwendeten Matrix nehmen und dort mittels VERGLEICH-Formel nach dem Kriteriumswert suchen. Dann erhältst du die korrekte Zeilennummer innerhalb der Matrix zurück. Als 3. Parameter in der VERGLEICH-Funktion ist 0 zu verwenden, da auch in der SVERWEIS-Funktion FALSCH=0 als letzter Parameter verwendet wird.
In VBA lautet dann die Anweisung zum Zurückspeichern wie folgt:
Worksheets("Daten 2014").Range("B6:D8").Cells(ZeileNr,3)=NeuerWert
Der 3er nach ZeileNr ist der 3. Parameter der SVERWEIS-Funktion (Spalten-Offset innerhalb der Matrix).
Und die Variable "ZeileNr" ist genau das Ergebnis der VERGLEICH-Funktion von vorhin. Wenn du diese auch als VBA-Ausdruck benötigst, so lautet dieser:
ZeileNr = Worksheetfunction.Match(ActiveSheet.Range("G2"),Range("'Daten 2014'!B6:B8"),0)

Somit lautet eine mögliche Beispiel-Code-Version in VBA:

Code:

  Dim ZeileNr As Long
  '...
  With Worksheets("Daten 2014")  '=Quellblatt
    With .Range("B6:D8")         '=Quellmatrix im Quellblatt
      ZeileNr = WorksheetFunction.Match(ActiveSheet.Range("G2").Value, .Columns(1), 0)
      .Cells(ZeileNr, 3).Value = NeuerWert
    End With
  End With

 

Hallo Anton!

Vielen Dank für die schnelle Antwort!
Ich bin heute Nachmittag wieder zu Hause am PC und werde gleich versuchen mit dieser neu gewonnenen Erkentnis das Ding zum laufen zu bekommen :)


Beste Grüße,
CAPA

 

Hallo Anton!

Alles klappt so wie ich es mir vorgestellt habe!
Das ist einfach spitze!
Und mit Deiner Erklärung und den Kommentaren kann ich auch alles anpassen und erweitern.
Verstehe es sogar und verwende es nicht nur blind per Strg-V :)

Vielen herzlichen Dank!


Beste Grüße,
CAPA