Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellenwert in kommentar

zellenwert in kommentar
15.08.2003 10:20:28
Andreas
ich habe folgendes problem: ich nutze den unten aufgeführten vb code, um werte aus einer zelle automatisch in den kommentar dieser zelle zu übernehmen. zusätzlich soll an erster stelle im kommentar das wort "inhalt:" stehen.

Private Sub worksheet_change(ByVal Target As Excel.Range)
Dim cmt As Comment
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Not Target.Comment Is Nothing Then
Target.Comment.Delete
End If
Set cmt = Target.AddComment(Text:="Inhalt" & Target.Value)
cmt.Shape.TextFrame.AutoSize = True
End Sub

mein probleme, das wort "inhalt:" erscheint, der eingetippt zellenwert verschwindet wunschgemäß, wird aber nicht in den kommentar übertragen.
wie muß ich die zeile
Set cmt = Target.AddComment(Text:="Inhalt" & Target.Value)
anpassen, damit der inhalt der zelle komplett in den kommentar übernommen wird?
danke für die hilfe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellenwert in kommentar
15.08.2003 10:28:54
richard
hallo andreas
zellinhalt = sheets(2).range"B5").value
ThisWorkbook.Sheets(1).Range("A1").Comment.Text Text:=Zellinhalt
deine verkettung sollte so aussehen text:="="Text" & Zellinhalt "
so weist du dem kommentar in blatt 1 zelle a1 den inhalt aus blatt 2 zelle b5 zu
mfg richi

AW: zellenwert in kommentar
15.08.2003 11:27:41
Andreas
hallo richi,
ich wollte eigentlich nicht mühsame einen zellenbereich abgreifen, sonder einfach in ein leeres excel dokument zeilenweise text einkopieren und diesen dann automatisch in den kommentar übernehmen. bei deiner lösung übernimmt er leider auch wieder nur den "text:=" bereich mit "inhalt", nicht aber den eigentlichen zelleninhalt. ich habe den code nochmals umgebastelt und mit diesem code übernimmt er tatsächlich den zellenwert, allerdings nur die ersten 256 zeichen. hast du eine ahnung woran diese limitation liegen könnte?
hier ist der vba-code:
rivate 

Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngZelle As Range
Dim rngNachfolger As Range
On Error Resume Next
For Each rngZelle In Target
rngZelle.NoteText Format(rngZelle.Value, "")
For Each rngNachfolger In rngZelle.Dependents
rngNachfolger.NoteText Format(rngNachfolger.Value, "")
Next rngNachfolger
Next rngZelle
End Sub

vielen dank für die hilfe

Anzeige
AW: zellenwert in kommentar
15.08.2003 11:15:57
Franz Pölt
Hallo Andreas,
Versuch's mal damit:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
.NoteText "Inhalt: " & .Value
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

Servus aus dem Salzkammergut
Franz

AW: zellenwert in kommentar
15.08.2003 11:23:27
Andreas
hallo franz im salzkammergut,
hab's probiert, excel übernimmt "inhalt:" in den kommentar, löscht die zelle, aber der eigentliche zellenwert verschwindet im nirvana...
irgendwie stimmt das mit dem .value nocht nicht... trotzdem danke für die hilfe!
gruß von der waterkant
andreas

Anzeige
AW: zellenwert in kommentar
15.08.2003 11:30:09
Franz Pölt
Hallo Andreas,
ich vermute, du bezeichnest Inhalt der Zelle löschen (ENTF) als Änderung der Zelle ;-)
da danach natürlich nichts mehr in der aktuellen Zelle steht, sieht es so aus als ob ein "falscher" Kommentar erzeugt würde
Probier's mal mit diesem Ereignis-Makro und du wirst sehen, dass Excel den Wert NICHT im Nirvana verschwinden läßt - zeigt dir den Wert der Zelle VOR der Änderung an:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target
.NoteText "Inhalt: " & .Value
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

Servus aus dem Salzkammergut
Franz

Anzeige

305 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
in Zellen Schreiben wenn Kriterium erfüllt
Nikolay

Guten Tag verehrte Damen und Herren,
lieber Namensvetter,
ich habe derweilen ein kleines Problem. Ich gestalte schon seit einigen Jahren meine persönliche Buchführung mit Excel.
Von Jahr zu Jahr wird das ganze komplizierter. Nun stehe ich vor einem Problem, welches ich selbst nicht...
05.10.2008 14:57:00
Thread-ID: 1014252
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
5
5
30
3
11
6
8
2
3
1
3
12
12
1
3
12
2
6
2
14
1
2