Prüfung mit InputBox und Schleife
21.01.2021 13:27:58
Jan
ich bin recht neu dabei und habe ein Problem mit einer Aufgabe. In einer Versandliste soll des Gewicht eingetragen werden, wenn dieses InputBox anzeigt. Dies möchte ich mit einer InputBox lösen. Mein Problem ist aber nun, ich schaffe das für die erste Zelle und bekomme danach die Schleife aber nicht hin, dass er nach AA2 nun AA3 usw prüft.
Bisher habe ich das:
Sub Gewicht_eingeben1()
Dim strName As String
Range("AA2").Select
If ActiveCell = "InputBox" Then
eingabe = InputBox("Bitte Gewicht eingeben")
Range("AA2").Value = eingabe
Else
Exit Sub
End If
End Sub
Vielen Dank schon einmal für eure Hilfe.
Grüße Jan