Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Randomize Zahl und Konstanten Buchstaben auslesen

Randomize Zahl und Konstanten Buchstaben auslesen
06.09.2013 10:36:34
Thomas_B
Hallo,
wäre super wenn mir jemand helfen könnte.
https://www.herber.de/bbs/user/87172.xlsx
Ich bräuchte eine Funktion welche mir aus der discount - Spalte den Wert ausliest,
ihn zu einem Buchstaben welcher konstant zu einem der Werte der calculation key table passt umwandelt und mit drei Zufallszahlen vermischt.
Dabei sollte der Buchstabe an 3. Stelle des 4-stelligen Konstrukts stehen.
Beispiel: 5% entspricht A; 12A9.
Dieser Wert sollte dann in der dazugehörigen Zeile in der Spalte calculation key statisch geschrieben werden nach ausführen des Makros.
Wäre wirklich super wenn ihr mir helfen könntet.
Bei Rückfragen einfach kurz schreiben.
Vielen Dank im vorraus.
Mit freundlichen Grüßen
Thomas

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Randomize Zahl und Konstanten Buchstaben auslesen
06.09.2013 10:56:58
Rudi
Hallo,
Sub aaaa()
Dim rngC As Range, x As String, a(2) As Integer, i As Integer
For Each rngC In Range(Cells(3, 9), Cells(Rows.Count, 9).End(xlUp))
For i = 0 To 2
Randomize
a(i) = Int(Rnd * 9) + 1
Next
If IsNumeric(rngC) Then
x = Cells(Application.Match(rngC / 100, Range("O5:O13"), 0) + 4, 14)
Else
x = Cells(Application.Match(rngC, Range("O5:O13"), 0) + 4, 14)
End If
With rngC.Offset(, -2)
.NumberFormat = "@"
.Value = a(0) & a(1) & x & a(2)
End With
Next
End Sub

Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige