Collapse column

Autor Thema: Office 2016 VBA Hilfe bei109017  (Gelesen 604 mal)

Offline stg-alt

  • Newbie
  • *
  • Beiträge: 2
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2016
Office 2016 VBA Hilfe bei109017
« am: Dezember 12, 2017, 16:48:01 Nachmittag »
Geschätzte Helfer,
aus Excel-Inside den folgenden Code entnommen.

Public Sub zufallszahl()
Dim zahl(10000) As Integer
Dim zahlneu As Integer
anzahl = InputBox("Wieviele Zufallszahlen sollen ermittelt werden?")
'Zufallszahl 1 bis 28 ermitteln
For i = 1 To anzahl
zahl(i) = Int((anzahl * Rnd) + 1)
zahlneu = zahl(i)
'Auf doppelte Zahlen prüfen und neue Zahl berechnen
For n = 1 To i - 1
If zahl(n) = zahlneu Then
zahl(i) = Int((anzahl * Rnd) + 1)
i = i - 1
End If
Next n
'Zahlen in Spalte B schreiben
Sheets(1).Cells(i, 2).Value = zahl(i)
Next i
End Sub

Nun möchte ich erreichen das die Zahlen z.B. erst ab zelle3 oder 41 oder noch besser variabel eingetragen werden. Ich gebe es auf, denn ich habe es nicht hinbekommen. Ist jemand so nett und hilft mir? Den Code finde ich toll.
Ich bedanke mich für die Unterstützung
Dietmar

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline lupo1

  • Sr. Member
  • ****
  • Beiträge: 250
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2010
Antw:Office 2016 VBA Hilfe bei109017
« Antwort #1 am: Dezember 12, 2017, 18:08:20 Nachmittag »
Public Sub zufallszahl()
Dim zahl(10000) As Integer
Dim zahlneu As Integer
anzahl = InputBox("Wieviele Zufallszahlen sollen ermittelt werden?")
Eintrag = InputBox("Eintrag ab inkl. Zeile Nr.?")
'Zufallszahl 1 bis 28 ermitteln
For i = 1 To anzahl
zahl(i) = Int((anzahl * Rnd) + 1)
zahlneu = zahl(i)
'Auf doppelte Zahlen prüfen und neue Zahl berechnen
For n = 1 To i - 1
If zahl(n) = zahlneu Then
zahl(i) = Int((anzahl * Rnd) + 1)
i = i - 1
End If
Next n
'Zahlen in Spalte B schreiben
Sheets(1).Cells(i - 1 + Eintrag, 2).Value = zahl(i)
Next i
End Sub
MfG Lupo1 (und natürlich gern auch Hallo!)

Offline stg-alt

  • Newbie
  • *
  • Beiträge: 2
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2016
Antw:Office 2016 VBA Hilfe bei109017
« Antwort #2 am: Dezember 12, 2017, 18:37:04 Nachmittag »
Hallo Lupo1,
es klappt, hab vielen Dank. Wenn ich es sehe ist es ganz klar. Ich habe an den Schleifen rumgefrimelt.
Ein frohes Weihnachtsfest wünsche ich noch.
Ich bedanke mich für die Unterstützung
Dietmar

Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.