Zelle mit Kommentar per Makro kopieren

Karl-Heinz · 2005-01-05T06:20:15+00:00

Hi, ich starte eine zweite Anfrage. Problemdarstellung: Aus dem Tabellenblatt 2 soll aus einer Zeile mit mehreren Zellen in aufsteigender Nummernfolge mit Kommentar (Kommentar ist hier eine Grafik/Bild) bei Eingabe einer Zahl aus dieser Nummernfolge in einer festen Zelle in Tabellenblatt 1, z.B. a1, die durch die Spaltenüberschrift bestimmte Zelle mit Kommentar von Tabellenblatt 2 in eine feste Zelle in Tabellenblatt 1, z.B. d4, kopiert werden. Mit der üblichen Verweis-Funktion kann ich den Kommentar nicht mit übertragen. Gibt es ein Makro, dass diese Funktion übernehmen kann. Vielen Dank für eine Info und viele Grüße Karl-Heinz

Hallo,
vielen Dank für die Antwort.
Aber ich glaube so funktioniert es nicht. Ich habe in einem Excel-Tabellenblatt Basisdaten (Zahlen und Texte) in Zellen einer Zeile abgelegt. Die Spalten sind mit fortlaufenden Artikelnummern versehen.
Im Tabellenblatt befindet sich eine Zelle in der ich die verschiedenen Artikelnummern eingeben kann, dann werden durch Verweis-Funktionen die Informationen aus dem Tabellenblatt 2 abgerufen und im Blatt 1 weiterverarbeitet bzw. aktualisiert. Nun möchte ich bei Eingabe einer Artikelnummer nicht nur eine Datenaktualisierung auf dem Tabellenblatt 1 haben, sondern auch ein Bild des Artikels. Hierbei gefällt mir die Möglichkeit des Kommentars mit eingebundenem Bild am besten. Gleichzeitig kann ich diesen noch mit einem Text versehen. Ich habe vor, diese Zellen mit Bild-Kommentar in den Artikelspalten im Blatt 2 anzulegen. Ca. 200 Kommentarzellen in einer Reihe den Artikelnummernspalten zugeordnet. In einer festen Zelle des Tabellenblattes 1 soll bei Eingabe der Artikelnummer das Bild als Kommentarfunktion abrufbar sein.
Ich schaffe es einfach nicht, weil es schwierig ist auf die Schnelle, ohne Vorkenntnisse, ein passendes Makro zu produzieren.
Sonst geht es nur mit kopieren und einfügen, aber nicht automatisch bei Eingabe der Artikelnummer.
Viele Grüße
Karl-Heinz

Hello Karl-Heinz, hier noch das Makro, wo die Grafik in ein Kommentarfeld reinkommt:


Sub Makro1()
Datei = ActiveCell.Offset(0, 3).Value
ActiveCell.Offset(0, 4).Select
ActiveCell.ClearComments
With ActiveCell.AddComment
.Shape.Select
.Visible = True
End With
On Error Resume Next
'hier wird die Größe des Kommentarfeldes verändert
Selection.ShapeRange.ScaleWidth 1.45, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.73, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Fill.UserPicture Datei
If Err.Number <> 0 Then
Mldg = "Grafik oder Artikelnummer gibt es noch nicht!"
MsgBox Mldg, , "Fehler"
Exit Sub
End If
End Sub

brauchst das Makro1 nur damit zu ersetzen, alter Kommentar wird gelöscht!
Gruss WS

Zelle mit Kommentar per Makro kopieren

Forumthread: Zelle mit Kommentar per Makro kopieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial