Zeller per Zufall auswählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Ingo…
Dein VBA-Level schützt nicht vor VBA-/VBE-Grundkenntnis-Erwerbung und -Erwartung! ;->
Wer mit VBA arbeiten will, sollte sich frühzeitig mit dem VBEditor und seiner Hilfe befassen! Man kann ja auch kein Buch in einer bestimmten Sprache schreiben, ohne wenigstens nicht allzu komplexe Sätze zustande zu bringen, falls es nicht gerade Belletristik sein soll. Und VBA ist auch eine Sprache, sogar für Menschen (PgmEntwickler), nicht für den PC — der braucht dafür auch noch einen Dolmetscher. ;-)
Im VBE-Kopf gibt's einen DropDown-Button, der Extras heißt. Im DropDown ist dann ein Befehl Verweise zu finden. In der dazugehörigen Liste ist schon einiges standardmäßig angehakt, weiteres steht zur Auswahl. Da müsstest du dann nach dem Eintrag suchen, der im Begleittext so etwas wie AnalyseTools enthält.
In Xl reicht hierfür die Aktivierung des gleichen Tools durch Auswahl, denn das wird bis Xl11 (Xl2003) standardmäßig mitgeliefert. Ab Xl12 (Xl2007) sind die zugehörigen PgmBibliotheken (.dll) direkt in Xl integriert, deren Fktt stehen ab dem also immer zV.
Evaluate ist eine vbMethode/Fkt, mit der man FmlTexte in originaler (also US-)Schreibweise auswerten kann. So ein FmlText kann dann alle Fktt enthalten, die du auch im TabBlatt verwenden kannst. Sie entspricht also der XLM-Fkt (aus Xl4!) AUSWERTEN, die nur in benannten Formeln (also unter NamensDefinition) eingesetzt wdn kann. Allerdings versteht die XLM-Fkt auch deutsche FmlTexte!
Gruß + schöSo, Luc :-?

Hallo Luc
Ja ich verstehe natürlich schon was Du meinst bezüglich dem Erwerb der Grundkenntnisse usw.
Und ich stimme Dir da natürlich auch zu.
Nur ist es bei mir eher so, dass ich ja nicht vorhabe, zu einem Experten von VBA zu werden.
Sondern ich habe eher nur ein kleines Anliegen (das mit der Zufallsauswahl).
Und da ist mir der Kosten-Nutzen-Faktor zu klein, wenn ich mich jetzt tief in VBA einarbeiten muss.
Wie gesagt, dass ist überhaupt nicht böse von mir gemeint!
Und ich kann auch gut verstehen, wenn der Wunsch nach fertigen Lösungen hier als frech empfunden wird.
Ich hatte bei meinem Ursprungs-Posting ja angegeben "Excel gut - VBA bescheiden".
Vielleicht hätte ja besser gepasst "kaum Excel/VBA Kenntnisse".
Ist denn die Lösung vom Matthias jetzt gut oder eher doch nicht?


Option Explicit
Sub Ingo_Siemon()
Randomize
With ActiveSheet.UsedRange.Columns(2)
Do
Cells((Rnd * .Rows.Count) + 1, 2).Select
Loop While Selection.Value = ""
End With
End Sub

Ich bin eben leider nicht in der Lage zu erkennen, was der Code genau macht.
Darum kann leider auch nicht beurteilen, ob der Code mein Anliegen erfüllt oder nicht.
Hoffentlich bist Du jetzt nicht sauer auf mich.
Vielleicht hast Du Lust, mir da dennoch mal einfach und schnell zu helfen?
Gruß
Ingo

Sub ZufallsAuswahl() Dim n As Long, x As Range Randomize Set x = ActiveSheet.UsedRange.Columns(3) Do: n = Rnd * (x.Rows.Count - 1) + 1 Loop While x.Cells(n) = "" x.Cells(n).Select Set x = Nothing End Sub

Sub ZufälligeZelle() Dim Zeile As Long With ActiveSheet.UsedRange With .Columns(.Columns.Count + 1) .FormulaR1C1 = "=IF(RC2="""",0,RAND())" Zeile = WorksheetFunction.Match(WorksheetFunction.Max(.Cells), .Cells, 0) .ClearContents End With .Cells(Zeile, 2).Select End With End Sub

Beliebteste Forumthreads (12 Monate)

39 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

39
Beiträge zum Forumthread

Beiträge zu diesem Forumthread