Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1680to1684
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
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt getrennt in Array einlesen

Zellinhalt getrennt in Array einlesen
14.03.2019 08:44:14
Siegfried
Morgen allerseits,
dies ist der Inhalt einer meiner Zellen, welchen ich nun zurückwandeln in wieder lesbare Zeichen möchte. 
ΚΟΜΟΤΙΝΙ>KARIDIA (); , 69100 &Κ&Ο&Μ&Ο&Τ&Ι&Ν&Ι>KARIDIA [0.788] +30 ,

Hatte mir gedacht die einzelnen 

Μ
getrennt in ein Array einzulesen um anschließend den Wert in einem anderen Array zu suchen und wenn gefunden dabei den zugehörigen Buchstaben auslese und das 


Μ
damit ersetzte.
In der umgekehrten Richtung also WEBKonform umwandeln habe ich ja eine Function gefunden aber aus WEBKonform zurück zum Ursprung leider nicht.
Kann mir bitte jemand helfen den Zellinhalt in ein Array aufzuteilen, das ist mein Hauptproblem dabei, DANKE für Rückmeldungen.

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt getrennt in Array einlesen
14.03.2019 09:18:08
Matthias
Moin!
Mal ungetestet nur so hingeschrieben: 
Dim mystring 'soll dein text sein
Dim myarray()
Dim anzahl As Long
mystring = "?>KARIDIA (); , 69100 &?&?&?&?&?&?&?&?>KARIDIA [0.788] +30 ,"
ReDim Preserve myarray(Len(mystring))
For zeichen = 1 To Len(mystring)
myarray(zeichen) = Mid(mystring, zeichen, 1)
Next
Dann hättest du ein Array mit den einzelnen Zeichen.
VG
AW: Zellinhalt getrennt in Array einlesen
14.03.2019 09:30:55
Siegfried
Hallo Matthias,
es wurde mir vorher leider nicht der Code richtig dargestellt sondern gleich rückgewandelt.
Nur mit einem Zeichen ist es mit auch gelungen, ich muss es aber in die einzelnen Gruppen zerlegen, siehe Bild
Userbild
Anzeige
AW: Zellinhalt getrennt in Array einlesen
14.03.2019 09:55:37
Matthias
Moin!
Werden die einzelnen Zeichen (also die Darstellungsform) immer durch ein ; getrennt? Zweimal sehe ich da nämlich ein , .
Wenn immer das selbe Zeichen, dann nutze die Splitfunktion.
myarray = split(mystring,";")
Dann hast du ein 0 basiertes Array. Die ; sind dann die Trenner für die einzelnen Arrayzellen.
VG
AW: Zellinhalt getrennt in Array einlesen
14.03.2019 11:00:00
Siegfried
Hi Matthias,
ja, werd das mal gleich ausprobieren, bin derzeit auf REHA und habe immer wieder Therapien dadaurch die Pausen.
Ja einige sind dabei wo natürlich auch was anderes steht und nicht ein WEB-Code, mal sehen wie das zu lösen wäre.
Gruß Siegfried
Anzeige
AW: Zellinhalt getrennt in Array einlesen
14.03.2019 11:20:38
Siegfried
Nun hat leider einen Schönheitsfehler, egal ob ich das ";" Zeichen oder "&" als Splitzeichen nehme, im Zielarray fehlt es mir und zur Rückwandlung des WEB-Ersatzes in ASCI-Zeichen brauche ich es aber sonst kommt kein brauchbars Ergebnis raus.
AW: Zellinhalt getrennt in Array einlesen
14.03.2019 11:29:26
Matthias
Moin!
Aber ein Zeichen zum trennen musst du nehmen. Mein Vorschläge wäre:
- trenne mit ; (oder einem anderen Zeichen - ggf. vorer so ersetzen, dass sie passen)
- dann gehst du durch das Array ( Schleife) und fügst halt ein ; wieder ein.
Alternativ poste mal aus deinem String, wie die einzelnen Zeichen aussehen sollen. Vll. findet man dann ja eine bessere Lösung.
VG
Anzeige
AW: Dann musst du ein modifiziertes Split verwenden, …
15.03.2019 08:10:43
Siegfried
Morgen Luc:-?,
DANKE für die Anregung, nur wenn ich mir die Formel ansehe verstehe ich nur mehr Bahnhof.
Nun das mit dem Array usw. klappt inzwischen alles bestens, nur die Endumsetzung das mir z.B. für ein "Μ" der ASCI - Wert geschrieben wird leider nicht, obwohl ich in dem dazugehörigem Array in der Tabelle wo es ausgelesen wir den Wert der damit ersetzt werden sollte stehen habe macht er mir im Array lauter "?".
Da stehe ich momentan echt daneben wie ich dies lösen sollte.
Da ich einiges meiner Daten auch in KML bzw. WEB-Format exportiere habe ich damals dazugehörige Functionen gefunden, nur für den Weg in umgekehrter Richtung bis jetzt leider nicht fündig geworden.
Anzeige

228 Forumthreads zu ähnlichen Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Erweiterung eines Makros wg. Einlesen von Daten
Daten

Guten Morgen, kann man das Makro
Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)...
14.10.2008 08:20:04
Thread-ID: 1016214
9 Beiträge
Inhalt einer Webseite einlesen
Richard

Hallo,
ich hätt' da mal folgende Frage
Private Sub CommandButton1_Click() ThisWorkbook.FollowHyperlink "htt p://de.wikipedia.org/wiki/Hallo_Welt" End Sub
21.10.2008 11:22:37
Thread-ID: 1017906
5 Beiträge
Anzeige
Kein Textvergleich nach Einlesen aus TXT
sunni

Hallo da draußen :-),
ich habe ein Problem, an dem ich mir echt die Zähne ausbeiße:
Ich habe (über VBA) aus einer TXT Daten in Excel eingelesen. Die Zahlen konnte ich "verwendbar" machen, indem ich diese mit 1 multipliziert habe. Aber der Text wird nicht als Text erkannt.
Hintergrun...
30.10.2008 14:29:00
Thread-ID: 1020611
4 Beiträge
Aktuellen Pfad in Variable einlesen
Daniel

Hallo Excel-Götter,
ich als VBA-Dummie darf mich mit einem schönen Makro-Problem befassen:
Ich arbeite mit einem Excel-File, das Auswertungen aufgrund von Daten in einem 2.File macht. Beide Files liegen im gleichen Ordner auf meinem Rechner. Das ganze wurde erstellt von meinem Vorgänger...
07.11.2008 06:58:19
Thread-ID: 1022480
6 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Namen in Array einlesen und an Fkt. übergeben
adrian

Hi,
bin mir hierbei nicht ganz sicher ob das so klappt.
Möchte mit dier Funktion ("SearchOEM"), die ein Namen ("OEMName") zurückgibt, falls in einem Bereich ("ODMArea") ein Suchname ("ODMName") vorkommt.
Die Namen die diese Fkt. zurückgibt möchte ich in einem Array Speichern und an...
19.01.2009 13:06:00
Thread-ID: 1041390
4 Beiträge
Wert einer Zelle einlesen ?
Gerd

Halo!
Habe ein Problem bei dem ich nicht weiterkomme und bitte um Eure Hilfe.
Ich lese über VBA die letzte beschriebene bzw. erste freie Zeile in einer Tabelle aus in die ich dann schreibe. Ich hätte gerne daß VBA sich einen Wert, in dieser Zeile Spalte N merkt, ohne daß ich aber ein M...
03.02.2009 16:59:57
Thread-ID: 1046719
7 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
18
1
8
4
6
3
5
4
3
6
2
5
5
9
1
2
6
6
4
3
8
8
1
6
6