VBA Daten in ein Array lesen

SUBMITTED BY: Guest

DATE: July 11, 2013, 6:13 a.m.

FORMAT: Text only

SIZE: 462 Bytes

Raw Download

HITS: 1061

Report

    For i = 0 To UBound(test_array, 1) - 1
        For i_2 = 0 To UBound(test_array, 2) - 1
            Dim wert_temp
            
            wert_temp = InputBox("Gerben Sie den Wert für die Position " & i & "x" & i_2 & " ein")
            If wert_temp = "" Or wert_temp = 0 Then
                wert_temp = 1000
            End If
                     
            test_array(i, i_2) = wert_temp
        Next
    Next