Thema Datum  Von Nutzer Rating
Antwort
06.05.2008 10:24:10 Falko
NotSolved
06.05.2008 17:27:49 jh
NotSolved
Rot Aw:Aw:Zufall in VBA
 08.05.2008 09:34:22 Falko
NotSolved
08.05.2008 16:02:25 jh
NotSolved
09.05.2008 09:16:13 Falko
NotSolved
07.05.2008 15:06:41 Holger
NotSolved

Ansicht des Beitrags:
Von:
Falko		 Datum:
08.05.2008 09:34:22		 Views:
962		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Zufall in VBA
Hallo... Es klappt. Ich zeig euch mal das was ich geschrieben hab.



Option Explicit

Private Sub CommandButton1_Click()

Dim Zufallszahl As Integer

Randomize Timer

If Cells(18, 1) = 17 Then
Cells(1, 1) = 0
Range("a1:a18").FillDown
End If

Do
Zufallszahl = Int((17 * Rnd) + 1)
Loop Until Cells(Zufallszahl, 1) = 0
Cells(Zufallszahl, 1) = 1
Cells(18, 1) = Cells(18, 1) + 1

MsgBox Cells(Zufallszahl + 3, 4) & " " & _
Cells(Zufallszahl + 3, 5)

'Leere Spalte von Kst suchen
Cells(65000, 4).End(xlUp).Offset(1, 0).Select

'Eintragen der Kostenstelle in die Liste
ActiveCell.Value = Cells(Zufallszahl + 3, 4)


'Leere Spalte von Bezeichnung suchen
Cells(65000, 5).End(xlUp).Offset(1, 0).Select

'Eintragen der Bezeichnung in die Liste
ActiveCell.Value = Cells(Zufallszahl + 3, 5)

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.05.2008 10:24:10 Falko
NotSolved
06.05.2008 17:27:49 jh
NotSolved
Rot Aw:Aw:Zufall in VBA
 08.05.2008 09:34:22 Falko
NotSolved
08.05.2008 16:02:25 jh
NotSolved
09.05.2008 09:16:13 Falko
NotSolved
07.05.2008 15:06:41 Holger
NotSolved