Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur 50 Zeichen eines Strings auslesen

Forumthread: Nur 50 Zeichen eines Strings auslesen

Nur 50 Zeichen eines Strings auslesen
20.05.2009 08:15:40
Kai
Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Danke mal
Kai
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
=Links(A1;50)
20.05.2009 08:19:08
Harald
Formel: =Links(A1;50)
VBA: =left(Sheets("Daten").Range("A1");50)
Gruß
Harald
AW: Nur 50 Zeichen eines Strings auslesen
20.05.2009 08:29:56
Tino
Hallo,
hier ein Beispiel.
Sub Beispiel()
Dim strString As String
strString = Mid$(Sheets("Daten").Range("A1"), 1, 50)
MsgBox strString & vbCr & "länge: " & Len(strString)
End Sub


Gruß Tino

Anzeige
Danke Euch beiden, hilft mir weiter :-) owT
20.05.2009 09:13:11
Kai
Wenn man schon eine simple xlFkt durch...
20.05.2009 16:45:50
Luc:-?
...eine Subroutine ersetzen zu müssen glaubt, Tino,
sollte die doch wohl ein bißchen mehr können...!? Praktischer wäre ohnehin eine udF...
Ein paar Anregungen findest du sicher in der auf diesem Thread-Beitrag verlinkten BspMappe...
Gruß Luc :-?
Anzeige
wenn ich nur wüsste
20.05.2009 17:03:16
Tino
Hallo Luc,
was Du mir sagen willst? Was hat dies mit meinem Beispiel zu tun?
PS: habe mir die Datei nicht angesehn.
Gruß Tino
...das ist dein Fehler, sonst wüsstest du es,...
20.05.2009 17:13:22
Luc:-?
...Tino,
denn auf die VBA-Boni kommt's hier an, nicht auf die Problemlösung! Da die Procs für die dortige Problemlösung irrelevant sind, finden sie sich nur auf der Mappe... ;-)
Ansonsten sollte schon klar sein, was ich meine; du scheinst mir ein rechter VBA-"Pgmierteufel" zu sein... ;-)
Gruß Luc :-?
Anzeige
verstehe es immer noch nicht...
20.05.2009 17:38:30
Tino
Hallo,
, muss wohl am warmen Wetter liegen.
Aber Egal, vielleicht komme ich noch drauf. (meine Leitung ist manchmal etwas lang, sorry)
Gruß Tino
'Function TxRows' wäre doch eine, die etwas...
20.05.2009 18:18:49
Luc:-?
...mehr tut, Tino,
als einen String nur brutal zu kürzen. Sie sucht nach passenden Stellen innerhalb der Längenvorgabe und zerlegt den Text dann in Zeilen (MaxTextLänge 255 minus eingefügte Umbrüche). Mit...
{=Splitt(TxRows(textbezug;50);ZEICHEN(10)) } in einer Zelle erhält man dann einen sinnvoll abgetrennten 1.Textteil mit Länge ≤ 50. Markiert man mehrere Zellen nebeneinander, erhält man alle Textzeilen - für untereinander muss "außenrum" noch MTRANS(...) hinzugefügt wdn. Ohne Splitt wdn alle Textzeilen in einer Zelle umgebrochen angezeigt, wenn die Zellformatierung entsprechend gewählt wurde.
Das ist ganz im Sinne von XL eine Universallösung [wie bspw auch LINKS(...)] und keine Insellösung für nur einen konkreten Fall wie deine SubProc, die auch pflegeleichter wäre, wenn die links abzuschneidende Zeichenzahl wenigstens als Konstante am ProzAnfang deklariert worden wäre; außerdem hätte Left statt Mid auch gereicht...
Das sollte nur ein frdl Hinweis, keine "boshafte" Kritik sein... ;-)
Na dann, weiter gut schwitz (im doppelten Sinne) oder meintest du gar das "warme Wetter" im "höllischen Pgmierteufel-Office"...? Das wäre dann allerdings sehr gut gekontert... :-))
Gruß Luc :-?
Anzeige
AW: 'Function TxRows' wäre doch eine, die etwas...
20.05.2009 18:49:26
Tino
Hallo,
ich finde es ein klein wenig übertrieben extra eine Funktion zu schreiben die mir die ersten 50 Zeichen eines Textes wiedergibt.
strString = Mid(Range("A1"), 1, 50)
oder auch
strString = Left(Range("A1"), 50)
Sind 100 Zeichen vorhanden werden die ersten 50 übergeben, sind nur 25 Zeichen vorhanden,
werden auch nur 25 Zeichen übergeben ohne auf einen Fehler zu laufen.
Wenn z. Bsp. der Text nicht aus 50 Zeichen besteht, werden nur die zurückgegeben die da sind,
dies ist auch bei den anderen Funktionen (Left usw.) so.
(zumindest ist es unter xl2007 so)
Gruß Tino
Anzeige
Was sagt mir das,...
21.05.2009 16:51:56
Luc:-?
...Tino?
Nach deiner Logik hättest du deine Subroutine nicht schreiben müssen, LINKS hätte es ja auch getan...! ;-)
Das mit der Konstanten ist hierbei wegen der Kürze natürlich ebenso irrelevant wie die ganze Subroutine (nebenbei: Was ist, wenn in relevanten Fällen der wiederzugebende Textteil mal länger oder kürzer sein soll? Das ist doch das Problem, nicht die Länge des Quelltextes!), aber bei längeren Procs kann das schon mal sehr hilfreich sein. Nur macht sich hier kaum mal jemand diese Mühe...
Gruß Luc :-?
Anzeige
er will doch 50 Zeichen
21.05.2009 16:59:09
Tino
Hallo,
nicht mehr u. nicht weniger.
Ob Mid oder Left ist in meinen Augen wurscht, beide erfüllen den gleichen zweck..
Gruß Tino
Er will JETZT..., das impliziert 'ne Insellösung
21.05.2009 18:28:22
Luc:-?
...Tino... ;-)
Gruß Luc :-?
Noch einen schönen, bei uns leider nassen Feiertag... Ich schalte jetzt ab und mache was Sinnvolles... ;-)
wir sind doch keine Hellseher, auch Du nicht. ;-)
21.05.2009 18:54:43
Tino
Hallo,
Du bzw. ich können doch aber nicht wissen was er mit den 50 Zeichen vor hat.
Wenn es für sein Vorhaben nun mal erforderlich sein sollte das er 50 Zeichen braucht,
warum möchtest Du es unbedingt kürzen?
Bei mir (uns) ist das Wetter heute auch sehr durchwachsen,
eigentlich wollte ich heute eine Radtour machen, egal die Hauptsache ist das Bier ist angenehm kühl.

Wünsche noch einen schönen Rest Vatertag!
Gruß Tino
Anzeige
Danke! War auch nur 1 Tipp für Größeres... ;-) orT
22.05.2009 04:36:09
Luc:-?
Gruß Luc :-?
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
Makro nur beim ersten Öffnen ausführen
gregor

Guten Morgen!
Kann mir vielleicht jemand bei einem Problem helfen - ich möchte nämlich ein makro nur
beim ersten Öffnen automatisch ausführen - danach nicht mehr!
Geht das irgendwie?
Danke!
27.11.2008 10:09:00
Thread-ID: 1028240
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Anzeige
Letzten 3 geänderten Zeilen in einer Zelle anzeige
Tobias

Ich hab schon eine Funktion, die mir bei jeder änderunng in einer Zeile einen Datumsstempel in Spalte D schreibt.
Ich möchte nun in EINER Zelle die 3 Werte von Spalte A anzeigen, die bei Spalte D das neueste Datum anzeigen. (Es reichen die letzten 3 Werte, kommagetrennt...)
(Wie) kann...
20.02.2009 08:56:00
Thread-ID: 1052332
14 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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