Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Dummy Daten in Tabelle schreiben

Forumthread: VBA Dummy Daten in Tabelle schreiben

VBA Dummy Daten in Tabelle schreiben
29.05.2020 17:57:14
Peer
Hallo VBA-Profis.
Ich möchte gern in einer Tabelle eine Art Dummy-Daten per Makro einfügen, wobei in jeder Spalte unterschiedliche Formate sind.
Hintergrund ist folgender...
In derzeitiger Tabelle sind sensible Daten, die ich lösche, wenn ich mein Projekt bei Fragen hier online stellen möchte.
Dafür habe ich eine Makro, das den Inhalt dieser Tabelle mit ClearContent löscht.
Nun möchte ich aber in selbige Tabelle diese gelöschten Werte auf Knopfdruck mit Dummy-Daten füllen, die ähnliche Werte und gleiche Formate enthalten. Z.B für Geburtstag 12.05.2020 = format(Geb,"DD.MM.YYYY") oder für Mitgl.Nr. 01234567 (8stellig mit führender Null, wenn kürzer) = format(Mitgl.Nr., "00000000"). Diese Daten sollten halt willkürlich eingetragen werden, es sollten aber bei Namen keine Zahlen und bei Zahlen keine Buchstaben darin vorkommen.
Gibt es für sowas eine Sub als eine Art Zufallsgenerator?
LG
Peer
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zufällig überschreiben
29.05.2020 18:34:57
Fennek
Hallo,
der Code aus dem Archiv überschreibt Texte (nicht Zahlen oder Datum) mit zufälligen Zeichen.

Sub F_en()
Dim By() As Byte
With CreateObject("scripting.dictionary")
For Each it In ActiveSheet.UsedRange.Offset(1).SpecialCells(2, 2)
If Not .exists(it.Value) Then
Tx = it.Value
Tx = Left(IIf(Len(Tx)
mfg
Anzeige
AW: zufällig überschreiben
29.05.2020 18:45:09
Peer
Hallo Fennek.
Vielen Dank für deine schnelle Antwort und deiner erstaunlichen Arbeit.
Aber leider erfüllt dies nicht ganz meine Vorstellungen, da ich nachvollziehbare Werte benötige, und auch Datum und Zahlen mit einbeziehen muss.
Bis jetzt ist meine Überlegung, eine "Dummy"-Tabelle zu erstellen und die Werte der "Dummy"-Tabelle in die Original-Tabelle mit einem Makro zu kopieren.
LG
Peer
Anzeige
AW: zufällig überschreiben
29.05.2020 20:15:31
Matthias
Moin!
Ich glaube das beste in deinem Fall ist, wenn du dir eine eigene Liste bastelst. Die muss ja nicht unbedingt 300 Namen beinhalten. Wenn du dir 20 aussuchst, reicht das idR, um den Code zu testen. Der sollte ja eh bei 20 oder 300 gleich laufen. Vorteil bei einer selbst (nicht per Makro) erstellten Liste wäre, dass du die Daten auf alle Fälle so hast, wie du sie brauchst. Beim Code kann ja wieder was schief gehen (Mailadresse anders). Die Liste kannst du ja in einer Mappe zwischenspeichern und vor dem Posten einsetzen. Zudem geht glaube ich, geht die Liste schneller als ein Makro dafür zu programmieren. :-)
VG
PS: Der Hinweis von Hans an dich kam von mir. Nicht das du dich wunderst, warum das nicht hier kam. Ging aus verschiedenen Gründen nur so. War keine böse Absicht.
Anzeige
AW: zufällig überschreiben
29.05.2020 20:35:11
Peer
Hallo Matthias.
Alles gut un du hast (und Hans) recht. Ich denke, ich kann dir vertrauen.
Ich bin gerade dabei eine Liste zu erstellen und dann mit 

Public Sub Dummy()
Dim wb As Workbook
Set wb = ActiveWorkbook
wb.Sheets("Teilnehmer").Range("A2:P30").Value = wb.Sheets("Dummy").Range("A2:P30").Value
End Sub
die andere Tabelle zu kopieren.
LG
Peer
Anzeige
AW: zufällig überschreiben
29.05.2020 20:34:33
fcs
Hallo Peer,
hier ein einfaches Makro, um verschiedene Zellbereiche mit Zufallsdaten zu füllen.
LG
Franz 
Sub Dummdaten()
Dim wks As Worksheet
Dim Zelle As Range
Set wks = ActiveSheet
Application.Calculation = xlCalculationManual
With wks
'Name
For Each Zelle In .Range("A3:A10")
Zelle.Value = "Name" & Format(CLng(Rnd() * 30), "00")
Next
'Vorname
For Each Zelle In .Range("B3:B10")
Zelle.Value = "VorName" & Format(CLng(Rnd() * 10), "00")
Next
'Datumswerte
For Each Zelle In .Range("C3:C10")
Zelle.Value = VBA.DateSerial(2020, 5, 1) + CLng(Rnd() * 30)
Next
'Mitgliedsnummern
For Each Zelle In .Range("E3:E10")
Zelle.Value = 999999 + CLng(Rnd() * 90000000)
Next
'Ganze Zahlen
For Each Zelle In .Range("F3:F10")
Zelle.Value = 0 + CLng(Rnd() * 100)
Next
'Dezimalzahlen - 2 Nachkommastellen
For Each Zelle In .Range("G3:G10")
Zelle.Value = CLng(Rnd() * 1000000) / 100
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Anzeige
AW: zufällig überschreiben
30.05.2020 11:19:30
Peer
Hallo fcs.
Das ist der Wahnsinn, was hier alles für gute Leute sind und was hier mit VBA alles gezaubert wird.
Ein großes Lob an dich und vielen Dank für deine Idee und Hilfe.
Ich werde deine Idee gern "zwischenspeichern" und auch für Zukünftiges verwenden. Auch Fennek's Idee gehört dazu.
Nochmals vielen Dank.
Gruß
Peer
Anzeige
AW: zufällig überschreiben
30.05.2020 12:30:24
Peer
Hallo.
Ich habe doch ein wenig mit deinem Code gespielt.
Ich habe jeder Spalte der Tabelle ein Sub zugeordnet, damit ich die Werte getrennt generieren lassen kann.
Dabei habe ich den Datumswert angepasst, damit die Werte ein bisschen realistisch sind. 

Private Sub btn_Geb_Zufall_Click()
Dim wks As Worksheet
Dim Zelle As Range
Set wks = ActiveSheet
Application.Calculation = xlCalculationManual
With wks
'Datumswerte
For Each Zelle In .Range("H2:H30")
Zelle.Value = VBA.DateSerial(1950, 1, 1) + CLng(Rnd() * 20000)
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Dann dachte ich über die Namen nach und mir kam die Idee, bei der erzeugten Zufallszahl in jeden "Name" die selbe Zufallszahl bei "Vorname" vorzuhängen, damit "Name" und "Vorname" zusammenhängend erkennbar sind.
Dabei habe ich etwas gebastelt, das aber noch nicht ganz so funktioniert, wie geplant. 

Private Sub btn_NameZufall_Click()
Dim wks As Worksheet
Dim Zelle As Range
Dim i As Integer, untWert As Integer, obWert As Integer
Set wks = ActiveSheet
untWert = 1     'Format(1, "00")
obWert = 30     'Format(30, "00")
Application.Calculation = xlCalculationManual
Randomize Timer
i = Int(Format(obWert, "00") - Format(untWert, "00") + 1) * Rnd + untWert
With wks
'        'Randomize Timer
'        i = Int(obWert - untWert + 1) * Rnd + untWert
''        'Name
For Each Zelle In .Range("B33:B60")
Zelle.Value = "Name" & i    'Format(CLng(Rnd() * 30), "00")
Next
For Each Zelle In .Range("C33:C60")
'Zelle.Value = Format(CLng(Rnd() * 30), "00") & "Vorname"
Zelle.Value = i & "Vorname"
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Erst habe ich i in der With-Anweisung probiert und dann außerhalb, aber immer wird nur eine Zahl erzeugt. Dann habe ich auch Randomize Time auskommentiert, und auch hier wurde nur eine Zahl erzeugt.
Jedesmal war die Zahl anders, als funktioniert zumindest der "Zufall".
Auch das Format der Zufallszahl klappt nicht.
Da ich hier noch Anfänger bin, glaube ich, dass meine Gedanken und meine Ausführungen unterschiedlich arbeiten. ;-)
Wie ist es richtig?
Vielen Dank für die Unterstützung.
LG
Peer
Anzeige
AW: zufällig überschreiben
30.05.2020 13:00:15
Peer
Hallo.
Ich habe doch ein wenig mit deinem Code gespielt.
Ich habe jeder Spalte der Tabelle ein Sub zugeordnet, damit ich die Werte getrennt generieren lassen kann.
Dabei habe ich den Datumswert angepasst, damit die Werte ein bisschen realistisch sind. 

Private Sub btn_Geb_Zufall_Click()
Dim wks As Worksheet
Dim Zelle As Range
Set wks = ActiveSheet
Application.Calculation = xlCalculationManual
With wks
'Datumswerte
For Each Zelle In .Range("H2:H30")
Zelle.Value = VBA.DateSerial(1950, 1, 1) + CLng(Rnd() * 20000)
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Dann dachte ich über die Namen nach und mir kam die Idee, bei der erzeugten Zufallszahl in jeden "Name" die selbe Zufallszahl bei "Vorname" vorzuhängen, damit "Name" und "Vorname" zusammenhängend erkennbar sind.
Dabei habe ich etwas gebastelt, das aber noch nicht ganz so funktioniert, wie geplant. 

Private Sub btn_NameZufall_Click()
Dim wks As Worksheet
Dim Zelle As Range
Dim i As Integer, untWert As Integer, obWert As Integer
Set wks = ActiveSheet
untWert = 1     'Format(1, "00")
obWert = 30     'Format(30, "00")
Application.Calculation = xlCalculationManual
Randomize Timer
i = Int(Format(obWert, "00") - Format(untWert, "00") + 1) * Rnd + untWert
With wks
'        'Randomize Timer
'        i = Int(obWert - untWert + 1) * Rnd + untWert
''        'Name
For Each Zelle In .Range("B33:B60")
Zelle.Value = "Name" & i    'Format(CLng(Rnd() * 30), "00")
Next
For Each Zelle In .Range("C33:C60")
'Zelle.Value = Format(CLng(Rnd() * 30), "00") & "Vorname"
Zelle.Value = i & "Vorname"
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Erst habe ich i in der With-Anweisung probiert und dann außerhalb, aber immer wird nur eine Zahl erzeugt. Dann habe ich auch Randomize Time auskommentiert, und auch hier wurde nur eine Zahl erzeugt.
Jedesmal war die Zahl anders, als funktioniert zumindest der "Zufall".
Auch das Format der Zufallszahl klappt nicht.
Da ich hier noch Anfänger bin, glaube ich, dass meine Gedanken und meine Ausführungen unterschiedlich arbeiten. ;-)
Wie ist es richtig?
Vielen Dank für die Unterstützung.
LG
Peer
Anzeige
AW: zufällig überschreiben
30.05.2020 20:45:02
fcs
Hallo Peer,
mit folgenden Anpassungen klappt es.
Identische Namen Vornamen können sich wiederholen!
Webb du keine WIederholungen möchtest, dann z.B. 
i = Zelle.Row - 32
LG
Franz 
Private Sub btn_NameZufall_Click()
Dim wks As Worksheet
Dim Zelle As Range
Dim i As Integer, untWert As Integer, obWert As Integer
Set wks = ActiveSheet
untWert = 1     'Format(1, "00")
obWert = 30     'Format(30, "00")
Application.Calculation = xlCalculationManual
With wks
Randomize Timer
For Each Zelle In .Range("B33:B60")
i = Int((obWert - untWert + 1) * Rnd + untWert)
'           Name
Zelle.Value = "Name" & Format(i, "00")
'           Vorname in rechter Nachbarspalte
Zelle.Offset(0, 1).Value = Format(i, "00") & "Vorname"
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Anzeige
AW: zufällig überschreiben
31.05.2020 11:14:22
Peer
Hallo Franz.
Entschuldige die späte Antwort.
An Offset habe ich gar nicht gedacht. Danke.
Identische Namen Vornamen können sich wiederholen!
Webb du keine WIederholungen möchtest, dann z.B.
i = Zelle.Row - 32

Was meinst du damit?
Statt 

i = Int(obWert - untWert + 1) * Rnd + untWert
lieber 


i = Zelle.Row - 32
.
Kann man dies nicht auch mit Ändern von obWert und dem Range("B33:B60") erreichen? Es sollte halt der obWert nicht kleiner dem Range sein.
Nochmals vielen Dank für deine Hilfe.
Einen schönen Sonntag.
Gruß
Peer
Anzeige
AW: zufällig überschreiben
31.05.2020 19:05:39
fcs
Hallo Peer,
mit 
i = Int((obWert - untWert + 1) * Rnd + untWert)

werden Zufallszahlen im Bereich &gt= unterer Wert und &lt= oberer Wert generiert.
Dabei kann es zu Wiederholungen von Zahlen kommen. Das kannst du fast verhindern, wenn du bei nur ca. 30 Zeilen eine große Differenz zwischen oberem und unteren Wert verwendest z.B 1 und 9999. Dann ist die Wahrscheinlichkeit von Wiederholungen gering.
Wenn du Dummy-Namen ohne Wiederholungen generieren möchtest, dann ist der einfachste Weg die Verwendung der Zeilen-Nummer.
Mit etwas mehr Aufwand im Makro kann man auch eindeutige Zufallszahlen generieren.
LG
Franz 
Private Sub btn_NameZufall_Click()
Dim wks As Worksheet
Dim Zelle As Range
Dim iRnd As Integer, untWert As Integer, obWert As Integer
Dim arrRnd() As Integer, i As Integer
Dim bolEindeutig As Boolean
bolEindeutig = True 'False setzen wenn Wiederholungen zulässig
Set wks = ActiveSheet
Application.Calculation = xlCalculationManual
With wks
Randomize Timer
With .Range("B33:B60")
untWert = 1
obWert = IIf(bolEindeutig, .Cells.Count, 30)
'Zufallszahlen generieren
ReDim arrRnd(1 To .Cells.Count)
Do
iRnd = Int((obWert - untWert + 1) * Rnd + untWert)
For i = 1 To UBound(arrRnd)
If arrRnd(i) = 0 Then
arrRnd(i) = iRnd
Exit For
Else
If bolEindeutig = True And arrRnd(i) = iRnd Then
Exit For
End If
End If
Next
If i = UBound(arrRnd) Then Exit Do
Loop
'Zufallszahlen eintragen
i = 0
For Each Zelle In .Cells
i = i + 1
'Name
Zelle.Value = "Name" & Format(arrRnd(i), "00")
'           Vorname in rechter Nachbarspalte
Zelle.Offset(0, 1).Value = Format(arrRnd(i), "00") & "Vorname"
Next
End With
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Anzeige
AW: zufällig überschreiben
31.05.2020 19:25:20
Peer
Hallo Franz.
Wenig Aufwand? Vielleicht für dich. ;-)
Hier wäre ich erstmal überfordert gewesen. Beim Durchlesen konnte ich einigermaßen folgen.
Ich bin mal so frei und nehme deinen Code einfach per Paste & Copy in mein Projekt.
Vielen Dank nochmals.
LG
Peer
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige