Schleife
16.06.2004 09:34:12
Rene
Hilfe !?!
dies ist der code für eine input box
der code soll solange wiederholt werden wie daten in einer bestimmten spalte sind (die anzahl der daten legt man vorher fest)
es sollte auch möglich sein nicht immer was in die box eintragen zu müssen aber das soll die box nicht komplett schliessen sondern nur zum nächsten feld springen!?!
Sub bezeichnung()
Dim bezeichnung As Variant
Worksheets("Start").Select
distanz = 40
erstezeile = distanz + 1
letzteZeile = [E18]
czeile = [E17]
cspalte = 6
Dspalte = 4
prompt = "Neue Bezeichnung eingeben!"
title = "Eingabe"
bezeichnung = Application.InputBox(prompt, title, default:=" ", Type:=2)
If bezeichnung = False Then Exit Sub
Cells(czeile, cspalte).Value = bezeichnung
End Sub
Vielen dank
gruß rene