Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bits einer Zahl ermitteln, DezInBin in VBA

Bits einer Zahl ermitteln, DezInBin in VBA
29.08.2006 16:43:28
Reinhard
Hallo Wissende,
wie kann ich die Bitanzahl einer Dezimalzahl (1 - 512) am schnellsten ermitteln?
Brauche ich dazu die Binärzahl der Dezimalzahl und muss ich zur Umwandlung von Dezimal in Binär selbst eine Funktion schreiben oder wie heißt die in VBA, finde da nichts.
Und MsgBox Application.WorksheetFunction.dezinbin(10) geht ja nicht.
Danke ^ Gruß
Reinhard

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
=GANZZAHL(LOG(A1;2))+1 oT
29.08.2006 16:49:30
ingoG
.
VBA-Lösung
29.08.2006 17:13:07
ingoG
Hallo Reinhard,
in VBA kannst Du das so umsetzen...
Gruß Ingo
PS eine Rückmeldung wäre nett...

Sub aaa()
MsgBox Int(Application.WorksheetFunction.Log(512, 2)) + 1
End Sub

AW: VBA-Lösung
29.08.2006 17:32:16
Reinhard
Hi Ingo,
ich experimentiere herum was am schnellsten ist.
Jetzt kam mir gerade der Gedanke, einmalig eine Tabelle für die Zahlen 1 bis 512 zu erstellen und nebendran die Anzahl der Bits zu schreiben. Dann kann ich da schnell mit Vlookup zugreifen.
Gruß
Reinhard
AW: VBA-Lösung
29.08.2006 17:45:06
ingoG
Hallo Reinhard,
vlookup() ist nicht schnell
dann bau dir lieber ein array und besetze die werte entsprechend
Gruß Ingo
PS eine Rückmeldung wäre nett...
Option Explicit

Sub aaa()
Dim binLaenge(1 To 512) As Integer, ii As Integer
For ii = 1 To 512
binLaenge(ii) = Int(Application.WorksheetFunction.Log(ii, 2)) + 1
Next ii
MsgBox binLaenge(512)
End Sub

Anzeige
AW: Bits einer Zahl ermitteln, DezInBin in VBA
29.08.2006 16:49:49
c0bRa
hio...
brauchst du nur die Bitanzahl der Zahl?
wenn ja:
=AUFRUNDEN(LOG(A1+1;2);0)
Um die Funktionen DEZINBIN etc. zu nutzen, musst du das Analyse Add-In unter Extras => Add-Ins aktivieren.
Rückmeldung nicht vergessen...
c0bRa
I hacked 127.0.0.1
AW: Bits einer Zahl ermitteln, DezInBin in VBA
29.08.2006 17:20:22
Reinhard
Danke euch beiden,
aber ich suche VBA-Lösungen wo ich aus Performancegründen auf eine Schleife in der Funktion verzichten kann. Also was Schnelles.
Aber okay, werde mal eure Lösungen prüfen ob sie mit Application.Worksheetfunction schneller als meine Funktion sind.
Inzwischen habe ich mir diese Funktion erstellt:
Function EinBit(ByVal Zahl As Integer) As Boolean
Dim n As Byte
For n = 0 To 8
If Zahl = 2 ^ n Then
EinBit = True
Exit For
End If
Next n
End Function

Gruß
Reinhard
Anzeige
AW: Bits einer Zahl ermitteln, DezInBin in VBA
29.08.2006 17:35:49
EtoPHG
Hallo Reinhard,
Wieso Worksheet function ?
VBA so:
NrOfBits = Int(Log(WholeNumber) / Log(2) + 1)
Gruss Hansueli
AW: Bits einer Zahl ermitteln, DezInBin in VBA
29.08.2006 18:44:49
Reinhard
Hi Hansueli,

Sub tt()
Dim NrOfBits
NrOfBits = Int(Log(64) / Log(2) + 1)
MsgBox NrOfBits
End Sub

klappt nicht, kommt 7 heraus, aber lass ma, ich nehm die Arraylösung von Ingo, scheinbar das Allerschnellste was geht.
Danke an Alle
Gruß
Reinhard
AW: Bits einer Zahl ermitteln, DezInBin in VBA
29.08.2006 19:06:28
EtoPHG
Hallo Reinhard,
Ich glaub^s nicht, aber Du hast recht.
Probier mal:

Sub tt()
Dim NrOfBits As Double
NrOfBits = Int(Log(64#) / Log(2#) + 1#)
MsgBox NrOfBits
MsgBox Int(Log(64#) / Log(2#) + 1#)
End Sub

Was zum Teufel soll das ?
Anzeige
die 7 bleibt unerreicht :-)
29.08.2006 19:19:43
Reinhard
Tja nu, k.A., irgendwas mit Typumwandlungen...
Sub ttt()
Dim NrOfBits As Double
NrOfBits = Int(Log(64#) / Log(2#) + 1#)   '                Anzeige:
MsgBox NrOfBits                           '                    7
MsgBox Int(Log(64#) / Log(2#) + 1#)       '                    6
MsgBox CDbl(Int(Log(64#) / Log(2#) + 1#)) '                    6
MsgBox Int(Log(64#) / CDbl(Log(2#) + 1#)) '                    2
MsgBox Int(Log(64#) / CDbl(Log(2#)) + 1#) '                    6
MsgBox Int(CDbl(Log(64#)) / CDbl(Log(2#)) + 1#) '              6
MsgBox CDbl(Int(CDbl(Log(64#))) / CDbl(Log(2#)) + 1#) '        6,77...
MsgBox CDbl(Int(CDbl(Log(64#))) / CDbl(Log(2#)) + CDbl(1#)) '  6,77...
MsgBox Int(CDbl(Log(64#)) / CDbl(Log(2#)) + CDbl(1#)) '        6
End Sub

Gruß
Reinhard
Anzeige
AW: doch jetzt ist's plötzlich 6
29.08.2006 19:58:11
EtoPHG
Hallo Reinhard,
Ich hab schon mal irgendwo einen Thread bezgl. der Genauigkeit von Excel beantwortet. Eigentlicht hätte ich es wissen müssen.
Antwort Excel rechnet mit 15 signifikanten Stellen.
Also die Formel
NrOfBits = Int(Log(WholeNumber) / Log(2#) + 0.99999999999999)
haut hin. Mach aber ja KEINE 9 mehr als hier angegeben ist ;-)
Gruss Hansueli
FALSCH -RICHTIG-FALSCH-RICHTIG
31.08.2006 09:19:01
EtoPHG
Hallo Reinhard,
Nochmals zu diesem Thema:
Wieviel Bits belegt die Zahl 64 ? 7 SIEBEN !!! und nicht 6 !!!!
Hier ist nun die ultimative VBA Formel:
getNrOfBits = Int(Log(Abs(IIf(thisNumber = 0, 1, thisNumber))) / Log(2) + 1)
Gruss Hansueli
Anzeige
mea culpa :-(
31.08.2006 09:57:39
Reinhard
Hallo Hansueli,
es tut mir leid für Alle die sich für mich Gedanken machten. Leider fällt mir erst jetzt auf dass die Frage wohl falsch gestellt war.
Mit ...wie kann ich die Bitanzahl einer Dezimalzahl (1 - 512) am schnellsten ermitteln?...
wollte ich ermitteln wieviele Bits "gesetzt" sind, nicht die Bitbreite. Da ich inzwischen eine Arraylösung
(ein in einer Tabelle aufgelistetes Array(512) hat in den Indexen 1,2,4,8,16,... den Wert 1/True bzw. die anderen Indices den Wert 0/False oder die Anzahl gesetzter Bits)
benutze kann ich sehr schnell feststellen ob die Zahl nur ein Bit besitzt. Von daher hatte ich die Formellösungen nicht weiterverfolgt um herauszufinden wie man auf "7" bei der DezZahl 64 kommt.
Deine Formel schaue ich mir trotzdem gerne an.
Gruß
Reinhard
Anzeige

312 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge

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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4