Zufallszahl ersetzen
06.02.2013 22:42:33
Michael
Ende der Liste erreicht ist.
was ich bisher geschafft habe ist dürftig bis schlecht und daher würde ich mich über eure Unterstützung/Hilfe freuen.
Option Explicit
Sub Aufgabe2()
Dim probe As Double 'Deklarierung der Variablen
Dim ausg As Double
Dim test As String
Dim k As Double
Dim n As Double
Dim i As Double
Dim hilf As String
i = 0
k = 1
n = 2
Do 'Es wird i solange hochgezählt bis in der Spalte 1 bzw. A keine _
Zahl mehr steht
test = Worksheets("Tabelle3").Cells(i + 1, 1).Value
i = i + 1
Loop Until test = ""
i = i - 1 'von i wird 1 substrahiert, da vorher aus Funktionsgründen 1 _
addiert wurde
Do
test = Worksheets("Tabelle3").Cells(k, 1)
'Do
'probe = Worksheets("Tabelle3").Cells(n, 1)
'If probe = test Then
'hilf = MsgBox("Die Zahl " & Worksheets("Tabelle3").Cells(k, 1) & _
" kommt doppelt vor, soll sie durch eine Zufallszahl ersetzt werden? _
", vbYesNo)
' If hilf = 1 Then
'Worksheets("Tabelle3").Cells(n, 1) = Int(100 * (Rnd + 1))
' Else
' MsgBox ("halter")
'End If
' End If
'n = n + 1
'Loop Until n = i
k = k + 1
Loop Until k = i + 1 'Wiederholung bis die Reihe bei der letzten Zahl angekommen ist
MsgBox (i & Chr(13) & n & Chr(13) & k & Chr(13) & test)
End Sub