seit mehreren Stunden suche ich eine Lösung für mein Problem in Excel.
Ich weiss, danach haben bestimmt schon viele gefragt und ich habe hier auch schon super Ansätze gefunden,
aber an dieser Stelle fehlt mir mal wieder das Wissen um die Lösung selber zu finden.
Ich habe ein Tabellenblatt in dem in der spalte A Artikelnummern eingegeben werden.
Eine 1 Für Käse und eine 2 für Joghurtbecher ( als Beispiel ).
Wenn ich in A1 nun eine 1 eingebe, möchte ich, dass ein Fenster aufgeht und fragt: Wieviel Kilo?
Der eingegebene Wert soll dann in die rechts folgende spalte eingetragen werden ( Also in B1 )
Ich habe das ganze über eine Wenn Bedingung versucht zu lösen. Und bis zum Abfragefenster klappt alles Ganz Prima,
aber dann wird der Wert nicht eingetragen. ( Schade ).
Wenn ich das Makro "gewichteingeben" über extras->makros starte funktiniert es einwandfrei.
Meine Wenn Bedingung steht in der Zelle C1 und Lautet: =Wenn(A1=1;gewicht();1)
Die Funktion gewicht() habe ich in ein Modul eingefügt und das Makro Gewichteingeben steht auch in diesem Modul.
Function gewicht()
Call gewichteingeben
End Function
Sub gewichteingeben()
Dim eingabe As Double
eingabe = InputBox("Bitte Gewicht in kg eingeben")
ActiveCell.Offset(0, 1).Value = eingabe
ActiveCell.Offset(1, 0).Select
End Sub
Kann mich jemand verstehen und vielleicht helfen?
Ich würde mich echt freuen
Vielen Dank im Voraus.
Florian