Visual Basic: Problem mit Const ****

[joschi]

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****?

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
.
.
.

 

[tombe]

Schau dir mal an was man mit ReDim machen kann.

Dim lngZeile() As Long
ReDim lngZeile(1 To intInputBox) As Long

 

[joschi]

tombe vielen Dank für die schnelle Lösung sowie den Link echt TOP THX