Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zahlenteil bilden, mittels VBA
04.02.2005 09:56:55
Giuseppe
Hallo Excel bzw. VBA Freunde
Ich habe ein kleines VBA Programm, dass mir eine Zahl ausrechnet:
kleinste Zahl: 00123
Grösste Zahl: 99999
Schrittgrösse: 1
Variable: Position
Nun meine Frage:
Ich möchte gerne nach jedem Schritt, die einzelne Ziffer
der Zahl ermittelt haben
(bsp: 123 ... P1 = 0, P2 = 0, P3 = 1, P4 = 2, P5 = 3)
Im Excel würde ich das mit der Funktion "Teil" machen,
aber wie geht das mit VBA?
Kann mir jemand helfen?
mfG
Giuseppe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mid entspricht teil()
bernd
hallo guiseppe
p1=mid(string,1,1)
p2=mid(string,2,1)
p3=mid(string,3,1)
.
.
bernd
AW: Zahlenteil bilden, mittels VBA
04.02.2005 10:10:00
Andi
Hi Giuseppe,
die VBA-Vartiante der Funktion TEIL heisst mid und funktioniert ansonsten genauso.
Ich hoffe, die Info hilft Dir weiter, ansonsten meld Dich noch mal.
Schönen Gruß,
Andi
AW: Zahlenteil bilden, mittels VBA
04.02.2005 10:36:58
Giuseppe
Hallo Bernd, hallo Andi
Vielen, vielen Dank
Funktioniert ausgezeichnet!

Sub Position()
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Bitte geben Sie eine 4 Stellige Zahl ein"    ' Aufforderung festlegen.
Titel = "InputBox-Demo"    ' Titel festlegen.
Voreinstellung = "1234"    ' Voreinstellung festlegen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
Dim text As String, summe As Long
text = Format(Wert1, "0000")
Dim p1 As Long, p2 As Long, p3 As Long, p4 As Long ' long ändern
p1 = Mid(text, 1, 1)
p2 = Mid(text, 2, 1)
p3 = Mid(text, 3, 1)
p4 = Mid(text, 4, 1)
summe = p1 + p2 + p3 + p4
MsgBox (summe)
End Sub

mfG
Giuseppe
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige