Kommentar in Zelle schreiben

[brooker]

Hallo zusammen,

ich möchte etwas umsetzen, von dem ich nicht weiß, ob es mit Excel (inkl. VBA) überhaupt geht.

Ich möchte je nachdem welchen Wert ich in Zelle D1 eintrage, dass er aus dem Tabellenblatt 2 den passenden Wert dazu sucht und ihn einfügt. Das würde ich per WVerweis machen. Bekomme ich auch hin.
Was ich nun möchte ist, dass zum dem entsprechenden Datum die zugehörigen Werte aus dem 2.Blatt nimmt und bei der entsprechenden Zelle auf Tabellenblatt 1 einfügt (mit Text davor).

Der Text soll jedes mal überschrieben werden, wenn ich den Wert in D1 ändern.

Geht das und versteht ihr das? Ich habe das mal als Beispiel versucht in einer Datei zu visualisieren.
Für Hilfe bin ich sehr dankbar.

[WillWissen]

Hi,

die Werte holst du ebenfalls mit WVERWEIS(). Formel eintragen und nach unten ziehen.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1	QUALITÄT			apr 2018
2	STATUS	%
3	Kennzahl	1606,6
4	Wert1	98
5	Wert2	0

Zelle	Format	Wert
D1	TT.MM.JJJJ	apr 2018

Zelle	Formel
B3	=WVERWEIS($D$1;Tabelle2!$C$1:$H$4;ZEILE(A2);0)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[brooker]

Hi,

danke für deine schnelle Antwort.
Das meinte ich nicht. Das wäre kein Problem. Die Werte aus deinem Beispiel aus B4 und B5 sollen nicht in einer Zelle ausgegeben werden, sondern als Kommentar in der Zelle B3.

[Frogger1986]

Das geht...

[brooker]

Das geht...

Das klingt gut! Aber wie geht das?

[Frogger1986]

Ich hab`s etwas vereinfacht gemacht, da ich nicht der VBA-Spezialist bin.. aber es klappt... die Werte etwas weiter Rechts in Tabellenblatt 2 werden mit Verweis gesucht und im Kommentar wiedergegeben.. falls der Platz nicht passt könnte man das auch noch vielleicht woanderst hin zimmern..

[brooker]

Danke für die Teillösung. Das funktioniert tatsächlich, wird aber sehr umständlich, da die Datenquelle täglich neu in ein Blatt importiert wird und dann quasi die Werte erst in ein weiteres Blatt gebracht werden müssten.
Wenn man sich diesen Schritt mit dem "auslagern" in extra Zellen noch sparen könnte bzw. das im Code machen kann, wäre es nahezu perfekt.

[Frogger1986]

ich habs doch noch hin bekommen!! Ohne die Formeln in den Zellen in Tabelle2!

[brooker]

Kannst du den Code vielleicht einmal erklären?

Code:

Sub wverweis()
'
' wverweis Makro
'

'
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(HLOOKUP(Tabelle1!RC[-11],Tabelle2!RC[-13]:R[3]C[-7],3,0),0)"
End Sub

[Frogger1986]

Hallo

Das Modul ist unrelevant und kann gelöscht werden!! Damit wollte ich sehen was, der Makrorecorder aufzeichnet, wenn die Formel in eine Zelle eingetragen wird!