Thema Datum  Von Nutzer Rating
Antwort
13.05.2014 17:39:44 Florian Bauer
NotSolved
Blau AND und OR Rechner
 13.05.2014 18:16:33 Gast6200
NotSolved
13.05.2014 19:26:56 Florian Bauer
NotSolved
13.05.2014 20:47:16 Gast23385
NotSolved

Ansicht des Beitrags:
Von:
Gast6200		 Datum:
13.05.2014 18:16:33		 Views:
793		 Rating:
     
Antwort:
  Ja
Thema:
AND und OR Rechner

Mal 3 Beispiele:

Option Explicit 'erzwingt Variablendeklaration vor ihrem Gebrauch

Sub Beispiel01()
  
  Dim strZahl1 As String
  Dim strZahl2 As String
  
  strZahl1 = "123456"
  strZahl2 = "7890"
  
  'die jeweils kürzer Zahlenfolge vorne mit Nullen auffüllen
  '(die Nullen werden mit String$() erzeugt)
  If Len(strZahl1) < Len(strZahl2) Then
    strZahl1 = Format$(strZahl1, String$(Len(strZahl2), "0"))
  ElseIf Len(strZahl1) > Len(strZahl2) Then
    strZahl2 = Format$(strZahl2, String$(Len(strZahl1), "0"))
  Else
    'hier ist nix zu tun, da strZahl1 und strZahl2 die gleiche Länge haben
  End If
  
  'Ausgabe im Direktbereich/-fenster von VBA (ggf. einblenden über Menü 'Ansicht')
  Debug.Print "strZahl1: " & strZahl1
  Debug.Print "strZahl2: " & strZahl2
  
End Sub

Sub Beispiel02()
  
  Dim strWert As String
  
  strWert = "1A" 'hex
  Debug.Print strWert & " (hex) -> " & Val("&H" & strWert) & " (dec)"
  
  strWert = "2FE0" 'hex
  Debug.Print strWert & " (hex) -> " & Val("&H" & strWert) & " (dec)"
  
  strWert = "1234" 'decimal
  Debug.Print strWert & " (dec) -> " & Hex$(strWert) & " (hex)"
  
End Sub

Sub Beispiel03()
  
  Dim lngZahl1  As Long
  Dim lngZahl2  As Long
  Dim lngErg    As Long
  
  lngZahl1 = 150  'binär: 0000 0000 1001 0110
  lngZahl2 = 98   'binär: 0000 0000 0110 0010
  
  lngErg = lngZahl1 Or lngZahl2
  'ergibt: 246     binär: 0000 0000 1111 0110
  Debug.Print lngZahl1 & " Or " & lngZahl2 & " -> " & lngErg
  
  lngErg = lngZahl1 And lngZahl2
  'ergibt: 2       binär: 0000 0000 0000 0010
  Debug.Print lngZahl1 & " And " & lngZahl2 & " -> " & lngErg
  
End Sub

 

Gruß

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
13.05.2014 17:39:44 Florian Bauer
NotSolved
Blau AND und OR Rechner
 13.05.2014 18:16:33 Gast6200
NotSolved
13.05.2014 19:26:56 Florian Bauer
NotSolved
13.05.2014 20:47:16 Gast23385
NotSolved