Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro zu Kommentar im Gültigkeitsbereich

Makro zu Kommentar im Gültigkeitsbereich
23.05.2005 13:20:49
Tobias
ich hab mal wieder ein Problem, das ich einfach nicht
hinkrieg....
Ich hab folgendes Makro, daß mir sobald ein Wert in eine Zelle eingetragen wird, in das Kommentarfeld im Gültigkeitsbereich den gleichen Wert wie in die Zelle überträgt.
***********************

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "values"
.ErrorTitle = ""
.InputMessage = Target.Value
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

****************
Meine Frage: Ist es möglich, daß bei weiteren Zelleneinträgen, der letzte Wert nicht gelöscht wird, sondern einfach der neue dazugeschrieben wird, so daß es eine Art Historie gibt?
Kann mir jemand helfen?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zu Kommentar im Gültigkeitsbereich
23.05.2005 16:27:59
ino

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Text = Target.Validation.InputMessage
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "oaie"
.ErrorTitle = ""
.InputMessage = Text & Chr(10) & Target.Value
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige