Thema Datum  Von Nutzer Rating
Antwort
13.07.2021 11:48:43 David
NotSolved
Blau Inputbox eingabe und später ausgabe
 14.07.2021 21:33:15 Gast49157
NotSolved

Ansicht des Beitrags:
Von:
Gast49157		 Datum:
14.07.2021 21:33:15		 Views:
635		 Rating:
     
Antwort:
  Ja
Thema:
Inputbox eingabe und später ausgabe

Hi David,

so richtig hab ich noch nicht herausbekommen was du eigentlich willst. Geht es dir nur darum den Kommentar sowohl in der ersten als auch in der letzten Zelle einer Markierung hinzuzufügen? Dann ändere deinen Code wie folgt:

Public Sub InsertComment()
    Dim strComment As String
    strComment = InputBox("Bitte der Kommentar eingeben.", "Kommentar einfügen oder ergänzen")
    For Each c In Union(Selection.Cells(1), Selection.Cells(Selection.Cells.Count)).Cells
      With c
        If .Comment Is Nothing Then
            .AddComment
            With .Comment
                .Text Text:=Application.UserName & ": " & vbLf & strComment
                .Shape.TextFrame.AutoSize = True
            End With
        Else
            .Comment.Text Text:=.Comment.Text & vbLf & vbLf & Application.UserName & ": " & vbLf & strComment
        End If
      End With
    Next c
End Sub

Ansonsten beschreib doch mal den Aufbau deiner Datei und deine Vorstellung wie diese funktionieren soll. Du kannst auch ein Beispiel mit Musterdaten hochladen. z.B. hier: https://workupload.com/

Gruß Mr. K.

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
13.07.2021 11:48:43 David
NotSolved
Blau Inputbox eingabe und später ausgabe
 14.07.2021 21:33:15 Gast49157
NotSolved