Mittels InputBox verschiedene Zellen füllen
14.05.2024 07:33:28
Katja
nachdem ihr mir bei meinem letzten Problem schon so super helfen konntet habe ich jetzt noch eine Kleinigkeit bei der ich nicht weiter weiß.
Folgendes:
In meiner Spalte "H" gebe ich mit "ja" oder "nein" ein ob es eine Vorlieferung gibt. Wenn ich "ja" eingebe, öffnet sich eine InputBox in welcher ich die Bezeichnung der Vorlieferung eintragen kann. Dieser Wert soll dann in die Zelle rechts daneben eingetragen werden. Bei "nein" passiert einfach nichts.
Beispiel:
Zelle H20 hat den Eintrag "ja" - Bezeichnung aus der InputBox soll in Zelle I20 erscheinen.
Zelle H33 hat den Eintrag "ja" - Bezeichnung aus der InputBox soll in Zelle I33 erscheinen.
etc.
Was ich bisher hinbekommen habe ist das bei der Eingabe "ja" in der Spalte "H" sich die InputBox öffnet. Allerdings habe ich es nur soweit gebracht das der Wert aus der InputBox immer in ein und die Selbe bestimmte Zelle (hier "I19") geschrieben wird. Aber es soll ja wie oben im Beispiel genannt variabel sein.
Hier einmal mein Code bisher:
Private Sub Worksheet_Change(ByVal Target As Range)
'Spalte Vorlieferung
If Target.Column = 8 Then
If Target(1).Value Like "ja" Then
Eingabe = InputBox("Bitte Vorlieferung eingeben")
'MsgBox Eingabe
Range("I19").Value = Eingabe
End If
End Sub
Schon einmal vielen Dank im Voraus für Eure Hilfe :)
Liebe Grüße
Katja
Anzeige