Zahlengenerator

Dim tZahl as Variable, tAnzahl, hR tZahl = Me.tbxZahl.value 'die Zahlen können unterschiedlich sein (also 1-30+ Stellig) 100236562563254120; 100005; 15; tAnzahl = me.tbxAnzahl.value 'hier bestimmt man wieviele Zahlen generiert werden sollen For hR = 0 To tAnzahl MsgBox = tZahl + hR Next hR

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zahlengenerator

08.01.2018 16:14:22

Rudi

AW: Zahlengenerator

10.01.2018 10:54:44

urmila

AW: Zahlengenerator

10.01.2018 16:13:42

Hajo_Zi

AW: Zahlengenerator

10.01.2018 19:45:45

Piet

Dim tZahl As Long, tAnzahl As Long, hR As Long tZahl = Me.tbxZahl.Value 'die Zahlen können unterschiedlich sein (also 1-30+ Stellig) 100236562563254120; 100005; 15; tAnzahl = Me.tbxAnzahl.Value 'hier bestimmt man wieviele Zahlen generiert werden sollen For hR = 0 To tAnzahl - 1 MsgBox tZahl + hR Next hR

Hallo Urmila
durch Hajo habe ich auch wieder was dazu gelernt, er ist nun mal ein Excel Profi.
Tatsache ist, das wir kleinen Ratgeber aber immer wieder nach Tricks suchen, wie man solche Aufgaben trotzdem lösen kann, und nach der Devise verfahren - Computer sind doof, die kann man mit richtigem Wissen einfach austricksen!!
mein Vorschlag:
unterer Code prüft die Laenge (Len) der tZahl. Ist die mehr als 15 Stellen schneidet das Makro die vorderen Stellen einfach als Text String ab, und rechnet ganz normal mit der Restzahl. Bei der Ausgabe in die Zelle wird bei langen Zahlen die Linke Zahl (als String) wieder angehangen!!
Tatsache ist das Excel dann korrekte Zahlen bis 15 Stellen ausgibt, danach aber die Zahl als Text String!
Optisch sieht man das nicht, damit rechnen kann Excel nicht. Probier mal ob du damit zurecht kommst.
mfg Piet
PS Die tZahl Variabel muss auf Variant gesetzt werden, sonst kommt Laufzeitfehler!!

Sub Makro1_Excel_austricksen()
Dim tZahl As Variant, LZahl As String   'LZahl = Left Zahl (15 stellen Links als Text!!)
Dim tAnzahl As Long, hR As Long         'tZahl unbedingt auf Variant setzen
tZahl = "100236562563254120"   'Me.tbxZahl.Value
'die Zahlen können unterschiedlich sein (also 1-30+ Stellig) 100236562563254120; 100005; 15; _
tAnzahl = 10000 'Me.tbxAnzahl.Value
'hier bestimmt man wieviele Zahlen generiert werden sollen
'hier trickxst man Excel aus, 17 Stellen auf String setzen!!
If Len(tZahl) > 15 Then
'tAnzahl + 2 Stellen zum normalen Berechnen
LZahl = Left(tZahl, Len(tZahl) - Len(tAnzahl) - 2)
tZahl = Right(tZahl, Len(tAnzahl) + 2)
End If
For hR = 0 To tAnzahl - 1
Cells(hR + 5, 2) = tZahl & hR
If LZahl  "" Then Cells(hR + 5, 4) = "'" & CStr(LZahl & tZahl & hR)
Next hR
End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread