Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare per Makro eintragen

Forumthread: Kommentare per Makro eintragen

Kommentare per Makro eintragen
19.03.2008 09:29:00
Jacp
Moin,
habe folgenden Code

Private Sub cmdSaveComment_Click()
Dim strBereich As Variant
Me.TextBox1 = Selection.Address
strBereich = Right(Me.TextBox1, 4)
Sheets("ALT 1").Range(strBereich).AddComment Me.txtComment
End Sub


Ich habe einen Bereich, z.B.: $B$6:$B$10 markiert. Es öffnet sich automatisch meine Userform und trage in meine Textbox den Kommentar ein und möchte nun mit o.a. Code einen Kommentar in der letzten markierten Zelle haben.
Die letzte markierte Zelle wird auch richtig ausgelesen, aber dennoch funkt es nicht... was mache ich falsch?
Danke
Jack

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare per Makro eintragen
19.03.2008 09:41:00
Mag
Hi,
vorher stets 'ClearComments' ? Beispiel:

Sub tt()
Sheets(1).Range("A1").ClearComments
Sheets(1).Range("A1").AddComment "Juppiduuu"
End Sub


Gruss

AW: Kommentare per Makro eintragen
19.03.2008 09:53:00
Jack
Hi,
ok, bei einem Bezug, wie bei Dir "A1", geht es ja auch...
Bei mir geht es um einen Zellenbereich, und der funzt nicht.
jack

Anzeige
AW: Kommentare per Makro eintragen
19.03.2008 10:12:03
Mag
... Du hast keinen Bereich, nur die letzte Zelle des Bereichs, und die sollte man so nicht ermitteln. Ansatz:

Sub nn()
Dim rng As Range
Set rng = Range("Tabelle1!$A$2:$c$10")
MsgBox rng.Item(rng.Rows.Count, rng.Columns.Count).Address
End Sub


Gruss

Anzeige
AW: Kommentare per Makro eintragen
19.03.2008 12:19:00
Jack
Hi,
ok, danke für die Hilfe.
Ich habe letztenendes gemerkt, dass es daran lag, dass ich kein "Text" hinter mein Textfeld gelegt habe.
So geht es jetzt...zumindest in die erste Zelle der Markierung. Damit kann ich aber leben.

With ActiveCell
.AddComment
.Comment.Text Text:=Me.txtComment.Text
End With


cu
Jack

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige