Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Kommentar als Wert in neue Zelle

Forumthread: Kommentar als Wert in neue Zelle

Kommentar als Wert in neue Zelle
18.09.2007 16:04:39
Dieter
Hallo,
gibt es eine Möglichkeit wenn z.B. in A1 ein Kommentar erfasst wird, dass dieser dann gleichzeitig als Wert in B1 ausgegeben wird ?
Beispiel :

Die Datei https://www.herber.de/bbs/user/46135.xls wurde aus Datenschutzgründen gelöscht

Ich habe also in A1 den Kommentar "ABC" erfasst. Dieser Kommentar soll dann sofort nach B1 übernommen werden.
Vielen Dank für Eure Hilfe
Dieter

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar als Wert in neue Zelle
18.09.2007 16:59:00
Dieter
Hallo Jens,
ja, so habe ich mir das vorgstellt. Danke ! Allerdings bekomme ich eine Fehlermeldung, wenn der Kommentar entfernt wird. Außerdem sollte der Kommentar der Zellengröße angepaßt sein. Wenn ich die Zelle B1 mit "An Zellgröße anpassen" formatiere, wird diese automatisch wieder entfernt. Hast Du auch dafür eine Lösung ?
Vielen Dank und Grüße
Dieter

Anzeige
AW: Kommentar als Wert in neue Zelle
18.09.2007 17:28:46
Jens
Hallo Dieter
Hier ohne Fehlermeldung:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Comment Is Nothing Then
Range("B1").ClearContents
Exit Sub
Else
Range("B1") = Range("A1").Comment.Text
End If
End Sub


Aber:
Außerdem sollte der Kommentar der Zellengröße angepaßt sein
Diese Aussage verstehe ich nicht ganz.
Gruß aus dem Sauerland
Jens

Anzeige
AW: Kommentar als Wert in neue Zelle
18.09.2007 17:49:00
Dieter
Hallo Jens,
hier ein Beispiel :
https://www.herber.de/bbs/user/46143.xls
Ich habe mal in Zelle B3 manuell eingetragen, wie ich mir das Ergebnis vorstelle. Wie man in dem Beispiel sieht wurde die Höhe der Spalte A vergrößert. Ich möchte aber, daß die Höhe gleich bleibt und sich die Anzeigegröße verringert (auch wenn es dann fast unleserlich wird).
Würde mich freuen, wenn Du noch eine Lösung finden würdest.
Vielen Dank und Grüsse
Dieter

Anzeige
AW: Kommentar als Wert in neue Zelle
18.09.2007 18:25:22
Jens
Hi Dieter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Comment Is Nothing Then
Range("B1").ClearContents
Exit Sub
Else
Range("B1") = Range("A1").Comment.Text
Rows("1:1").RowHeight = 23
Range("B1").Font.Size = 6
End If
End Sub


Die Werte kannst Du Dir dann noch anpassen:
23 ist die Höhe der Zeile 1 (aus Deiner Tabelle entnommen)
6 ist die Schriftgröße der Zelle B1 (aus Deiner Tabelle entnommen)
Gruß aus dem Sauerland
Jens

Anzeige
AW: Kommentar als Wert in neue Zelle
19.09.2007 09:33:00
Dieter
Hallo Jens,
nochmal Danke ! Jetzt haben wir es fast. Der einzige Knackpunkt ist noch, daß ich die Schriftgröße der Zelle B1 nicht fest formatieren will, sondern daß sich die Schriftgröße der festen Zellengröße anpassen soll. Also je mehr Text, desto kleiner die Schrift. Ich habe es, wie gesagt, auch schon versucht, über die Zellenformatierung hinzubekommen ("An Zellgröße anpassen"), aber diese Formatierung wird dann immer wieder automatisch entfernt.
Vielen Dank und Grüsse
Dieter

Anzeige
AW: Kommentar als Wert in neue Zelle
19.09.2007 12:15:00
Jens
Hi Dieter
Da bin ich mir nicht sicher, ob das so ohne weiteres funktioniert.
Jedenfalls übersteigt das meine Kenntnisse.
Ich stell den Thread deshalb nochmals auf offen.
Gruß aus dem Sauerland
Jens

AW: Kommentar als Wert in neue Zelle
20.09.2007 11:50:00
fcs
Hallo Dieter und Jens,
mit folgender Ergänzung funktionierts. Sehr tricky dabei:
Die Anweisung
.Wrap=False
muss nach dem Einfügen des Textes stehen, da Excel beim Einfügen des Kommentartextes das Format automatisch wieder auf "mit Zeilenumbruch" umschaltet, wenn im Kommentar Zeilenschaltungen enthalten sind.
Gruß
Franz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Comment Is Nothing Then
Range("B1").ClearContents
Else
With Range("B1")
.ShrinkToFit = True
.Value = Range("A1").Comment.Text
.WrapText = False
End With
End If
End Sub


Anzeige
AW: Kommentar als Wert in neue Zelle
20.09.2007 12:56:15
Dieter
Hallo Franz,
danke für Deinen Hinweis. Aber jetzt fehlen auch die Zeilenumbrüche. Diese sollten erhalten bleiben.
Das Ziel ist, daß die Zeilenumbrüche erhalten bleiben und die Schriftgröße der Zellengröße angepaßt wird (also die Schriftgröße ggf. verkleinert wird).
Vielleicht findet sich ja noch eine Lösung.
Vielen Dank und Grüße
Dieter

Anzeige
AW: Kommentar als Wert in neue Zelle
20.09.2007 16:14:00
fcs
Hallo Dieter,
ich hab nochmal ein wenig experimentiert. Das Makro stellt jetzt abhängig von der Zahl der Zeilenschaltungen und der Anzahl Zeichen zwischen Zeilenschaltungen die Fontgöße ein.
Du muss halt mit den Fontgrößen und der Anzahl Zeichen für die verschiedenen Case-Zeilen noch einwenig rumprobieren, bis es passt.
Mehr geht dann an variablen Einstellungen nicht mehr.
Gruß
Franz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Comment Is Nothing Then
Range("B1").ClearContents
Else
With Range("B1")
.ShrinkToFit = False
strText = Range("A1").Comment.Text
maxAnz = 0 'MaxAnzahlZeichen zwischen Zeilenschaltungen
For i = 1 To Len(strText)
Anz = Anz + 1
If Mid(strText, i, 1) = vbLf Then
z = z + 1
maxAnz = Application.WorksheetFunction.Max(maxAnz, Anz)
Anz = 0
End If
Next
Select Case z
Case 0 'Keine Zeilenschaltungen im Kommentar
.Font.Size = 10
.ShrinkToFit = True
.WrapText = False
.Value = Range("A1").Comment.Text
Case 1
FontsizeZ = 8
Case 2
FontsizeZ = 6
Case 3 To 5
FontsizeZ = 4
Case Else
FontsizeZ = 3
End Select
Select Case maxAnz 'Fontgröße nach max. Anzahl Zeichen in einer Zeile festlegen
Case Is  0 Then 'Im Kommentar sind Zeilenschaltungen vorhanden
.Font.Size = Application.WorksheetFunction.Min(FontsizeZ, FontsizeA)
.Value = Range("A1").Comment.Text
End If
End With
End If
End Sub


Anzeige
AW: Kommentar als Wert in neue Zelle
20.09.2007 17:39:11
Dieter
Hallo Franz,
ich bin begeistert !!! Genial !!! Vielen herzlichen Dank !!!
Grüsse
Reiner

Forumthreads zu verwandten Themen

VBA - Aus Userform andere Mappe öffnen
Tim

Hallo zusammen,
lange Zeit bin ich nun schon leser eurer tollen Tipps. Jetzt ist aber die Zeit gekommen um mal um Rat zu fragen.
Ich habe eine Userform in der unsere Mitarbeiter Daten eingeben. Wenn die Dateneingabe erfolgreich war, werden diese Daten in ein Tabellenblatt eingefügt, als...
09.03.2016 03:23:07
Thread-ID: 1480787
2 Beiträge
Kommentar in Formel schreiben
MikeM

Hallo zusammen,
ich hab mal wieder eine Frage.
Ich weiß, dass es geht, weil es mir schon mal jemand gezeigt hatte. Allerdings kann ich mich nicht mehr daran erinnern.
Und zwar möchte ich einen Kommentar in eine Formel einfügen, z.B.
A1=15(Vorjahr)+C4(aktueller Wert)
In diese...
22.10.2009 11:23:58
Thread-ID: 1111259
2 Beiträge
Excel Makro
Christoph

Ein Hallo an die Excel Profis,
ich komme einfach nicht weiter bei meinem Problem.
Daher wende ich mich vertrauensvoll hier ans Forum.
Ich suche innerhalb einer Zeile (die immer 13 Spalten breit ist) jeweils den Max-Wert (mit der Funktion Max()).
Basierend auf dem gefunden Max-W...
25.09.2015 17:57:46
Thread-ID: 1449444
5 Beiträge
Tabellenvergleich
KathrinZ

Hallo zusammen,
ich soll für die Planung der Kostenstellen ein Makro schreiben, weil wir wegen eines Tools etwas eingeschränkt sind in der Excelbearbeitung. Und zwar generiert mir mein Tool eine Tabelle und diese will ich auf ein zweites Tabellenblatt kopieren. Auf der zweiten Seite kann ic...
25.06.2019 11:54:28
Thread-ID: 1699391
3 Beiträge
Kopieren v. Zeilen - Zellenweise i.e. and. Tabelle
Fabi

Hallo Excel-Gemeinde,
ich bräuchte Hilfe beim VBA, da meine Kenntnisse in VBA über Macrorecorder nicht hinausgehen...
Das Makro soll, eine Zeile, die mehrere Bedingung erfüllt haben, in eine andere Tabelle kopiert und anschließend geleert und nicht gelöscht wird.
Da ich noch nicht...
08.10.2015 11:29:38
Thread-ID: 1451325
2 Beiträge
trotz Autofilter alle Zellen kopieren ?
zacharias

Hallo allerseitsklingt vielleicht einfacher als es (zumindest für mich) ist:Wie kann ich alle Zeilen (auch die über Autofilter momentan nicht sichtbaren) eines WorkSheets kopieren oder auf andere Weise in ein Arbeitsblatt einer anderen Mappe übertragen.Die Datei ist sehr umfangreich (> 10.000 Z...
15.01.2003 15:34:22
Thread-ID: 203904
4 Beiträge
Anzeige
VBA script mit 2 Quelldateien
Andreas Hofmann
Servus zusammen,
ich habe ein VBA-Problem und komme einfach nicht auf die Lösung. Ich habe nun 2 Tage mit chatGTP gesprochen und jede Menge Code-Vorschläge erhalten, aber die Spalte U wird in der Zieldatei einfach nicht befüllt. Ich bin kein VBA-Fachmann und tue mich schwer in der Lösungsfindung...
26.01.2024 16:05:34
Thread-ID: 1962253
2 Beiträge
Kommentare mittels VBA dynamisch einfügen
Hans

Hallo Excel Fans,
ich habe ein kleines Problem und hoffe auf eure Hilfe.
Ausgangsbasis:
Ich werte verschiedene Daten mit Excel aus die ich vom Host erhalte. Die 1.te Zeile ist die Überschriftzeile mit exotischen Feldnamen. Diese Feldnamen ersezte ich mittels Suche / Ersetze s. Bsp....
19.01.2006 11:12:47
Thread-ID: 721223
6 Beiträge
Anzeige
Datum auslesen, wenn Zelle Kommentar hat
stephan66
Hallo zusammen,

ich habe mir eine Zeiterfassung erstellt, in welche ich mit VBA Kommentare einfügen kann.

Das Datum steht in Spalte C und die Kommentare immer in Spalte F

Zur besseren Übersicht geht ein Makro durch alle 12 Monatsblätter, sammelt die Kommentare ein und gibt...
18.08.2025 15:56:48
Thread-ID: 2017492
1 Beitrag
Übersetzte Kommentare einfügen
Arnold

Hallo zusammen
Bin neu hier und stelle gleich eine - für mich wenigstens - knifflige Frage:
Ich habe eine Exceltabelle "Waflu" in welcher in den verschiedensten Spalten A - Z bei unterschiedlichsten Zellen Kommentare in Deutsch erfasst sind.
Mittels einem VBA habe ich diese ins Tabe...
21.04.2015 11:02:53
Thread-ID: 1422034
6 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum