Formatierung einer Zelle (Advanced)

Guten morgen zusammen!
Wie einige von Euch wissen, programiere ich eine recht umfangreiche Kundenliste (dazu gibt es hier im Forum auch schon Beiträge von mir). Um jetzt festlegen, welchen Weg ich bei der Programmierung einschlagen will, muss ich eine Frage der Formatierung in EXCEL beantwortet haben, da diese direkten Einfluss auf die weitere Vorgehensweise hat.
Zur Frage:
Ich habe eine Zelle, welche eine maximale Höhe haben darf (sonst wird sie nicht mehr richtig angezeigt.) Jedoch kann es vorkommen, dass in dieser Zelle mehr Informationen unter einander stehen, als direkt angezeigt werden können (wegen der maximalen Zellenhöhe). Bis jetzt habe ich mich damit begnügt, in die Zelle zu klicken, dann kann ich nämlich den Inhalt innerhalb der Zelle scrollen). Das wird aber in der Zukunft nicht mehr möglich sein, da dann in der Zelle eine Formel steht (welche den Inhalt erzeugt) und nicht mehr die eigentlichen Werte. Wie bekomme ich es dann geregelt, dass mir Excel alle Werte anzeigt, ohne die Zellenhöhe zu ändern. Ist es möglich innerhalb einer Zelle den Inhalt zweispaltig wiederzugeben (ohne wirklich eine neue Tabellen-Spalte zu erzeugen) oder kann ich das Anzeigeverhalten der Zelle ändern (bis jetzt werden die oberen Werte in der Zelle angezeigt und die unteren, welche nicht mehr passen abgeschnitten. Mir würde es reichen, wenn es genau umgekehrt wäre, sprich, die letzten Werte in der Zelle werden angezeigt und die oberen Werte werden abgeschnitten.)?
Gruß
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const sString As String = "A1,B5,C10,D12" 'Um diese Zellen geht es im Beispiel With Target If InStr(1, sString, .Address(0, 0)) Then On Error Resume Next .Comment.Delete .AddComment .Value .Comment.Shape.TextFrame.AutoSize = True On Error GoTo 0 End If End With End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "Inhalt von Zelle: " _ & Target.Address & " = " _ & vbCr & vbCr & Target.Value 'If Target.Column = 3 And Target.Row >= 3 And Target.Row

Bis jetzt habe ich mich damit begnügt, in die Zelle zu klicken, dann kann ich nämlich den Inhalt innerhalb der Zelle scrollen). Das wird aber in der Zukunft nicht mehr möglich sein, da dann in der Zelle eine Formel steht (welche den Inhalt erzeugt) und nicht mehr die eigentlichen Werte.

Hi
Du könntest auch eine Userform erstellen und den Text der aktiven Zelle dort anzeigen lassen.
erstelle eine Userform mit einer Textbox und folgenden Eigenschaften:
Userform:
- ShowModal - False
Textbox:
- Multiline - True
- WordWrap - True
- Scrollbars - Both
ins Modul des Tabellenblatts kommt folgender Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
UserForm1.TextBox1.Text = ActiveCell.Text
On Error GoTo 0
End Sub

die Userform starten kannst du mit dem Befehl:

Userform1.Show

Diesen würde ich einem Button zuweisen, um die Userform zu starten.
die Userform startest du, wenn du diese Zellen betrachten willst und lässt sie ansonsten geschlossen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Formatierung einer Zelle (Advanced)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formatierung einer Zelle (Advanced)

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

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread