Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text an bestimmte Stringposition schreiben

Text an bestimmte Stringposition schreiben
04.03.2015 22:21:02
Bernhard
Hallo VBA Experten,
in meiner Anwendung wandele ich Tabelleneinträge in Text um. Ich erspare euch Details.
Mein Ziel ist, bestimmte Einträge an eine definierte Zeilenposition zu schreiben. VBtab hilft mir nicht, weil die Einträge sehr unterschiedliche Längen haben und nicht in jeder Spalte etwas stehen muss.
Kurz: Gibt es einen Befehl, mit dem ich an Postion x einer Zeile schreiben kann ?
Eigene Recherchen führten mich nur zu VBtab und zu verschiedenen Möglichkeiten, Positionen auszulesen.
Kann mir jemand helfen ?
Gruss Bernhard

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text an bestimmte Stringposition schreiben
04.03.2015 23:14:15
Michael
Hallo Bernhard,
anbei kleine Datei mit Beispieldaten: https://www.herber.de/bbs/user/96162.xls
Das Makro ist ein reiner Gedankenanstoß:
Option Explicit 
Sub spalten_in_zeilen()
Dim s As String
Dim pos, p As Long
Dim zeile As Long
For zeile = 3 To 5
s = Range("B" & zeile)
p = Range("C1")
pos = Len(s)
If p > pos + 1 Then s = s & String(p - pos - 1, " ") & Range("C" & zeile)
p = Range("D1")
pos = Len(s)
If p > pos + 1 Then s = s & String(p - pos - 1, " ") & Range("D" & zeile)
Range("G" & zeile) = s
Next zeile
End Sub
Dabei sollte man natürlich abfragen, ob der vorhandene String nicht schon länger ist - aber Du weißt ja selbst am besten, wie Deine Daten aussehen.
Es demonstriert, wie man einen String formatiert zusammensetzt.
Falls Du hingegen in einen bereist vorhandenen String größerer Länge an bestimmter Position was reinschreiben willst, zerschneidest Du ihn in Teilstücke mid()) und setzt sie hinterher wieder zusammen.
Schöne Grüße,
Michael

Anzeige
AW: Text an bestimmte Stringposition schreiben
05.03.2015 12:24:18
Bernhard
Vilen Dank ! Damit werde ich mal ein bißchen herumexperimentieren...
LG Bernhard

Gerne...
05.03.2015 16:41:05
Michael
... und danke für die Rückmeldung.
Happy Exceling,
Michael

301 Forumthreads zu ähnlichen Themen

Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Anzeige
TextBox Hintergrundfarbe
Rosenwasser

Hallo Experts,
Ich habe ein Formular (mit den Name 'Kassa') wo 33 Text Boxes ausgewählt werden können. ( tb1, tb2.... tb33 )
Wie kann ich erreichen dass nur den aktive Textbox einen gelbe Hintergrund hat.
Vielen dank & Gruess,
08.11.2008 19:07:18
Thread-ID: 1022979
5 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Userform Textboxen Text in Tabelle schreiben
Erich

Hallo Excelprofis,
habe ein Problem und hoffe ich könnt mir weiterhelfen.
ich habe eine Userform mit 100 Textboxen
1. ich will den inhalt der Textboxen 1 - 50 in die Tabelle Gültigkeit Spalte A 1 bis A50 eintragen den inhalt der Textboxen 51 - 100 in die Spalte B 1 bis B50
2...
18.11.2008 19:16:31
Thread-ID: 1025756
6 Beiträge
Textboxhintergrundfarbe ändern wenn aktiv
Jochen

Hallo Forum
Ich habe in einer UserForm fünf Textboxen in die nach einander Werte eingetragen werden.
Die Hintergrundfarbe der Textboxen ist weiss.
Möchte jetzt erreichen wenn die einzelnen Texboxen aktiv werden das sich die Hintergrundfarbe
ändert.
ZB. so: Textbox1 ist aktiv...
29.11.2008 18:50:15
Thread-ID: 1028885
15 Beiträge
Text in einer Spalte formatieren
Martin

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...
04.01.2009 10:57:00
Thread-ID: 1036687
5 Beiträge
Anzeige

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
13
2
4
4
2
4
6
5
14
4
4
3
2
2
2
3
1
3
9
8
1
1
10
9
3