Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Text mit Format in Textbox übertragen
24.07.2008 11:20:55
Joachim
Hi,
ich habe eine Zelle, die enthält diese Information:
01 Zeile 1;Name1;100;24.07.2008;25.07.2008;26.07.2008
02 Zeile 2;Name sowieso2;80;24.07.2008;;26.07.2008
03 Zeile 3;Name 3;20;24.07.2008;;26.07.2008
04 Zeile 4;Name sowieso4;100;24.07.2008;;26.07.2008
05 Zeile 5;Name 5;5;;;26.07.2008
06 Zeile 6;Name sowieso6;80;24.07.2008;;26.07.2008
Ich möchte diese Information nun in eine Textbox einlesen:
TextBox1 = (Range("B29"))
Soweit noch so gut. Nun das Problem:
Die Zeilen sind mit Semikolon getrennt und die Informatiuon pro Spalte sind unterschiedlich lang. Wie bekomme ich die daten sauber untereinender geschrieben (evt. Tabs), damit alle 6 Spalten wie Namen, alle Datums ... sauber untereinander stehn
Danke Joachim

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hier eine Korrektur
24.07.2008 11:26:00
Joachim
Hi,
muss mich korregieren:
ich lese die Daten in die Textbox so ein:
'Daten Description eintragen
For Each C In Range("B29")
TextBox1.Value = C.Value
Next
Gruss
Joachim

keine eine Idee ? oT :-)
24.07.2008 14:05:00
Joachim

AW: keine eine Idee ? oT :-)
24.07.2008 17:19:18
Tino
Hallo,
TextBox Eigenschaft AutoSize auf True und MultiLine auf True
TextBox1 = Replace(Range("B29"), ";", vbCr)
Gruß Tino

www.VBA-Excel.de


AW: keine eine Idee ? oT :-)
24.07.2008 19:14:42
Joachim
Hallo Tino,
habe gemacht, was Du geschrieben hast, funktioniert leider nicht so, wie gehofft:
Hatte zum testen gerade aber nur Excel 2000 , macht das was am Ergebnis ?
Schau mal auf meine Mappe:
https://www.herber.de/bbs/user/54119.xls
Vielleicht mach ich doch was falsch.
Danke
Gruss
Joachim

Anzeige
AW: keine eine Idee ? oT :-)
24.07.2008 20:41:00
Tino
Hallo,
was du machen willst, kann man in einer Textbox nur sehr schwer umsetzen.
Hab hier mal angefangen, passt aber noch nicht richtig.
https://www.herber.de/bbs/user/54121.xls
Ich lass die Frage mal offen.
Gruß Tino

www.VBA-Excel.de


hmmm, blöd, aber trotzdem Danke ...
24.07.2008 21:06:42
Joachim
... dass ich mir aber auch immer die schwierigsten Sachen ausdenken muss :-()
Gruss
Joachim

AW: hmmm, blöd, aber trotzdem Danke ...
25.07.2008 07:39:00
Tino
Hallo,
habe mal noch etwas gebastelt.

Die Datei https://www.herber.de/bbs/user/54125.xls wurde aus Datenschutzgründen gelöscht


Ist bestimmt noch ausbaufähig. ;-)
Gruß Tino

www.VBA-Excel.de


Anzeige
Das kommt das Sache schon näher :-)
25.07.2008 10:36:00
Joachim
Hi Tino,
Danke, mir ist nur eines nicht klar: Ich wollte die Breite der esrten Spalte im Code verändern, das wird ja sicher hier gemacht:
Case 60 To 100: meTabs = .Rept(vbTab, 0)
Case 50 To 60: meTabs = .Rept(vbTab, 1)
Case 40 To 50: meTabs = .Rept(vbTab, 2)
Case 0 To 40: meTabs = .Rept(vbTab, 3)
die erste Spalte kann gut mal zwischen 10 und 70 Zechen habe. Nun wollte ich die erste Spalte auf ca 100 zeichen mal ausrichten. Dabei verändere ich aber beim einlesen in die Textbox automatisch die Breiten der nachfolgenden Spalten. Die erste Splate ist doch vbTab,0 oder ?
Irgend was mache ich falsch. schau mal bite noch mal auf beine Mappe , habe das mal mit langen und kurzen Einträgen dargestellt.
Ansonsten echt spitze.
Gruss
joachim
https://www.herber.de/bbs/user/54135.xls

Anzeige
AW: Das kommt das Sache schon näher :-)
25.07.2008 11:37:30
Tino
Hallo,
dies war für die Berechnung der Nötigen vbTab Zeichen um den Text richtig einzurücken.
Für 8 Zeichen benötigt man 3 Tabs für 16 braucht man noch 2 Tabs für 24 nur ein Tab.
Bei Texten mit gleicher länge, bräuchte man nur 1 Tab und dies müsste im Code abgefangen werden.
Man könnte es noch so weit ausbauen, dass man zuerst den längsten Block ermittelt und dies entsprechend in die Funktion einbaut.
Ist doch einfach oder ;-)
Habe schon mal geschrieben, dies ist nicht so leicht umzusetzen.
Ich versuche mal etwas zu programmieren, kann aber ein Weilchen Tauern.
Gruß Tino

www.VBA-Excel.de


Anzeige
Geht nicht und keine Idee mehr!
25.07.2008 19:49:00
Tino
Hallo,
also es Funktioniert nicht.
Mein VBA Programm setzt die Tabs richtig, dies kann man in einem Texteditor gut erkennen, wenn man den Text aus der Textbox dort einfügt.
Userbild
Gruß Tino

trotzdm vielen, vielen Dank Tino ...
25.07.2008 21:46:00
Joachim
Hallo Tino,
kein Problem, muss mir halt irgend wie ein andren weg suchen, vielleicht lese ich die Daten spaltenweise aus meiner datenbank aus und mache dann mehrere Textboxen nebeneiner und lese dort die einzelnen Spalten wieder ein oder irgend wie so.
Schönes Wochenende.
Grus
Joachim
Anzeige

301 Forumthreads zu ähnlichen Themen


Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
Anzeige

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...

Hallo Experten,
in einer Combobox sind ca 30 Schlüsselnummern eingetragen. Zur Erklärung: jede Schlüsselnummer beschreibt einen Fehler auf einem Röntgenfilm. Gibt es irgendeine Möglichkeit, das bei Auswahl eines Schlüssels zur Orientierung ein Hilfetext aufgerufen wird, bei der Übernahme in...
Anzeige

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige