Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon BossD vom 19.04.2019, 14:34 Options

Kommentar Makro

servus,
Habe folgendes Makro:

Sub Comment()
Dim Zelle As Range
On Error Resume Next
For Each Zelle In Range("B8:AF8")
If Range(Zelle.Address) <> "" Then
If Not Range(Zelle.Address).Comment Is Nothing Then _
Range(Zelle.Address).ClearComments
With Range(Zelle.Address)
.AddComment.Text Text:=Range(Zelle.Address) & Chr(10) & ""
End With
Else
Range(Zelle.Address).ClearComments
End If
Next
End Sub

Dieses bewirkt das zu jeder Zelle in der etwas eingatragen ein Kommentar erzeugt wird der den Eintag der Zelle beinhaltet.

Nun folgendes Problem.
1. Die Schriftgröße des Kommentars muss verändert werden daher diese zu klein ist. (in der Zelle muss diese leider so klein bleiben)

2. Ich habe eine Datei mit mehreren Tabellenblätter. Das Makro soll auf alle gleichzeitig angewendet werden, wie bewerkstellige ich dies?

Vielen Dank schon mal,
Grüße
Daniel

Antwort schreiben

Antwort 1 von Hajo_Zi vom 19.04.2019, 14:46 Options

Hallo DAniel,

Option Explicit

Sub Comment()
Dim Zelle As Range
Dim WsTabelle As Worksheet
On Error Resume Next
For Each WsTabelle In Sheets
With WsTabelle
For Each Zelle In .Range("B8:AF8")
If Range(Zelle.Address) <> "" Then
If Not .Range(Zelle.Address).Comment Is Nothing Then .Range(Zelle.Address).ClearComments
With .Range(Zelle.Address)
.AddComment.Text Text:=Range(Zelle.Address) & Chr(10) & ""
With .Comment.Shape.TextFrame
' .Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
End With
End With
Else
.Range(Zelle.Address).ClearComments
End If
Next
End With
Next WsTabelle
End Sub

Gruß Hajo

Antwort 2 von BossD vom 19.04.2019, 14:53 Options

Servus,
Danke schon mal, das ganze birgt jedoch noch einen Fehler. Er fügt einfach in alle Tabellen den Kommentar der ersten Tabelle ein. Das Ganze genau an der Stelle wie es auch in Tabelle eins steht.

Antwort 3 von Hajo_Zi vom 19.04.2019, 14:59 Options

Hallo Daniel,

ändere diese Zeile
.AddComment.Text Text:=Zelle.Value & Chr(10) & ""

Gruß Hajo

Antwort 4 von BossD vom 19.04.2019, 15:08 Options

Kein Erfolg, er nimmt immer noch den Kommentar aus der Tabelle die ich grade vor mir habe und verteilt es auf alle anderen.

Zudme ist mir grade aufgefallen das er es doch nicht auf alle Tabellen anwenden darf. Die Zweite Tabelle heist Januar, das geht dann durch bis Dezember, er darf nur diese mit einem Kommentar versehen.

Vielen Dank,
Daniel

Antwort 5 von Hajo_Zi vom 19.04.2019, 15:17 Options

Hallo Daniel,

Dein Problem kann ich in meiner Datei nicht nachvollziehen, aus diesem Grunde kann ich Dir nicht weiter helfen.

Gruß Hajo

Antwort 6 von BossD vom 19.04.2019, 15:30 Options

Trotzdem vielen Dank. Hoffe auf andere Hilfe...
Grüße
Daniel

Antwort 7 von BossD vom 19.04.2019, 15:51 Options

Habe es selbst mit nem kleinen Umweg gelöst.
Habe das ursprüngliche Makro genommen, es mit der Schriftgröße modifiziert und dann mit der Makroaufzeichnung einfach auf alle tabellenblätter angewendet. Funktioniert einwandfrei. Trotzdem noch mal danke für deine Mühe,
Grüße
Daniel

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken