Hallo,
ich habe ein Problem. Ich würde gerne ein Excel-Sheet mit Hilfe von InputBoxen füllen. Leider scheitere ich schon an der ersten Spalte! :(
Hier mal mein Code:
*******************************************
Sub m_nummer()
Dim i As Integer, nummer_temp As String
i = 4
Do
nummer_temp = (InputBox("Matrikelnummer des " & i - 3 & ". Studenten?"))
Range("A" & i).Value = nummer_temp
i = i + 1
Loop Until (nummer_temp = "")
End Sub
*******************************************
Wie gesagt. Der Anwender soll selbstständig die Werte eingeben und der ganze Vorgang soll sich so lange wiederholen, bis er eine "leere Eingabe" macht (also einfach OK ohne Inhalt drückt).
Ich wollte die Methode in einer beliebigen Zelle ausführen (sollte ja machbar sein oder). Dor steht aber immer #WERT! und ich kann auch nur EINE Eingabe machen obwohl ich einen Wert eingegeben habe... :(
Habe Office XP!
Wäre für jede Hilfe dankbar!
Schon mal vielen Dank im Voraus! |