Excel-Zellformat

Hallo.

ich möchte in einer Excel Tabelle, das in einigen Zellen der eingegebene Text in einer bestimmten Art dargestellt wird (mit einer X anzahl an Leerzeichen z.B.) man den Text aber trotzdem normal eingeben kann.

z.B.
Eingabe:
Hallo

Anzeige:
H a l l o

für Zahlen habe ich das schon hinbekommen nur das will bei mir nicht recht funktionieren.

Weis da wer weiter?
Danke im vorraus

Gruß
Phara

 

Hallo, darf ich fragen, wozu dieses gut sein soll? ich will hier nicht hochnäsig klingen, ich möchte das ganze nur besser verstehen, damit ich evt besser helfen kann. Spontan habe ich auch noch keine Lösung, vielleicht dann aber.
Muss es unbedingt Excel sein???

 

Hi,

mit VBA kann man das z.B. auf diese Weise machen

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inZaehler As Integer
    Dim strWerte As String
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Application.EnableEvents = False
    For inZaehler = 1 To Len(Target)
        strWerte = strWerte & Mid(Target, inZaehler, 1) & " "
    Next inZaehler
    Target = Left(strWerte, Len(strWerte) - 1)
    Application.EnableEvents = True
End Sub

Code bezieht sich auf Spalte A; es dürfen nicht mehrere Zellen ausgewählt sein.

 

Ich muss sagen - schön wenn man VBA kann - wäre dann aber gleich die nächste Frage: und wie bekommt man es dann in andere Spalten?

 

Hi,

mit dieser Codezeile

Code:

If Target.Column <> 1 Then Exit Sub

wird festgelegt, dass die Prozedur verlassen wird, falls die Eingabe nicht in Spalte A (1) erfolgt ist. Wenn es eine andere Spalte sein soll, dann einfach die 1 durch die Spaltennummer ersetzen. Sollen es mehrere Spalten sein, dann muss die Zeile durch diese ersetzt werden

Code:

If Intersect(Target, Union(Columns(1), Columns(3), Columns(5))) Is Nothing Then Exit Sub

wobei die Zahlen in Klammern wieder die Spaltennummern sind.

 

Hallo.

Ich war leider kurzzeitig verhindert.

also:
Der Sinn und Zwech des ganzen soll sein, das ganze an eine Grafik an zu passen. Ich habe das bis dato immer über einzelne Zellen gemacht, bekomme aber langsam ne Kriese immer jede Zelle einzeln zu bearbeiten

Was mich darauf kommen lässt, das es nur in einzelnen Zellen, aber nicht in einer ganzen Spalte geschehen soll.

Kleine Frage nebenbei, da ich mich mit VBA nur in so fern auskenne, das ich Knöpfchen mit Funktionen belege: Wird diese Funktion dann immer im Hintergrund ausgeführt oder muss ich das erst in "gang bringen" wenn die Formatierung durchgeführt werden soll?

 

Hallo.

Danke, das ist gut zu wissen.

leider bekomme ich as mit dem code nicht so recht hin.

ichmöchte das eingaben in zelle c5 so formatiert werden, das nach jedem geschreibenen Zeichen (wichtig ist, das er auch buchstaben nimmt) 2 leerzeichen einfügt.

kann mir jemand den code dafür posten? ich stell mich glaube grade einfach nur zu dämlich an

 

Du kannst eigentlich das Makro von Beverly nehmen: Du musst nur statt einem Leerzeichen zwei einfügen und nach der For-Next-Schleife -2 statt -1 eingeben.

Oder was meinst Du mit "nach jedem geschriebenen Zeichen"? Wenn nicht alle Zeichen gemeint sind musst Du noch eine If-Bedingung einfügen...

Gruss
Bruno

 

hallo.

danke erstmal für die vielen antworten bis jetzt.

Ich habe mal ein einfaches beispiel erstellt, evtl hilft das ja weiter ^.^

bei mir ist es dann nur so, dass ich in einigen zellen, 1 leerzeichen zwischen jedem buchstaben und manchmal 2 dazwischen brauche.

das problem bei der spaltenbezogenen weise ist auch, dass es in den spalten dann wiederum zellen gibt, die nicht so formatiert werden sollen.

Gruß Phara

 

Hi,

wenn ich das richtig interpretiere, möchtest du eigentlich das eingegebene Wort oder Zahlenkombinaiton in mehrere Spalten aufteilen? Da ich aus deiner Beispielmappe nicht entnehmen kann, welche Zellen es betrifft, hier mal der Code als Beispiel für Spalte C (kann man aber natürlich auch auf bestimmte Zellen beschränken):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inLaenge As Integer
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    Application.EnableEvents = False
    For inLaenge = Len(Target) To 1 Step -1
        Cells(Target.Row, 2 + inLaenge) = Mid(Target, inLaenge, 1)
    Next inLaenge
    Application.EnableEvents = True
End Sub

Mir ist aber nicht klar, weshalb du manchmal 2 Leerzeichen und manchmal nur eins benötigst - das ist aus deinem Beispiel leider nicht zu erkennen.

 

Hi

doch, ich habe schon richtig erkannt wie es gemacht und wie es aussehen soll. Ich frage mich nur, wozu das gut sein soll, alles in eine Zelle zu packen, dann anschließend mittels Autoformen eine Zwischenlinie zu erstellen, obwohl die Buchstaben ja dennoch optisch jeder in einer Spalte erscheinen sollen. Das Ganze kann man schließlich viel einfacher erreichen, indem man jeden Buchstaben in eine extra Zelle schreibt - schließlich sind die Spalten in ihrer Breite ja sowieso angepasst.

 

Also irgendwie habe ich das Gefühl, dass du die eigentliche Sache mehr als Umständlich machen willst. Wenn du das mit einer Grafik verbinden willst, und aus dem was ich gesehen habe zwar das ganze in einer Zelle hast aber dann doch über die Breite mehrrer Spalten ziehst.

Ich denke mal der Vorschlag mit dem WordArt ist bestimmt die bessere als hier umständlich VBAs zu bemühen die wahrscheinlich nie deinen Vorstellungen entsprechen würden. Kannst du nicht mal eine kleine Tabelle MIT der Grafik machen damit man eine Vorstellung hat was du wirklich machen willst.