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

Helfe beim Thema Temporaere Anzeige eines Textes in einer Text oder Kommentar Box in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich moechte den aus max. 160 Zeichen bestehenden Text einer Excel Zelle erst komlett anzeigen wenn ich diese selektiere. Normal... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Ratzmer, 27. Juli 2015.

  1. Ratzmer Erfahrener User

    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
     
    Ratzmer, 27. Juli 2015
    #1
  2. fette Elfe Erfahrener User
    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.
     
    fette Elfe, 27. Juli 2015
    #2
  3. Ratzmer Erfahrener User
    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
     
    Ratzmer, 5. August 2015
    #3
Thema:

Temporaere Anzeige eines Textes in einer Text oder Kommentar Box

Die Seite wird geladen...
  1. Temporaere Anzeige eines Textes in einer Text oder Kommentar Box - Similar Threads - Temporaere Anzeige Textes

  2. Inhalt der Zelle anzeigen, nicht den Zellnamen

    in Microsoft Excel Hilfe
    Inhalt der Zelle anzeigen, nicht den Zellnamen: Guten Abend in die Runde, ich bin ganz neu hier, habe mich gerade ganz tapfer durch alle möglichen "alle-Bilder-mit-Autos" und "alle-Bilder-mit-Fahrrädern"-anklicken-Aufgaben geklickt und hoffe...
  3. Nahe Geburtstage anzeigen

    in Microsoft Excel Tutorials
    Nahe Geburtstage anzeigen: In A:A die Namen, in B:B Geburtsdatümer. Dann =LET(c;A1:B999;d;365,2425;b;INDEX(c;;2)-HEUTE(); FILTER(HSTAPELN(c;RUNDEN(ABS(b/d);0)); NACHZEILE(REST({1.-1}*b;d);LAMBDA(a;MIN(a)<8)))) gibt als...
  4. Werte aus einer anderen Excel-Datei anzeigen

    in Microsoft Excel Hilfe
    Werte aus einer anderen Excel-Datei anzeigen: Hi zusammen, ich steh noch am Anfang meiner Excel Abenteuer hab aber gleich eine für mich interessante Frage da ich mit mehreren Excel Dateien arbeite. Ich habe eine bestimmte Zahl als...
  5. Tabelle immer ab Datum anzeigen

    in Microsoft Excel Hilfe
    Tabelle immer ab Datum anzeigen: Hallo, in meiner Tabelle werden unter Datumsangaben (in einer Zeile) Werte in einer Spalte eingetragen. Screenshot der Tabelle im Anhang. Beim Öffnen der Tabelle soll immer die Spalte mit dem...
  6. Beim Senden Adresse statt Namen anzeigen

    in Microsoft Outlook Hilfe
    Beim Senden Adresse statt Namen anzeigen: Szenario: Ein gut gefülltes AD-Adressbuch mit einigen Dopplungen - nach dem Motto "Thomas ist kein Vorname, sondern ein Sammelbegriff, Müller ebenso - also hat man mehr als einen "Thomas Müller"...
  7. Anzeige/Sortierung ganztägiger Termine

    in Microsoft Outlook Hilfe
    Anzeige/Sortierung ganztägiger Termine: Hallo, ich suche nach einer Einstellung bei der ich die Anzeige bzw. die Sortierung von ganztägigen Terminen so einrichten kann, dass die ganztägigen oben nach Dauer angezeigt werden. Also z. B....
  8. Zellen bzw. Tabellen nach Bedarf anzeigen lassen

    in Microsoft Excel Hilfe
    Zellen bzw. Tabellen nach Bedarf anzeigen lassen: Hallo :-) ich möchte den Bereich, Zeile 19 bis 24, in Excel nur nach Bedarf einfügen. Mit einer Gruppierung möchte bzw. kann ich das Problem nicht lösen, da diese "Tabelle" immer an einer anderen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden