Hallo, sitze gerade über der Buchführung mit einer Zahlenliste, die aufschlußreiche Kommentare hat, die separat in einer Spalte und je Kommentar als eine Zelle ausgeben möchte. Geht das und wie? Ihr würdet mir damit einen Riesengefallen und eine Riesenarbeit abnehmen.!!! Johannes
Servus Johannes,
dies funktioniert meines Wissen nur über VBA. Ich hab Dir mal ne kleine eigene Funktion/Formel geschrieben, die Dein gewünschtes Ergebnis zur Folge haben sollte.
Geh wie folgt vor:
1.) ALT+F11 (VBA-Editor öffnen)
2.) ALT+E+M (neues Modul erzeugen)
3.) nachfolgenden Code kopieren und dort einfügen
4.) ALT+F4 (VBA-Editor schließen)
Nun kannst Du in der Tabellenzelle eine neue „Formel“ nutzen:
=Kommentar(A1)
Statt A1 musst Du die korrekte Zellenadresse angeben, von welcher Du den Kommentar erhalten möchtest.
Hier der CODE:
Option Explicit
Public Function Kommentar(ByVal Zelle As Range) As String
On Error Resume Next
Kommentar = Zelle.Cells(1).Comment.Text
End Function
Beste Grüße
Gerd
Hallo, sitze gerade über der Buchführung mit einer
Zahlenliste, die aufschlußreiche Kommentare hat, die separat
in einer Spalte und je Kommentar als eine Zelle ausgeben
möchte. Geht das und wie? Ihr würdet mir damit einen
Riesengefallen und eine Riesenarbeit abnehmen.!!!
Hallo Johannes,
angenommen in A1:A10 stehen die Zellen mit den Kommentaren, dann lasse mal das Makro laufen, danach steht in Spalte B jeweils der Kommentar der Zelle aus Spalte A.
Achja, der Code ist dirty, weiß grad nicht wie man feststellt ob eine Zelle einen Kommentar hat.
Weiß das jemand hier? hab zwar was mit .Count probiert, ging aber schief 
Sub tt()
Dim Zei As Long
On Error Resume Next
For Zei = 1 To 10
Cells(Zei, 2) = Cells(Zei, 1).Comment.Text
Next Zei
End Sub
Gruß
Reinhard
Danke!Mit Bravour gelöst!Dafür gibts ein Sternchen
Danke!Mit Bravour gelöst!Dafür gibts ein Sternchen