Ich habe noch nie mit InpuBox gearbeitet!
Wie kommt der Inputboxwert in die ActiveCell?
InputBox ("Neuer Name eintragen")
ActiveCell.FormulaR1C1 = ?
Danke
Serge
ActiveCell.Value= InputBox ("Neuer Name eintragen")
Gruß
Franz
Sub block1()
wert = InputBox("Neuer Name eintragen")
schutzaus
Application.ScreenUpdating = False
Sheets("JANUAR").Select
Application.Goto Reference:="Block1"
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = wert
Sheets("FEBRUAR").Select
Application.Goto Reference:="Block1"
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = wert
Sheets("MÄRZ").Select
Application.Goto Reference:="Block1"
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = wert
Sheets("JANUAR").Select
schutzein
es kommt eine Fehlermeldung: Fehler bei Kompilieren : Variable nicht definiert
Was fehlt da noch?
Serge
Application.ScreenUpdating = True
End Sub