InputBox Wert aus B anzeigen
15.02.2005 09:13:56
Matthias
Gestern hatte ich nach einer Inputbox gefragt, die Werte in leere Zeilen
einer Spalte D übernimmt. Soweit sogut. Heute habe ich noch eine Frage dazu.
Kann ich in der Inputbox den Wert der Spalte B anzeigen, als wo jetzt "Wert eingeben" steht, soll der jeweilige Wert aus Spalte B der gleichen Zeile stehen.
(Also wenn ich auf D7 bin, soll der wert von B7 auf den grauen Hintengrund der Inputbox angezeigt werden.)
Sub LeereZelle()
Dim Zelle As Range
Set Bereich = Range("D5:D44")
For Each Zelle In Bereich
If Zelle.Value = "" Then
Zelle.Value = Application.InputBox("Wert eingeben")
If Zelle.Value = False Then
Zelle.Clear
End If
End If
Next Zelle
End Sub
Danke im voraus Matthias