Hallo habe folgendes Problem,zunächst will ich sagen das ich gerade erst angefangen habe vba zu prorammieren.
zu meinem problem:
anhand einer inputbox will ich einen wert eingeben, dieser wert soll in einer von mir selektierten zelle übertragen werden und die nächsten werte sollen in die folgenden zeilen übertragen werden. mein problem ist es das wenn ich die werte in die inputbox eingebe nicht in die nächste zeile springt, habs auch schon mit offset(1,0) versucht aber es klappt nicht. ich hoffe ihr könnt mir helfen.
hier meine anfänge
Sub auftrag()
Dim f As Variant
Dim fing As Variant
For fing = 1 To 10
f = InputBox("auftrag" & f)
Sheets("tabelle1").Activate
Range("a1") = f
fing = f
With ActiveSheet
.Cells(65536, 1).End(xlUp).Offset(1, 0) = fing
If f = "exit" Then Exit Sub
End With
Next
End Sub
|