Hallo,
bin ein Neuling in VB und hab scho das erste Problem
Ich würde gern bei
Dim lngzeile(1 to 100) statt den 100 ne Variable eintragen und zwar intInputBox
Jedoch meckert er und erwartet ne Konstante****?
bin ein Neuling in VB und hab scho das erste Problem
Ich würde gern bei
Dim lngzeile(1 to 100) statt den 100 ne Variable eintragen und zwar intInputBox
Jedoch meckert er und erwartet ne Konstante****?
Code:
Sub Stichprobe()
'Dim intInputBox As Integer
intInputBox = InputBox("Bitte geben Sie die gewünschte Größe der Stichbrobe an")
Range("M1").Select
ActiveCell = intInputBox
Dim intMaxZeile As Integer
' intMaxZeile = intInputBox
Dim lngAnzahlZeilen As Long 'Maximale Anzahl der Zeilen, letzte Zeilennr.
Dim lngZeile(1 To 100) As Long 'Zeilennr. der zu kopierenden Zeilen
Dim intZeile As Integer 'Aktuelle Zeilennr.
Dim intTemp As Integer 'Temp. Zeilennr.
Dim blnDoppelt As Boolean
Dim rngZeilen As Range
lngAnzahlZeilen = UsedRange.Rows.Count
.
.
.