Thema Datum  Von Nutzer Rating
Antwort
21.07.2023 07:50:38 Gast75905
Solved
21.07.2023 10:38:15 Mase
NotSolved
21.07.2023 11:21:26 Gast27906
*****
NotSolved
21.07.2023 11:35:34 Mase
NotSolved
21.07.2023 11:42:08 Gast27906
NotSolved
21.07.2023 14:05:16 Gast27905
NotSolved
21.07.2023 12:17:39 Gast75905
NotSolved
21.07.2023 12:46:22 Mase
NotSolved
21.07.2023 12:33:41 Gast75905
NotSolved
21.07.2023 13:14:40 Gast01
NotSolved
21.07.2023 14:37:27 Gast75905
NotSolved
Blau Status-Byte zerlegen
 21.07.2023 18:43:05 xlKing
NotSolved
21.07.2023 20:34:58 Gast75905
NotSolved
21.07.2023 21:28:10 Gast75905
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
21.07.2023 18:43:05		 Views:
131		 Rating:
     
Antwort:
  Ja
Thema:
Status-Byte zerlegen

Hallo

Genau so, wie du es kennst ist es auch in VBA. Die Zahl 9 besteht z.B. aus den Bits 8 und 1. Wenn du also 9 And 8 machst bekommst du die Zahl 8, bei 9 And 1 die Zahl 1, bei 9 And 2 die 0 weil Bit 2 nicht in der 9 enthalten ist. So einfach ist das.

Hier mal ein kleines Beispiel für den Aufbau eines 8 Bit Strings:

Sub Test()
  Dim s As String, x As Long, i As Long
  
  x = 9
  For i = 7 To 0 Step -1
    s = s & IIf((x And 2 ^ i) > 0, 1, 0)
  Next i
  
  MsgBox s
End Sub

Gruß Mr. K. 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.07.2023 07:50:38 Gast75905
Solved
21.07.2023 10:38:15 Mase
NotSolved
21.07.2023 11:21:26 Gast27906
*****
NotSolved
21.07.2023 11:35:34 Mase
NotSolved
21.07.2023 11:42:08 Gast27906
NotSolved
21.07.2023 14:05:16 Gast27905
NotSolved
21.07.2023 12:17:39 Gast75905
NotSolved
21.07.2023 12:46:22 Mase
NotSolved
21.07.2023 12:33:41 Gast75905
NotSolved
21.07.2023 13:14:40 Gast01
NotSolved
21.07.2023 14:37:27 Gast75905
NotSolved
Blau Status-Byte zerlegen
 21.07.2023 18:43:05 xlKing
NotSolved
21.07.2023 20:34:58 Gast75905
NotSolved
21.07.2023 21:28:10 Gast75905
NotSolved