Office: (Office 2010) Temporaere Anzeige eines Textes in einer Text oder Kommentar Box

Hallo zusammen,

ich moechte den aus max. 160 Zeichen bestehenden Text einer Excel Zelle erst komlett anzeigen wenn ich diese selektiere.
Normal wuerde ich Text per Umbruch komlett darstellen, ist aber in dem Fall sehr hinderlich; da meine Tabelle mehr als 80000 Zeilen hat und sehr viele Spalten hat die ich gleichzeitig sehen moechte. Das heist die Spalten und Zeilenhoehen sollen kompakt bleiben.

Zwei Varianten waeren denkbar:

a) Explizites anklicken der Zelle und Anzeigen des Textes per gelber Kommentarbox
b) Egal auf welcher Zelle ich in der Zeile stehe den Text in einer frei positionierbaren TextBox oder Kommetarbox anzeigen.

Meine VBA Kenntnisse sind auf einfachem Niveau, koennte aber ein VBA Modul einbauen

Gruss
BRA

 

Hallo Ratzmer,

quick 'n dirty:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim c As Comment

    With Me
        ' alle Kommentare im Blatt ausblenden
        For Each c In .Comments
            c.Visible = False
        Next c
        
        ' wenn nur eine einzelne Zelle ausgewählt wird
        If Target.Count = 1 Then
        
            MsgBox "erster Vorschlag: Zelltext mit einer MessageBox anzeigen"
            MsgBox Target.Value
            
            MsgBox "zweiter Vorschlag: Zelltext per Kommentar anzeigen, Kommentarfeldgröße = Autosize"
            With Target
                .ClearComments
                .AddComment
                .Comment.Text Text:=Target.Text
                .Comment.Visible = True
                .Comment.Shape.TextFrame.AutoSize = True
            End With
            
            MsgBox "zweiter Vorschlag: Zelltext per Kommentar anzeigen, Kommentarfeldgröße = vorgegebene Breite und textabhängige Höhe"
            With Target
                .ClearComments
                .AddComment
                .Comment.Text Text:=Target.Text
                .Comment.Visible = True
                .Comment.Shape.Width = 160
                .Comment.Shape.Height = Len(.Comment.Text) * 0.7
            End With
            
        End If
    End With

End Sub

Hier hast Du 2 (bzw. 3) Möglichkeiten zur Auswahl:
- Anzeige mittels MessageBox
- Anzeige über Kommentar (hier zwei Versionen wegen der Kommentarfeldgröße)

Denkbar wäre natürlich auch noch eine UserForm mit Textfeld.
Schau erstmal ob Dich das weiter bringt, und melde Dich wenn Du weitere Hilfe benötigst.

 

Hallo,
War mit anderen Themen beschäftigt daher ert so spät mein Dank für die Antwort. Werde das testen und melde mich bei Bedarf wieder.
LG
Bernd