Excel (Office 365) VBA für Mac - Events "Worksheet_SelectionChange" und "Worksheet_Change"...

Hallo pauliten,

Ich bin hier, um Ihnen zu antworten!

Ich möchte Sie bitten, Ihre Frage an die
MSN PRO Support zu schreiben, da sich Ihre Frage auf Makros in Word bezieht. Sie können diese Art von Problemen professionell unterstützen.

Sie können Ihre Frage auf Englisch schreiben und bei Bedarf den
Bing-Übersetzer verwenden.



Wenn Sie in der Zwischenzeit Fragen haben, sind wir gerne für Sie da.

Mit freundlichen Grüßen,



Viki

Hallo Viki,

Danke für Ihren Empfehlung. Ich habe die Frage wie geraten unter dem Link MSN Pro Suport eingereicht, allerdings weiss ich nicht, ob das gewählte Forum "Office Live Development" dafür das richtige ist, es gab aber keine anderes, das besser gepasst hätte.

Danke und Gruss

Paul

Hallo Christian,



man könnte es mit VBA lösen. Dazu müsstest du aber mehr Informationen bereit stellen. In welcher Spalte steht die Kennziffer? Wie ist der Tabellenbereich in den Blättern? Werden die Daten in den Teamblättern unten angehängt? Ist diese Tabelle schon erstellt
oder soll sie erst erstellt werden? Denn dann könnte man über Worksheet_Change-Event die Daten direkt weitergeben.



Mit freundlichen Grüßen

Claus

Danke!

Worksheet_Change-Ereignis per VBA sagt mir jetzt aber gar nichts.

Was ist das und was müsste ich da genau machen?

Ich finde via google leider nur Problembesprechungen in dem Zusammenhang:

https://www.google.ch/?gws_rd=ssl#q=Worksheet_Change-Ereignis+excel+2010

Hallo Hauke,



du solltest die Textboxen nach der Zelle benamen für die sie erstellt wurden. Deine Textboxen sind in Spalte 2 aber der Name kommt von Spalte 28. Ist das ein Tippfehler?

Wenn du die Textboxen einrichtest und dann am Schluss mit Autofit die Größe einstellst, verändern sie sich nach allen Richtungen. Deshalb ist es besser Top und Left erst nach Autofit einzustellen. Stelle sie auch ein wenig tiefer (2 Zeilen).

Ich hatte es so gedacht, dass mit dem Worksheet_SelectionChange-Event die Boxen eingeblendet werden und mit dem Worksheet_Change-Event wieder aus. Wenn keine weiteren Veränderungen gemacht werden sollen, kannst du sie auch löschen.



Geänderter Codeteil für Textboxen:

With shpTXTBox

.Name = "TB" & Cells(lfirstRowTemp, 2).Address

.TextFrame.Characters.Text = Cells(lfirstRowTemp, 6).Value

.TextFrame.Characters.Font.Size = 10

.TextFrame.Characters.Font.Color = RGB(0, 0, 0)

.Fill.ForeColor.RGB = RGB(255, 255, 204)

.Line.ForeColor.RGB = RGB(130, 50, 10)

.Width = 250

.TextFrame2.AutoSize = msoAutoSizeShapeToFitText

.Left = Cells(lfirstRowTemp + 2, 2).Left

.Top = Cells(lfirstRowTemp + 2, 2).Top

.Visible = False

End With



Und zum Einblenden bzw. Ausblenden:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Shapes("TB" & Target.Address).Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Shapes("TB" & Target.Address).Visible = True

End Sub



Mit freundlichen Grüßen

Claus