Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kommentar einfügen.

Kommentar einfügen.
09.09.2003 17:33:15
Alex
Hallo zusammen. Hab mal wieder ein Problem bei dem ich nciht sonderlich weiterkomme...

folgender Code :

Private Sub Worksheet_SelectionChange(ByVal target As Excel.Range)
Dim neuerwert
Dim kommentar As String
If ((Not Intersect(target, Range("H:H")) Is Nothing) And (Range("b13") = "Editor Mode")) _
And (Not IsEmpty(target)) Then
neuerwert = target.Value
target.Value = InputBox("eingabe:")
If target.Value = "" Then
target.Value = neuerwert
GoTo ende1
ElseIf target.Value = neuerwert Then
GoTo ende1
End If
kommentar = InputBox("Bitte Grund eingeben: ", "Kommentar")
MsgBox (kommentar)
MsgBox (VarType(Application.UserName))
-->        target.Select
-->        Selection.AddComment = kommentar
End If
ende1:
End Sub


Bei den Pfeilen würde ich dem ausgewählten Target gern einen Kommentar geben.

Leider klappt das wohl Aufgrund irgendwelcher Wrapper Angelegenheiten nicht.

wer kann mir helfen?

Vielen Dank im Vorraus.

Gruss Alex.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar einfügen.
09.09.2003 17:58:04
Alex
...erledigt =)
AW: Kommentar einfügen.
10.09.2003 00:30:29
heinz
wie?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige