Thema Datum  Von Nutzer Rating
Antwort
29.09.2017 10:34:38 Gast5858
NotSolved
29.09.2017 13:11:52 Gast19172
NotSolved
Rot Kommentar im Dropdown mit übernehmen
 29.09.2017 13:34:32 Gast8580
NotSolved
29.09.2017 14:17:12 Gast67416
NotSolved
29.09.2017 17:45:53 Gast12694
NotSolved
29.09.2017 17:52:32 Gast89711
NotSolved
02.10.2017 16:34:01 Gast78657
NotSolved
04.10.2017 20:18:01 Gast89976
NotSolved

Ansicht des Beitrags:
Von:
Gast8580		 Datum:
29.09.2017 13:34:32		 Views:
633		 Rating:
     
Antwort:
  Ja
Thema:
Kommentar im Dropdown mit übernehmen

Hallo,

da ginge mit VBA und einer Ereignisprozedur was, Code kommt in das Modul Deiner Tabelle1....

' **********************************************************************
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objComment As Comment
Dim objCell As Range
If Not Intersect(Target, Cells(1, 3).Resize(10, 1)) Is Nothing Then
   With Target
        If .Count = 1 And Not IsNumeric(.Value) Then
            If .Comment Is Nothing Then
              Set objComment = .AddComment
            Else
              Set objComment = .Comment
            End If
            Set objCell = Tabelle2.Range(Mid$(String:=.Validation.Formula1, Start:=2)).Find( _
                What:=.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If Not objCell Is Nothing Then
              With objCell
                  If Not .Comment Is Nothing Then
                    With .Comment
                        With .Shape
                            objComment.Shape.Width = .Width
                            objComment.Shape.Height = .Height
                        End With
                        Call objComment.Text(Text:=.Text)
                    End With
                  End If
              End With
              Set objCell = Nothing
            End If
            Set objComment = Nothing
        End If
   End With
End If
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.09.2017 10:34:38 Gast5858
NotSolved
29.09.2017 13:11:52 Gast19172
NotSolved
Rot Kommentar im Dropdown mit übernehmen
 29.09.2017 13:34:32 Gast8580
NotSolved
29.09.2017 14:17:12 Gast67416
NotSolved
29.09.2017 17:45:53 Gast12694
NotSolved
29.09.2017 17:52:32 Gast89711
NotSolved
02.10.2017 16:34:01 Gast78657
NotSolved
04.10.2017 20:18:01 Gast89976
NotSolved