kann mir jemand mit folgenden Skript weiterhelfen:
zz1 = Cells(Rows.Count, 1).End(xlUp).Row
For zz2 = zz1 To 1 Step -1
If Cells(zz2, 9) = "PRÜFEN" Then
Titel1 = "Bitte überprüfen Sie das Länderkennzeichen!"
Meldung1 = "Das jetzige Länderkennzeichen lautet:" & Cells(zz2, 8)
Voreinstellung1 = ""
Wert1 = InputBox(Meldung1, Titel1, Voreinstellung1)
ActiveCell = Wert1
End If
Next zz2
Ich möchte gerne die Meldung um den Eintrag der Zelle zz2,8 erweitern. Weiter soll der eingegebene Wert der InputBox in die aktuelle Zelle (zz2,9) übernommen werden.
Habe beides in Fett formatiert.
Kann mir jemand weiterhelfen. Wäre für jede Hilfe dankbar.
Gruß Jürgen