ich möchte Daten die über eine Inputbox erfasst wurden, in der Zelle rechts neben der momentan aktiven Zelle einfügen.
Mein bisheriger Code funktioniert irgendwie nicht.
If Sheets("Umsatz").Range("1:1").Find("Restbetrag").EntireColumn.Find("").xlUp < 0 Then
If MsgBox("Höchstbetrag überschritten." + Chr(13) + "Sie brauchen eine neue Bestellnummer!" + Chr(13) + Chr(13) + "Möchten Sie eine neue Bestellnummer eingeben?", 4 + 48 + 0 + 4096, "Wichtiger Hinweis!") = vbYes Then
Sheets("Umsatz").Range("1:1").Find("Best.-Nr.").EntireColumn.Find("").End(xlUp).Select
Selection.EntireRow.Delete
NeueBestNr = InputBox("Geben Sie bitte die" + Chr(13) + Chr(13) + "neue Bestell - Nummer ein.", _
"Bestell-Nummer erneuern")
NeuerBetrag = CSng(InputBox("Geben Sie bitte den" + Chr(13) + Chr(13) + "neuen Betrag ein.", _
"Betrag erneuern", "10000"))
Sheets("Umsatz").Range("1:1").Find("Best.-Nr.").EntireColumn.Find("").Activate
ActiveCell.Value = NeueBestNr
ActiveCell.xlToRight.Value = NeuerBetrag
Kann mir jamand helfen?
Gruß
Udo