Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallszahl mit Fehlzahl in Zelle der Zeile

Zufallszahl mit Fehlzahl in Zelle der Zeile
15.02.2018 16:22:48
Dieter(Drummer)
Guten Tag VBA Spezialisten,
ich habe eine Übungsdatei für Zahlen üben, für meinen 4,5-jährigen Enkel. Da soll eine fehlende Zahl gesucht und eingegeben werden. Das funktiniert schon prima.
Hier die Musterdatei: https://www.herber.de/bbs/user/119833.xlsm
Ich suche eine VBA Lösung für Zufallszahlen wie folgt:
Per VBA fortlaufende Zufallszahlen (1 - 10) mit einer fehlenden Zahl.
1)In jeder Zeile soll eine Zufallszahl, im Bereich B2:E7, zwischen 1 und 10, ohne doppelte sein.
2)In jeder Zeile soll in einer Zelle, eine Zahl in aufsteigender Zahlenreihenfolge fehlen.
3)In welcher Zelle die Zahl in der Zeile fehlt, soll je Zeile unterschiedlich sein.
Wäre schön wenn mir da jemand helfen kann.
Gruß, Dieter(Drummer)

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Oje, das wird wieder ein langer.....
15.02.2018 17:05:05
robert
AW: Zufallszahl mit Fehlzahl in Zelle der Zeile
15.02.2018 17:14:30
onur
Ich würde zuerst eine Zufallszahl zw 1 und 6 generieren (z.B. r1), dann eine zw. 2 und 4 (r2)
Dann in die zeile der Reihe nach in einer Schleife von 1 bis 5 alle 5 zahlen ab r1 (r1, r1+1 usw) ohne das r2-te element hineinschreiben.
AW: Zufallszahl mit Fehlzahl in Zelle der Zeile
15.02.2018 17:31:47
Dieter(Drummer)
Danke Onur für deine Info und Rückmdeldung.
Sorry, aber das kann ich wohl nicht umsetzen, da bin ich nicht fit genug für.
Schade.
Gruß, Dieter(Drummer)
AW: Danke Onur, da erkenn ich, dass mir ...
15.02.2018 17:56:19
Dieter(Drummer)
... ncoh viel Wissen und Fertigung fehlt.
Herzlichen Dank und es funktioniert sehr gut.
Jetzt muss ich nur noch die fehlende Zahl, die ja in der Spalte F dann als richtige Zahl eingegeben wird, in die Formel der Spalte G einbauen. Falls du da auch noch eine Idee hast, wäre es auch prima.
Gruß, Dieter(Drummer)
Anzeige
in G2 ...
15.02.2018 18:24:04
Matthias
Hallo Dieter
  • in G2

  • =WENN(F2="";"";WENN(ODER(B2=$F2;C2=$F2;D2=$F2;E2=$F2);"L";"J"))

    • und runterkopieren
    Gruß Matthias
    AW: in G2 ...
    15.02.2018 18:41:33
    onur
    Formel spuckt auch "richtig" aus, wenn Reihe bei 3 beginnt und man 2 eingibt oder auch 2100!
    AW: Danke Matthias, prima Lösung ...
    15.02.2018 18:45:03
    Dieter(Drummer)
    ... und Gruß, Dieter(Drummer)
    AW: Danke Matthias, prima Lösung ...
    15.02.2018 18:46:47
    onur
    Formel ist falsch - gib doch mal 77 ein.
    Das hatte ich nicht mit beachtet. Danke onur, owT
    15.02.2018 19:06:54
    Matthias
    AW: Das hatte ich nicht mit beachtet. Danke onur, owT
    15.02.2018 19:09:03
    onur
    Hi Matthias,
    Nix für ungut, wollte nicht klugscheissen.
    gruß
    Onur
    AW: Das hatte ich nicht mit beachtet. Danke onur, owT
    15.02.2018 20:10:52
    Matthias
    Hallo
    Nun wollte ich doch mal Testen und in Deiner Datei passiert ja exakt das gleiche
    wie bei meinem Vorschlag. Aber ich will auch nicht klugsch ...
    Userbild
    Gruß Matthias
    Anzeige
    aber erst löschen ...
    16.02.2018 04:41:33
    Matthias
    Hallo ;-)
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z, s, r1, r2, n, i
z = Target.Row
s = Target.Column
If s > 1 Then Exit Sub
If z  7 Then Exit Sub
Target.Offset(, 5).ClearContents
Target.Offset(, 6).ClearContents
Randomize Timer
r1 = Int(Rnd(Timer) * 6) + 1
r2 = Int(Rnd(Timer) * 3) + 2
Cells(10, 2) = r1
Cells(10, 3) = r2
i = 2
For n = 1 To 5
If n  r2 Then
Cells(z, i) = r1
i = i + 1
End If
r1 = r1 + 1
Next n
Cancel = True
Cells(10, 2).ClearContents
Cells(10, 3).ClearContents
End Sub

    Gruß Matthias
    Anzeige
    AW: Danke Matthias, klappt perfekt ...
    16.02.2018 09:45:29
    Dieter(Drummer)
    ... ebenfalls eine prima Lösung.
    Hrrzlichen Dank und einen erfolgreichen Tag.
    Gruß, Dieter(Drummer)
    ?
    16.02.2018 15:47:50
    robert
    ?
    Naja, der Dank geht ja eher an onur ... owT
    16.02.2018 17:16:29
    Matthias
    AW: Danke Onur, das ist perfekt und ...
    15.02.2018 18:48:18
    Dieter(Drummer)
    ... mein Enkel wird Spaß damit haben. Ich habe etwas dazu gelernt. Allen meinen Dank, die mir dabei sehr geholfen und prima Lösungen gegebeben haben.
    Danke und Gruß, Dieter(Drummer)

    303 Forumthreads zu ähnlichen Themen

    Zellen kopieren wenn Ziel nicht leer
    Tom

    Guten Morgen!
    Ich suche mittels VBA folgende Möglichkeit
    Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
    Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
    Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
    18.08.2008 11:18:24
    Thread-ID: 1002534
    4 Beiträge
    Anzeige
    Mittelwertberechn. mit var. Spaltenlänge
    Falk

    Hallo,
    Zur Situation
    in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
    Mein Problem
    Weil...
    15.09.2008 11:21:00
    Thread-ID: 1009725
    5 Beiträge
    Zelle mit Zahl zerlegen
    Karsten

    Hallo Leute,
    folgendes Problem:
    ich habe in der Zelle N3 eine Versionsnummer stehen (Beispiel) 1.23.45.
    Wobei die Position der Punkte nicht fest ist, also wären auch 12.3.45 oder 12.34.56 möglich.
    Diese Versionsnummer möchte ich nun in VBA auf 3 Variablen verteilen, also X1, X...
    18.09.2008 14:57:00
    Thread-ID: 1010749
    16 Beiträge
    Anzeige
    Zählen wenn Zelle nicht leer
    Tim

    Hallo Forum,
    wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
    Gruß
    Tim
    20.10.2008 11:47:00
    Thread-ID: 1017617
    3 Beiträge
    Zelle mit 50 stelliger Zahl
    Mathias

    Hallo guten morgen,
    kann mir bitte jemand sagen wie ich eine Zelle so formatieren kann das darin eine ca. Zahl mit 50 Stellen angezeigt wird.
    Folgendes Problem,die Zahl sind so auf 350015+28€ d.h. sie wird als Text angezeigt, formatiere ich diese als Zahl bekomme ich zwar etliche Stell...
    21.10.2008 08:33:45
    Thread-ID: 1017842
    3 Beiträge
    immer gleicher zellen wert aus untersch. reg
    Jessi

    hallo zusammen,
    ich bin mir sicher es ist kein hexenwerk:
    ich habe ein problem und zwar habe ich ein übersichtssheet aus verschiendenen werten, die immer aus der gleiche zelle eines anderen register stammen.
    z.b.
    register100, wert spalte a, zeile 1
    register100a, wert spalte...
    06.11.2008 11:12:00
    Thread-ID: 1022199
    10 Beiträge
    Jede Zahlenwertänderung mit Blinken der Zelle
    Steffi

    anzeigen.
    Ist sowas möglich? HAt jemand eine Idee?
    Soll nur einmal blinken, also kein Dauerblinken.
    LG
    Steffi
    07.11.2008 19:28:58
    Thread-ID: 1022795
    5 Beiträge
    wenn Spalte F nicht leer, ganze Zeile markieren
    maxx_1985

    Hallo mit'mander
    Ich hab ein kleines VBA Probelem. Naemlich das fogende:
    Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
    Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
    19.11.2008 18:37:00
    Thread-ID: 1026165
    11 Beiträge
    Anzeige

    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
    7
    4
    15
    20
    2
    2
    9
    4
    10
    1
    4
    2
    1
    1
    3
    8
    6
    9
    7
    7
    4
    10
    2
    5