Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1296to1300
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
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus x zahlen y% 1 und100%-y% 0 generieren

Aus x zahlen y% 1 und100%-y% 0 generieren
04.02.2013 17:52:03
Nimzo
Hallo zusammen
ich hoffe ihr könnt mir helfen.
Ich muss die Zahl 10 (oder auch jede andere Zahl) prozentual z.b. 20 % (kann auch jede andere Prozentzahl sein) zwischen 1 und 0 aufteilen. In dem Beispiel also 2 mal die 1 und 8 mal die 0. Nun muss das ganze noch zufällig in der Reihenfolge sein, also nicht 1, 1 und dann 8 mal die 0, sondern "kreuz und quer".
Das ganze Spiel muss ich für die Zahl 10 für 3 verschiedene %-Sätze machen.
Hier ein Beispiel wie das Ergebnis aussehen könnte:
https://www.herber.de/bbs/user/83753.xls
Könnt ihr mir da mit einem Makro weiter helfen?
Viele Grüsse

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus x zahlen y% 1 und100%-y% 0 generieren
05.02.2013 02:27:11
Mustafa
Hallo Nimzo,
folgenden Code in ein Modul einfügen:
Sub Prozentual1()
Dim intX As Integer, IntY As Integer, intProzent As Integer
Dim StrSpalte As String, IntZeile As Integer
Dim RngRngZelle As Range
On Error GoTo Nichts
StrSpalte = InputBox("Bitte Spaltenbuchstabe der Ausgabespalte eingeben", "SPALTENWAHL")
IntZeile = InputBox("Bitte Startzeile der Ausgabezeilen angeben", "ZEILENWAHL")
intProzent = InputBox("Bitte einen Prozentwert eingeben", "PROZENTANGABE")
Range(StrSpalte & IntZeile, StrSpalte & IntZeile + 99) = 0
For intX = 1 To intProzent
IntY = Int(Rnd() * 101)
If IntY  IntZeile + 99 Then
intX = intX - 1
ElseIf Range(StrSpalte & IntY) = 1 Then
intX = intX - 1
Else
Range(StrSpalte & IntY) = 1
End If
Next
Nichts:
MsgBox ("Sie haben eine ungültige Eingabe gemacht")
End Sub
Rückmeldung obs hilft wäre nett.
Gruß aus der Domstadt Köln.

Anzeige
AW: Aus x zahlen y% 1 und100%-y% 0 generieren
05.02.2013 08:38:53
Nimzo
Hallo Mustafa
super, das ist schon eine grosse Hilfe.
Was ich jetzt noch brauche, bekomme ich - denke ich - alleine hin.
Vielen Dank!
Gruss
Nimzo

AW: Aus x zahlen y% 1 und100%-y% 0 generieren
05.02.2013 10:34:06
Nimzo
Hallo nochmals
prinzipell klappt das schon sehr gut und ist fast das was ich brauche.
Ich habe jetzt das so geändert, dass der %Satz aus einer bestimmten Zelle genommen wird.
Wie mache ich da jetzt aber eine schleife daraus, dass er erst 100 Durchläufe für den Prozentzatz in Zelel A1 macht, dann 100 für B1 , 100 für c1 usw. bis ich 10 Spalten habe...
Könnt ihr helfen?
gruss
Nimzo

Anzeige
AW: Aus x zahlen y% 1 und100%-y% 0 generieren
06.02.2013 00:08:22
Mustafa
Hallo Nimzo,
dann so :
Sub Prozentual2()
Dim IntX As Integer, IntY As Integer, IntProzent As Integer
Dim IntZeile As Integer, IntSpalte As Integer
Randomize
IntZeile = 3                        'Augabe ab Zeile 3
For IntSpalte = 1 To 10             'Abfrage der Spalten A - J
IntProzent = Cells(1, IntSpalte)    'Übernahme der Prozentwerte aus Zeile 1 der Spalten A - J
Range(Cells(IntZeile, IntSpalte), Cells(IntZeile + 99, IntSpalte)) = 0
For IntX = 1 To IntProzent
IntY = Int((100 + IntZeile) * Rnd() + IntZeile)
If IntY  IntZeile + 99 Then
IntX = IntX - 1
ElseIf Cells(IntY, IntSpalte) = 1 Then
IntX = IntX - 1
Else
Cells(IntY, IntSpalte) = 1
End If
Next
Next
End Sub
Rückmeldung obs hilft wäre nett.
Gruß aus der Domstadt Köln.

Anzeige
AW: Aus x zahlen y% 1 und100%-y% 0 generieren
06.02.2013 09:59:05
Nimzo
Hallo Mustafa
das ist perfekt.
Vielen vielen Dank!

Danke für die Rückmeldung orT
06.02.2013 23:14:07
Mustafa
Gruß aus der Domstadt Köln.

309 Forumthreads zu ähnlichen Themen

Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Tabelle sortiert nicht im Netzwerk ?
A.Franz

Hallo...,
ich hoffe wirklich bei meinem nachfolgendem Problem kann mir jemand helfen,da ich mir das ganze nicht erklären kann.Ich habe eine ListBox mit 5-Spalten die über Row-Source A1:E gefüllt wird.Weiterhin habe ich eine Textbox über die ich einen Suchbegriff für die Auftragsnummer einge...
12.12.2008 11:25:00
Thread-ID: 1032340
2 Beiträge
Autofilter über Makro funktioniert nicht mehr
Ramon

Hallo Excel-Freunde,
ich habe ein ganz komisches Problem:
Wenn ich im Makro die Autofilter-Funktion einbinde, wird beim ausführen des entsprechenden
Makros in dem Modul der Begriff "Autofilter" gelb markiert, mit der Fehlermeldung:
"Fehler beim kompilieren:
Methode oder Date...
23.01.2009 15:01:21
Thread-ID: 1043020
3 Beiträge
Tabellen sortiere und nach wert in zelle
Walli

Guten Tag,
ich habe folgendes Makro für das Sortieren der Tabellenblätter
gefunden, funktioniert auch.:
Sub Tabellenblätter_sortieren() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets....
21.02.2009 11:24:43
Thread-ID: 1052581
7 Beiträge
Auto open funktioniert nicht richtig
Bodo

Guten Tag.
Ich versuche diesen Code hier zum Laufen zu bringen.
Sub Auto_open() ' Auto_öffnen Makro ' Blatt "Grundwerte" ausblenden. Unnötiges ausblenden. Blatt "Hinweise" aktivieren. In Vollbild- _ Modus schalten. Sheets("Grundwerte").Visible = False Sheets("Hinweise").Select ActiveW...
25.02.2009 14:31:35
Thread-ID: 1053941
6 Beiträge
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
5
7
1
7
3
1
2
6
5
2
4
10
16
2
6
2
10
2
4
3
2
14
4
2
1