Dropdown Zellenname Makro
15.01.2015 13:17:31
Bene
Nach langer Suche möchte ich hier einmal um Hilfe bitten, da es mir so vorkommt als wäre das Problem schon recht speziell.
Durchführung:
Ich habe einer Zelle einen Zellennamen gegeben.
Diese Zelle habe ich zu einem Dropdown-Menü umgewandelt(über Daten> Datenüberprüfung).
Anschließend habe ich ein Makro erstellt, mit dessen Hilfe ein Zellen-Kommentar erstellt werden soll. Dieses Makro wird aktiviert, sobald ich eine Änderung in dem Dropdown-Menü mache (quasi die Auswahl ändere)
Das Problem:
es funktioniert nicht aber es gibt auch nicht einmal eine Fehlermeldung.
Analyse:
Ich habe ermittelt, dass es ein Problem mit dem Vorhandensein des Zellennamens zu geben scheint. Lasse ich die Standard-Zellenbeschriften (hier C8) funktioniert alles wunderbar.
Hat jemand eine Idee?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "Ausf_1" Then
Call KommentareFormatieren
End If
End Sub
Public Sub KommentareFormatieren()
Dim Kommentar_1 As Comment
Range("C12").ClearComments
Set Kommentar_1 = Range("DEK_1").AddComment
Application.ScreenUpdating = False
With Kommentar_1
.Visible = False
.Text Text:="LaLeLu, nur der Mann im Mond schaut zu"
.Shape.LockAspectRatio = msoFalse
.Shape.Height = 21
.Shape.Width = 100
End With
Application.ScreenUpdating = True
End Sub