Vba help

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Vba help
von: Gudrun
Geschrieben am: 05.10.2015 12:03:57

Hallo zusammen,
will gerne über eine Schaltgläche einen Code auslösen.
Immer wenn ich klicke soll er in Spalte L2 bis L300 einige beliebige Zahl von 00 bis 99 auswählen.
klicke ich wieder drauf soll wieder andere Zahl per Zufall kommen.wichtig ist dabei immer zweistellig. Wie 05 nicht 5 .
Würde sowas funktioniert?
Danke Gruß Gudrun

Bild

Betrifft: AW: Vba help
von: Bernd
Geschrieben am: 05.10.2015 12:11:59
Hi,
also von L2 bis L300 wären es 299 Zahlen.
lg bernd

Bild

Betrifft: AW: Vba help
von: Bernd
Geschrieben am: 05.10.2015 12:33:40
Hi,
nunja, Zufallszahl kann man auch mit Formel ermitteln oder via VBA mit diesem Code:

Sub Zufallszahl()
Zufall = Int((0 + 99 * Rnd) + 1)
Range("B2") = Zufall
End Sub
Einfach in ein Modul, Schaltfläche erstellen, Makro zuweisen. Der Code generiert in der Zelle B2 dann eine Zufallszahl zwischen 0+99.
Ansonsten musst Du schon etwas genauere Angaben machen, was Du möchtest.
lg Bernd
mfg Bernd

Bild

Betrifft: Nachfrage/ Antwort
von: Gudrun
Geschrieben am: 05.10.2015 15:38:16
Hallo,
ja ich meinte L2 bis L300 aber nur Zahlen von 00 bis 99.
Es wären 299 Zeilen aber ich habe nur von 00 bis 99
will halt das z.b.L180 momentan Zahl 67 ist klicke ich darf ist es dann 92 , klicke ich wieder dann 07.
Das aber von L2 bis L300
Welchen Code soll ich jetzt nehmen?
Gruß Gudrun

Bild

Betrifft: AW: Nachfrage/ Antwort
von: Bernd
Geschrieben am: 05.10.2015 20:40:33
Hi,
sorry, aber wenn Du jemand findest der Dein Problem auf Deutsch beschreiben kann, dann mache dies.
Ansonsten bin ich raus,
mfg Bernd

Bild

Betrifft: AW: Vba help
von: JoWE
Geschrieben am: 05.10.2015 13:20:25
Hallo Gudrun,
oder meinst Du so:

Private Sub CommandButton21_Click()
    Dim zufall As Integer
    For zufall = 2 To 300
        With Cells(zufall, 12)
            .NumberFormat = "@"
            .Value = Format(Int((0 + 99 * Rnd) + 1), "00")
        End With
    Next
End Sub

Gruß
Jochen

Bild

Betrifft: AW: Vba help
von: Sepp
Geschrieben am: 05.10.2015 20:51:59
Hallo Gudrun,
per Doppelklick!
Diesen Code in die Tabelle und L2:L300 entweder als Text, oder im Format 00 formatieren.

' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("L2:L300")) Is Nothing Then
  Cancel = True
  Target = Format(Int(100 * Rnd), "00")
End If
End Sub

Gruß Sepp


Bild

Betrifft: Könnte das eher so gemeint sein, ...
von: Luc:-?
Geschrieben am: 06.10.2015 00:46:01
…Gudrun?

Private Sub CommandButton1_Click()
    Const six As Long = 12
    Dim zix As Long
    Randomize: zix = Int(Rnd() * 299) + 2
    While Len(Cells(zix, six).Text) <> 2
        zix = Int(Rnd() * 299) + 2
    Wend
    Cells(zix, six).Select
End Sub
Gruß, Luc :-?

Besser informiert mit …

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Diagramm Datenbeschriftung"