Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text "g e s p e r r t" schreiben

Forumthread: Text "g e s p e r r t" schreiben

Text "g e s p e r r t" schreiben
13.02.2005 19:25:57
BigWoelfi
Hallo,
gibt es eine Funktion oder Formel, mit der man den verknüpften Text aus einer anderen Zelle "g e s p e r r t" darstellen kann.
Meine Notlösung
=LINKS(MeinName; 1) &" " &TEIL(MeinName; 2;1) &" " &TEIL(MeinName; 3;1) &" " &TEIL(MeinName; 4;1) &" " &TEIL(MeinName; 5;1) &" " &TEIL(MeinName; 6;1) &" " &TEIL(MeinName; 7;1) &" " &TEIL(MeinName; 8;1) &" " &TEIL(MeinName; 9;1) &" " &TEIL(MeinName; 10;1) &" " &TEIL(MeinName; 11;1) &" " &TEIL(MeinName; 12;1)
gefällt mir nicht wirklich, vor allem, weil sie nicht berücksichtigt, wie lang der Text wirklich ist, der in der Zelle erscheinen wird. Der Text ist immer ein Nachname.
Die Formel müsste ja praktisch die Länge von "Name" in der Bezugszelle feststellen und dann dieses Leerzeichen jeweils zwischen den Zeichen einfügen.
Vielleicht geht das auch über ein benutzerdefiniertes Format. Aber auch da kann ich nichts finden, was funktionieren könnte. Auch hier müsste ja vorher klar sein, wieviel Zeichen "Name" hat.
Gruß, Wolfgang
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text "g e s p e r r t" schreiben
Reinhard
Hi wolfgang,
Function trenn(ByVal Nachname As String) For bb = 1 To Len(Nachname) trenn = trenn & Mid(Nachname, bb, 1) & " " Next bb trenn = Left(trenn, Len(trenn) - 1) End Function
Gruß
Reinhard
AW: Text "g e s p e r r t" schreiben
13.02.2005 20:43:14
BigWoelfi
Hallo Reinhard,
in VBA habe ich eine ähnliche Lösung. Die ist eingebunden in eine Worksheet_Change - Ereignis und funktioniert auch prima.
Aber:
Die Zelle, in die der Name eingegeben wird, soll gerade nicht gesperrt dargestellt werden, weil die Eingabe mehrfach verwendet wird und nicht immer in Sperrschrift. Wenn ich jetzt ein Makro laufen lassen, dann steht in der Zelle, in der der Text umgewandelt worden ist, natürlich der Name und nicht mehr die Verknüpfung zur Ausgangszelle.
Äendert man dort den Namen, wird diese Zielzelle nicht mehr aktualisisert.
Und deshalb geht VBA in diesem Fall mal nicht.
Allerdings bringt mich das auf die Idee, die Verknüpfung rauszunehmen und gleich per Makro die andere Tabelle zu bedienen. Schau ich gleich mal.
Gruß, Wolfgang
Anzeige
AW: Text "g e s p e r r t" schreiben
13.02.2005 21:02:31
Josef
Hallo Wolfgang!
Da hast du Reinhard falsch verstanden!
Du kannst die Funktion in der Tabelle als ganz normalr Formel verwenden!
Tabelle1
 AB
1testtextt e s t t e x t
2HalloH a l l o
3BlablaB l a b l a
Formeln der Tabelle
B1 : =gesperrt(A1)
B2 : =gesperrt(A2)
B3 : =gesperrt(A3)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Und die Funktion dazu.


      
Function Gesperrt(ByVal Text As StringAs String
Dim n As Integer
   
If Text <> "" Then
      
For n = 1 To Len(Text)
      Gesperrt = Gesperrt & Mid(Text, n, 1) & 
" "
      
Next
   
End If
End Function 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Text "g e s p e r r t" schreiben
13.02.2005 22:19:53
BigWoelfi
Hallo Sepp,
da hast Du recht.
Habs gerade eingebaut und noch mit UCase in Großbuchstaben gewandelt.
Jetzt gefällt es mir.
Danke für die Hilfe, Thema erledigt.
Gruß, Wolfgang
AW: Text "g e s p e r r t" schreiben
13.02.2005 19:53:59
Butch
Hallo Wolfgang,
Meine Idee bringt Dir vielleicht nicht das, was Du Dir vorstellst, aber ich möcht Sie dir trotzdem anbieten: Mit dem Schriftformat Lithographlight kommst Du Deinem gewünschten Layout schon sehr nahe. Du kannst das Schriftformat unter > gezielt einsetzen.
Anzeige
AW: Text "g e s p e r r t" schreiben
13.02.2005 19:57:02
Butch
Nochmal an Wolfgang,
leider wurde nicht die komplette Anwort dargestellt. Nach Schriftformat sollte erscheinen: unter Format bedingte Formatierung kannst Du das Layout gezielt einsetzen.
;
Anzeige
Anzeige

Infobox / Tutorial

Text "g e s p e r r t" in Excel darstellen


Schritt-für-Schritt-Anleitung

Um den Text "g e s p e r r t" in Excel darzustellen, kannst Du eine benutzerdefinierte Funktion verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Function Gesperrt(ByVal Text As String) As String
        Dim n As Integer
        If Text <> "" Then
            For n = 1 To Len(Text)
                Gesperrt = Gesperrt & Mid(Text, n, 1) & " "
            Next n
            Gesperrt = Left(Gesperrt, Len(Gesperrt) - 1) ' Entferne das letzte Leerzeichen
        End If
    End Function
  4. Schließe den VBA-Editor.

  5. In einer Zelle verwende die Formel =Gesperrt(A1), wobei A1 die Zelle ist, die den Text enthält, den Du "gesperrt" darstellen möchtest.


Häufige Fehler und Lösungen

  • Fehler: Funktion zeigt #NAME? an
    Lösung: Stelle sicher, dass Du die Funktion korrekt in das Modul eingefügt hast und dass der VBA-Editor geschlossen ist.

  • Fehler: Text wird nicht aktualisiert
    Lösung: Stelle sicher, dass Du die Formel in einer Zelle verwendest, die auf die Zelle mit dem Originaltext verweist.


Alternative Methoden

Wenn Du keine VBA-Funktion verwenden möchtest, kannst Du eine "Notlösung" mit Excel-Formeln erstellen. Hier ist ein Beispiel:

  1. Angenommen, der Text steht in Zelle A1.
  2. Verwende die folgende Formel in Zelle B1:

    =LINKS(A1; 1) & " " & TEIL(A1; 2; 1) & " " & TEIL(A1; 3; 1) & " " & TEIL(A1; 4; 1) & " " & TEIL(A1; 5; 1) & " " & TEIL(A1; 6; 1)

Diese Formel ist jedoch nicht flexibel und berücksichtigt nicht die Länge des Textes.


Praktische Beispiele

Hier sind einige Beispiele für die Verwendung der Funktion:

  • Beispiel 1: Wenn in Zelle A1 der Text "Hallo" steht, wird die Formel =Gesperrt(A1) in Zelle B1 das Ergebnis "H a l l o" liefern.
  • Beispiel 2: Für den Text "Excel" in A2 wird =Gesperrt(A2) in B2 "E x c e l" ausgeben.

Tipps für Profis

  • Du kannst die Funktion auch so anpassen, dass sie Großbuchstaben ausgibt, indem Du die Zeile Gesperrt = Gesperrt & UCase(Mid(Text, n, 1)) & " " verwendest.
  • Experimentiere mit bedingter Formatierung, um den Text visuell ansprechend darzustellen.
  • Wenn Du Text in einem bestimmten Schriftstil wie "Lithographlight" darstellen möchtest, kannst Du dies unter Format > Schriftart anpassen.

FAQ: Häufige Fragen

1. Wie wird "gesperrt" geschrieben?
In Excel wird "gesperrt" durch die Nutzung von VBA-Funktionen oder speziellen Formeln erreicht, um Leerzeichen zwischen den Zeichen einzufügen.

2. Kann ich die Funktion auch in Word verwenden?
Die Funktion ist speziell für Excel geschrieben. In Word musst Du andere Methoden verwenden, um "gesperrte Schrift" darzustellen.

3. Wie kann ich ein Makro erstellen, um diesen Prozess zu automatisieren?
Du kannst die oben beschriebene Funktion in ein Makro einfügen und einen Button erstellen, um die Funktion auszuführen.

4. Gibt es eine Möglichkeit, die Schrift automatisch zu ändern?
Ja, Du kannst die Schriftart über VBA anpassen, indem Du die Font-Eigenschaften in Deiner Funktion änderst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige