Wert aus Input übernehmen
14.02.2005 14:58:04
Matthias
Folgendes Problem: Habe ein Arbeitsblatt mit einer Spalte D, die verschiedene Umsatzwerte enthält. Die Werte beginnen bei D5 bis D44. Nicht alle Zellen haben einen Wert. Diese Zellen sind also leer. Ich möchte nun alle leeren Zellen nach-einander, mit Hilfe einer InputBox und einen Umsatz-Zahl füllen. (Wert aus der Inputbox soll in die leere Zelle übernommen werden) Und wenn die letzte leere Zelle einen Wert hat soll die Aktion beendet sein.
Ist so etwas machbar?
Gruß
Matthias
Hier mein Versuch!
Sub LeereZelle()
Dim Bereich As Range
Dim Zelle As Range
Dim n As Integer
Set Bereich = Range("D5:D44")
For Each Zelle In Bereich
If Zelle.Value = "" Then InputBox "Umsatz eingeben:" _
& Zelle.Address: Zelle.Select
Next Zelle
End Sub