VBA variable Suchen Msg-Box
05.02.2006 18:56:33
Uwe
ich komme einfach nicht weiter.
ich habe folgendes Makro
Set r = Range("AC9:AC404")
' Suchen und Eingabe neuer Name
For n = 10 To r.Rows.Count
If r.Cells(n + 1, 29) = 0 Then
Cells(n + 1, 5) = InputBox("neuen Name eingeben")
GoTo Ende
End If
Next n
Die Spalte AC bzw. 29 besteht ab AC9 bis AC404 aus 0 und 1. Das Makro soll mir von oben nach unten suchend die erste Null suchen. In der entsprechenden Zeile soll durch die Input-Box in Spalte E bzw. 5 ein neuer Name ergänzt werden. Mit Eingabe des Namens wird aus der 0 eine 1.
Mein Problem:
Ich werde zwar aufgefordert einen Namen einzugeben, jedoch wird der Name nicht an der richtigen Stelle eingesetzt. Der Name erscheint in Zeile 2, obwohl ich den Bereich von Zeile 9 bis 404 eingeschränkt habe. Möchte ich einen weiteren Namen hinzufügen, wird nicht in der nächsten Zeile dieser hinzugefügt, sondern der erste Name wird überschrieben.
Ich hoffe, mir kann jemand helfen.
Gruß
Uwe