Thema Datum  Von Nutzer Rating
Antwort
11.01.2013 12:33:29 Thorben
NotSolved
12.01.2013 11:44:43 Gast51178
NotSolved
Rot TextBox.text bei Click auf CommandButton teilweise ändern
 12.01.2013 15:13:09 Gast63721
Solved

Ansicht des Beitrags:
Von:
Gast63721		 Datum:
12.01.2013 15:13:09		 Views:
2835		 Rating:
     
Antwort:
 Nein
Thema:
TextBox.text bei Click auf CommandButton teilweise ändern		 
Private Sub CommandButton1_Click()
  
  Const Untergrenze As Integer = 2
  Const Obergrenze As Integer = 707
  
  Randomize Timer
  
  Dim Stadtteil As Integer
  Dim ganzerSatz As String
  
  Stadtteil = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
  ganzerSatz = "Welche der nachfolgenden Straßen gehören zu dem Stadtteil " & Worksheets("Tabelle2").Cells(Stadtteil, "C").Text
  TextBox1.Text = ganzerSatz
  
End Sub

Zeichenketten werden mit dem Kaufmanns-Und verkettet.

Cells erwartet als erstes die Zeilenangabe, dann die Spaltenangabe.

Zum Berechnen einer Zufallszahl sollte man den Zufallszahlengenerator vorher einmal initialisieren.

Zur besseren Lesbarkeit (und Fehlervermeidung) sollte man die Formel, zur Berechnung einer Zufallszahl in einem bestimmten Bereich, aus der VBA-Hilfe (s.Rnd) verwenden.

 

Gruß

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
11.01.2013 12:33:29 Thorben
NotSolved
12.01.2013 11:44:43 Gast51178
NotSolved
Rot TextBox.text bei Click auf CommandButton teilweise ändern
 12.01.2013 15:13:09 Gast63721
Solved