Office: (Office 365) Ausrichtung von Text innerhalb 1 Zelle

Hallo zusammen,

ich möchte Text aus 2 Zellen gern so in Form bringen, dass je nach individueller Textlänge der Text links und rechts ausgerichtet ist.
Hier mal ein Beispiel:

Code:

Ausgangslage:
Spalte A                Spalte B
Text                    1%
noch längerer Text      100%
langer Text             25%


benötigtes Ergebnis in jeweils 1 Zelle:
Text                     1%
noch längerer Text     100%
langer Text             25%

Danke für Deine Antwort im Voraus.
Jens

 

Moin Jens

Eine Annäherung.
Formel in C3:

Code:

=A3&" "&TEXT(B3;"0%")

STRG+1
Ausrichtung -> Horizontal -> Verteilt (Einzug)

 

Eine sehr gute Idee, ideal wenn es nur 2 jeweils zusammenhängende Zeichen/Wörter sind.
Nur klappt dies bei mehreren Wörtern leider noch nicht wie gewünscht.

Vielleicht gibt es ja so etwas wie eine Art von Möglichkeit "zusammenhängende Zeichen/Wörter" als eigenständiges/einzelnes Wort zu definieren, das es dann funktionieren würde.

 

... ODER ... es eine Art "unsichtbares Zeichen" (kein Leerzeichen) geben würde, um mehre Wörter als EINES zu verbinden.

 

Moin!
Mal im Ernst:
Wie kann man auf die Idee kommen, Text und Wert in eine Zelle zu pferchen und damit weitere Auswertungen (fast) unmöglich zu machen?
Blende die Gitternetzlinien aus und arbeite mit Rahmen!

Gruß Ralf

 

Weil in diesem Fall keine Auswertung vorgenommen werden soll.

 

Ja und?
Ändert rein gar nichts an meinem Vorschlag:

 

Ich verstehe ja was Du meinst und es sieht so auch gut aus, nur möchte ich in meinem Fall den Inhalt beider Zellen in einer haben und entsprechend ausrichten.

 

Moin Jens,
wenn der Prozentwert aus der Länge des Textes ermittelt werden soll -und so verstehe ich den bisherigen Thread- sollte sich das doch über eine Formel =wenn(Länge(A1) < 5 dann, sonst ... lösen lassen. Dazu müsstest Du allerdings die Grenzlängen eindeutig definieren.

Alternativ eine entsprechende UDF (UserDefinedFunction) mithilfe VBA, die dann einfach einen String aus den Gegebenheiten ausgibt oder eine Sub im Sheet.

Schöne Grüße

 

Hallo Schwaelbchen,

mit einer vba-Funktion kann es bei nicht proportionaler Schriftart/Font erreicht werden. (s. Mappe)

Gruß Sigi

 

Moin,

mal eben als Schnellschuss zwischen zwei Gabeln Abendessen ... Code gehört in die Tabelle, Auslöser ist ein Doppelklick

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Integer, c As Integer, sText As String
Cancel = True: r = Target.Row: c = Target.Column

sText = Target.Text

If sText <> "" And InStr(sText, "%") = 0 Then
    Select Case Len(sText)
        Case Is < 5
            Cells(r, c) = sText & " 5%"
        Case Is > 10
            Cells(r, c) = sText & " 100%"
        Case Else
            Cells(r, c) = sText & " 75%"
    End Select
End If

    Columns.AutoFit

End Sub

Muss natürlich bezgl. Auslöser, Grenz- und %-Werten oder abzufangendem Bereich angepasst werden. Hier greift er in jeder nicht leeren Zelle, die kein % enthält.

Grüße

 

Moin,

ich bin wirklich immer wieder fasziniert, welche abgefahrenen Lösungsvorschläge hier kommen!
Daher an dieser Stelle nochmals großen Respekt an alle freiwilligen Helfer dieses Forums!

In diesem speziellen Fall möchte ich aber auch nochmal betonen:
Deine Idee, liebes Schwälbchen, ist mMn grober Unfug aka Bullshit!
Und auch, wenn diese Worte sehr grob klingen, meine ich das überhaupt nicht böse, sondern ich möchte damit lediglich meiner Empörung Ausdruck verleihen.
Aber es ist quasi die Vergewaltigung eines logischen Tabellenaufbaus, egal ob dieser später ausgewertet werden soll oder nicht. Es ergibt einfach keinen Sinn, nur aus optischen Gründen mehrere/unterschiedliche Informationen in eine einzige Zelle zu quetschen, es sei denn, du erklärst diesen Sinn hier schlüssig. Dann lasse ich mich natürlich auch gerne überzeugen. Aber ein "Ich will das aber so" reicht mir persönlich nicht aus (was dir aber natürlich auch piepegal sein kann).

Der Vorschlag von #RPP63_neu aus #7 erscheint mit daher als absolut zielführende Lösung.

Aber bitte, liebe Leute, lasst euch durch meine rein subjektive Meinung nicht davon abbringen, dem Schwälbchen noch weitere Lösungsvorschläge zukommen zu lassen!
Ich jedoch denke, dass man ein Auto nicht mit Pedalen und Stützrädern rückentwickeln muss. My2Cents...

 

Zunächst bleibe ich bei meinem Vorschlag.
Aber da @schwaelbchen ja auf abgefahrenes steht:
(aufbauend auf #2 von steve)

 

Hallo Ihr Lieben !

Ich danke erst mal ALLEN für Ihre Antworten.
Es geht m.E. nicht darum ob es Sinn oder keinen Sinn macht, sondern darum um es machbar ist/wäre. Und wie man sieht ist so vieles möglich, auch wenn es im ersten Gedankenschritt vermeintlich keinen Sinn macht. Zudem gibt es mehr als nur 1 Lösung aufgrund verschiedener Ansätze.
Daher werde ich mich mal mit Euren Vorschlägen beschäftigen und das für mich Beste übernehmen.

DANKE noch mal und Euch allen ein erholsames Wochenende.

 

Ich sag mal so:
Die VBA-Lösungen sind Krücken.
Da wird mir sicherlich auch Sigi Recht geben, weil er auf nicht proportionale Schriftarten setzt.
Meine Formellösung ersetzt das "normale" Leerzeichen 32 durch ein "geschütztes" 160
Dies entspricht Deinem Wunsch aus #4 [klick]
IVm dem Zellformat ergibt dies meinen obigen Screenshot.
Noch ein Hinweis an Sigi:
Statt
WorksheetFunction.Rept(" ", Laenge - m1 - m2)
nehme ich in so einem Fall
Space(Laenge - m1 - m2)

Gruß Ralf