Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichenabstand in einer Zelle ändern

Zeichenabstand in einer Zelle ändern
04.09.2008 16:30:53
Andreas
Hallo Excelfreunde
ist es bei Excel Möglich ein Wort oder eine Zahlenfolge die Laufweite bzw. Zeichenabstand so wie es in Microsoft Word möglich ist zu verändern?
zB: Eingabe in eine Zelle "wer weiß was" sollte dann mit zB:2pt Zeichenabstand dann so aussehen
"w e r.. w e i ß.. w a s"
auf eine Antwort würde ich mich freuen
ob es überhaupt möglich ist, und wie ich es gegebenfalls lösen müßte
Danke
Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichenabstand in einer Zelle ändern
04.09.2008 19:50:08
Franc
In einfachster Version würde ich es so lösen.
Mit Alt + F8 kannst du über Optionen dem Makro eine tastenkombi zuweisen und mußt dann nur die Zelle markiert haben und die Tastenkombi drücken (bzw makro ausführen)
Er nimm dann die Zeichenkette und fügt bei jedem Zeichen 2 leerzeichen ein)
Für einen gezieltere Umsetzung wären mehr Infos nötig.
- Also sind es nur einzelne Zellen oder können es auch mehrere werden?
- Sind es immer 2 Zeichen Abstand oder soll das variieren?

Sub leerzeichen()
Dim vorher As String, nachher As String, i As Integer
vorher = ActiveCell
For i = 1 To Len(vorher) - 1
nachher = nachher & Mid(vorher, i, 1) & "  "
Next
ActiveCell = nachher & Right(vorher, 1)
End Sub


Anzeige
AW: Zeichenabstand in einer Zelle ändern
04.09.2008 21:37:44
Franc
Wenn du mehrere Zellen markierst mußt das nehmen. (geht auch wenn nur eine markiert ist)
Zellbereich muß natürlich nicht zusammenhängend sein.

Sub leerzeichen()
Dim zelle As Range, vorher As String, nachher As String, i As Integer
For Each zelle In Selection
vorher = zelle
nachher = ""
For i = 1 To Len(vorher) - 1
nachher = nachher & Mid(vorher, i, 1) & "  "
Next
zelle = nachher & Right(vorher, 1)
Next
End Sub


AW: Zeichenabstand in einer Zelle ändern
07.09.2008 16:57:00
Abdreas
Hallo Franc
vielen Dank für Deine Antwort
Ist ein sehr guter Ansatz auf meine Frage.
Geht der Zeichenabstand per Makro aber auch wie bei Microsoft Word mit "pt" zB. Laufweite 0,5pt oder 1,2pt usw.
Bei deinem Makro ist der Zeichenabstand immer ein Zeichen. Ich möchte aber das der Zeichenabstand veränderbar ist, da ich die in einem Formular benötige wo ich ab und zu auch nur mal den halben Zeichenabstand benötige.
Vielen Dank nochmals
Andreas
Anzeige
AW: Zeichenabstand in einer Zelle ändern
07.09.2008 23:49:00
Franc
Die Funktion Laufweite gibt es meines Wissen nach nicht bei Excel.
Das heißt, man kann nur Zeichen dazwischensetzen. In dem Fall also Leerzeichen. Da das Format für die gesamte Zelle gilt, kann man nicht viele "kleine" Leerzeichen einsetzen.

40 Forumthreads zu ähnlichen Themen

Wörterabstand in einer Zelle
Anja

Hallo Allerseits!
Ich möche einen Vor- und Zunamen in einer Zelle formatieren. Kann man den Abstand der untereinanderstehenden Wörter verändern?
Beispieldatei ist im Anhang.
https://www.herber.de/bbs/user/58883.xls
DANKE im Vorraus für Holfe.
Gruß ANJA
29.01.2009 09:13:00
Thread-ID: 1044800
4 Beiträge
Anzeige
werte in zelle automatisch verändern
nadja

hallo leute,
habe ein problem mit meinem excelfile.
ich habe in einer spalte (c) folgende werte:
VP_1FU_Mod1_k_bb2
VP_2FL_Mod2_v_bb3
VB_3VG_Mod3_k_bb4
usw.
neben dieser spalte (c)sind die nächsten spalten(d) leer.
nun hätte ich gerne, dass mir excel automatisch...
22.07.2009 11:21:08
Thread-ID: 1090470
5 Beiträge
Bezug in Zelle X nach Eingabe in Zelle Y ändern
Jan

Liebe Excelianer,
ich programmiere gerade an einem Budgettool und möchte das folgende einbauen:
(Siehe auch Beispieltabelle) https://www.herber.de/bbs/user/63381.xls
Eine Tabelle besteht aus drei Spalten:
"Schätzung", "Aktuelle Kosten" und "Vertraglich fest" und zeigt, dass am...
23.07.2009 17:45:49
Thread-ID: 1090891
9 Beiträge
Anzeige
In Word Überschriften erstellen
Jörg

Hallo Leute,
ich habe eine Exceltabelle mit vielen Inhalten, die nach Word in Tabellen gebracht werden müssen. Das heißt genau, dass für jede Zeile in Excel eine neue Tabelle in Word erstellt wird, was soweit auch schon klappt.
Jetzt wollen meine Auftraggeber noch, dass jede in Word er...
20.11.2009 17:54:17
Thread-ID: 1118931
2 Beiträge
Registerfarbe besdingt durch Zelleneingabe ändern
Lars

Hallo zusammen,
ich habe mal wieder ein Frage, wie lautet der VBA_Code wenn ich abhängig vom Text in einer Zelle abhängig die Registerfarbe ändern möchte.
In Zelle K14 kann per drop-down verschiedene Auswahlmöglichkeiten getroffen werden, entsprechend der Auswahl soll sich die Registerb...
12.10.2011 15:57:41
Thread-ID: 1233555
4 Beiträge
Registerfarbe bedingt durch Zelleneingabe ändern
Lars

Hallo zusammen,
ich habe mal wieder ein Frage, wie lautet der VBA_Code wenn ich abhängig vom Text in einer Zelle abhängig die Registerfarbe ändern möchte.
In Zelle K14 kann per drop-down verschiedene Auswahlmöglichkeiten getroffen werden, entsprechend der Auswahl soll sich die Registerb...
13.10.2011 09:14:54
Thread-ID: 1233618
12 Beiträge
per Mausklick die Vorzeichen in Zellen ändern
Manfred

Hallo Excel Freunde,
ich möchte mehrere Zellen untereinander markieren und dann das Vorzeichen der darin stehenden Werte per Makro ändern. Aus 100 soll dann -100 werden und umgekehrt.
Kann mir bitte jemand dabei helfen?
Zusatzfrage:
Besteht eigentlich auch die Möglichkeit, so et...
09.05.2012 10:23:48
Thread-ID: 1262877
22 Beiträge
Werte nur in Markierten Zellen ändern
Valeri

Hallo ihr Allwissenden,
mit folgendem Code ändere ich markierte Zellen:
Sub Zelle_Urlaub_rot() Application.ScreenUpdating = False Dim c As Range For Each c In Selection If Not (IsEmpty(c)) Then c.FormulaR1C1 = "U" c.Interior.Color = 255 End If Next c Application.ScreenUpdating = True En...
13.08.2012 08:49:38
Thread-ID: 1274803
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
18
4
8
1
1
3
11
21
5
4
7
2
7
4
9
7
3
1
4
6
6
3
15
4