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

Daten im Format "xxx() as Byte" in String umwandeln

Forumthread: Daten im Format "xxx() as Byte" in String umwandeln

Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 13:07:10
Joschi Witchcraft
Hallo Forum.

Aus einer Funktion erhalte ich die Daten in einer Array-Variablen im Fomat Byte zur Verfügung gestellt.

Wie kann ich ohne Loop diese Array-Daten in einen gewöhnlichen String umwandeln?

Gruß Joschi
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 13:20:10
daniel
Hi
mit Worksheetfunction.TextJoin(" ", true, x)

das VBA-Join funktioniert nur mit eindimenisonalen Variant- oder Text-Arrays.
die Excelfunktion Textverketten verarbeitet fast alles.

Gruß Daniel

AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 14:09:32
Ulf
Hi
Loop zum Füllen ist aber erlaubt? 


Sub tt()

    Dim bBytes(9) As Byte

    Dim i As Integer

    Dim strText As String

    For i = 0 To 9

        bBytes(i) = 65 + i

    Next

'

    strText = StrConv(bBytes, vbUnicode)

'

    MsgBox strText

End Sub

hth
Ulf
Anzeige
AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 14:55:14
Joschi Witchcraft
Hallo Fenek,

Eine Schleife für rund 400.000 Zeichen - keine gute Idee.

Hallo Ulf.

Super: Der kleine Loop zum testweise Füllen der Array-Variablen sei Dir verziehen.

Deine Lösung mit StrConv: unschlagbar.

Problem wieder einmal gelöst. Vielen Dank,

Gruß Joschi
Anzeige
AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 15:36:29
Fennek
Getestet: 


Sub T_Byte()

Dim By(3) As Byte



'By = StrConv("ABC", vbFromUnicode)

By(0) = 65

By(1) = 66

By(2) = 67



Debug.Print WorksheetFunction.TextJoin(" ", True, By)



Debug.Print StrConv(By, vbUnicode)

End Sub


AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 13:59:34
Joschi Witchcraft
Hallo Daniel.

Vielen Dank für Deine Antwort.

Leider bringt Dein Code bei mir einen Laufzeitfehler 1004

Meine Definitionen:

Dim ByteData() As Byte
Dim StringData As String
...
StringData = WorksheetFunction.TextJoin(" ", True, ByteData)

Der UBound von ByteData ist knapp 400.000

Gruß Joschi
Anzeige
AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 14:12:26
Fennek
Hallo,

ohne "Schleife" dürfte es nicht gehen:

ungeprüft: 


for b = 0 to ubound(ByteData)

  out = out & chr(ByteData(b))

next b

msgbox out


mfg
AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 15:06:04
daniel
Hi
mein Code ist korrekt und liefert diesen Fehler nicht!
das habe ich getestet.
Dein Array ist einfach zu groß.
Die Worksheetfunctions können oft nur eine begrenzte Menge an Daten verarbeiten, hier liegt das Limit bei 32767 Elementen.
Aber da du in deiner Anfrage keine Menge genannt hast, konnte ich das nicht berücksichtigen.

Wer mehr Daten verarbeiten muss dann zur Schleife greifen, was aber nicht unbedingt ein Nachteil sein muss, weil Schleifen oft nicht nur größere Datenmengen verarbeiten können, sondern häufig dabei auch noch schneller sind.

Gruß Daniel
Anzeige
AW: Daten im Format "xxx() as Byte" in String umwandeln
12.10.2023 15:23:35
Joschi Witchcraft
Hallo Daniel.

Sorry. Aber ich konnte ja nicht wissen, dass es bei dieser Funktion einen Mengenbegrenzung gibt. Es stimmt: die Anzahl der Zeichen hatte ich erst danach in meinem Thread erwähnt. Und eine Loop mit 400.000? Nicht mein Ding, wenn es anders geht. Und Laufzeit ist dabei kein Thema.

Gruß Joschi
Anzeige

Forumthreads zu verwandten Themen

Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Blank in String einfügen, wenn ...
Günter

Liebe Excelfreunde,
Freitag und habe noch ein Problem:
In einer Exceldatei mit 40.000 Einträgen habe ich
in Spalte Namen stehen:
z.B. FranzMüller BergischGladbach Neufundland
Jetzt fehlen teilweise Blanks, wie in diesem Beispiel.
Müßte eigentlich, wie folgt aussehen:
...
26.09.2008 13:27:00
Thread-ID: 1012613
15 Beiträge
Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Variable korrekt als String definieren
Tobias

Hallo Experten,
Ich möchte diese Abfolge als einen String definieren
"ftp -s:" & shortpath & "\sync.txt " & Worksheets("Einstellungen").[A3], showshell

Dim ftp_command As string ftp_command= ?
(Statt der ? die Abfolge in korrekter Syntax)
Oder geht sowa...
07.03.2009 18:59:26
Thread-ID: 1057738
4 Beiträge
Anzeige
Kommagetrente strings in zelle trennen
Tobias

Hallo Profis,
Ich hab was gebastelt, das mir die werte in B als Ordner erstellt
MkDir ThisWorkbook.path & "\" & Cells(i, 1).Value & "\" & Cells(i, 2).Value
funktioniert auch gut, wenn nur 1 ordnername in spalte B steht.
in cells(i.2) stehen aber manchmal auch me...
16.03.2009 03:16:26
Thread-ID: 1060585
3 Beiträge
Mehrere Funde in string unterschiedlich ersetzen
guitarslinger

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in Text in Zellen, in dem an unterschiedlicher Position bis zu zwei Platzhalter eingefügt sind. Diese sehen so aus: {INSERTANS:77822X8X645}
Nun möchte ich den ersten Fund einer solchen Zeichenkette (Identifikation über die Klammer...
22.04.2009 14:20:08
Thread-ID: 1070362
4 Beiträge
Zeichenfolge im Dateinamen ersetzen
Dirk

Hallo Forumsmitglieder,
ich hoffe jemand hat (mal wieder) Lust mir zu helfen!!!!
Der unten teilweise aufgeführte Code benennt Bilddateien.
Der Code funzt soweit auch super. Leider gibt es Dateien, die haben im Namen Text, der noch mit "" ersetzt werden müsste.
Als Beispiel:
...
11.05.2009 15:54:39
Thread-ID: 1074392
6 Beiträge
Nur 50 Zeichen eines Strings auslesen
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 ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Reststring nach bestimmtem String finden
Daniel

Hallo,
wie finde ich den restlichen String nach einem bestimmten String?
z.B. abcdef/xy1
und ich will den rest nach "/xy" finden, in dem fall also 1
oder
abcdef/xy1511
soll 1511 zurück geben.
Wie macht man das via VBA?
Danke,
Daniel
23.07.2009 16:22:42
Thread-ID: 1090868
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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