Hallo, ich glaube das ist einfache VB-Schule .. aber ich komm leider nicht selbst drauf : fld_hex = "00000100000000E3000000000000F50000000100000000E3000000000000F500" diese soll nun in blk_hex() verteilt werden und zwar jeweils 8 Zeichen In VBA hatte ich das so: Dim fld_hex As String, blk_hex() As String 'fld_hex in 8 x 8er Blöcke aufteilen blk_hex(7) = Mid$(fld_hex, 1, 8) blk_hex(6) = Mid$(fld_hex, 9, 8) blk_hex(5) = Mid$(fld_hex, 17, 8) blk_hex(4) = Mid$(fld_hex, 25, 8) blk_hex(3) = Mid$(fld_hex, 33, 8) blk_hex(2) = Mid$(fld_hex, 41, 8) blk_hex(1) = Mid$(fld_hex, 49, 8) blk_hex(0) = Mid$(fld_hex, 57, 8) In VB meckert er : "Referenziertes "blk_hex" hat den Wert "Nothing"." Kann mir jemand auf die Sprünge helfen ? Vielen Dank im vorraus.
Gast
#1543546
Hallo, du musst natürlich blk_hex() auch als Array definieren. Dim blk_hex(0 To 7) As String Gruß Micha
So einfach ist es ja nicht ... Dim blk_hex() ist ja schon "unendlich" dimensioniert ... am Angfang hatte ich natürlich DIM blk_hex(7) .. warum ich nun 0 to 7 eintragen soll ist mir unklar, aber auch das funktioniert nicht ... gleicher Fehler wie zuvor.
sry ... jetzt habe ich den Fehler gefunden ... hatte zwischendrin ein Erase blk_hex.. kein Wunder kopfklatsch Fall erledigt.
Antwort schreiben
Bitte melde dich an, um einen Beitrag zu schreiben.