Hallo
ich wollte bei der Inputbox Fehler abfangen, es dürfen nur Zahlen inkl. Komma zahlen eingegeben werden
Bei Leerzeichen oder Buchstabe soll die Fehler Meldung kommen:
"Fehler bei der Eingabe"
Dim Abfrage as Long
With Sheets("Tabelle1"),
Abfrage = Inputbox ( "Zahlen eingeben )
If IsNumeric =Then
letzte = .Cells(.Rows.Count, "U").End(xlUp).Row
Summe = Application.WorksheetFunction.Sum(Sheets("Übertrag").Range("U2:U" & letzte))
Faktor = Abfrage / Summe
For i = 2 To letzte
.Cells(i, "U") = Application.WorksheetFunction.Round((.Cells(i, "U") * Faktor), 4)
Next i
End With
'Abfrage Summe
Set rng = ActiveSheet.Columns("U:U") 'Achtung: andere Variante (ganze Spalte!)
dblSumme = Round(Application.WorksheetFunction.Sum(rng), 4) 'vier Nachkommastellen
prüfung = MsgBox("Werte wurde auf: " & dblSumme & " Euro angepasst !!!" & vbNewLine & "*****************************************************" & vbNewLine & " - bei JA, geht es weiter zum Speichern der Datei." & vbNewLine & " - bei NEIN erfolgt der Abbruch", vbDefaultButton2 + vbYesNo, "Preisanpassung")
If prüfung = vbYes Then
'weiter bei Ja
Kann mir jemand helfen?
Danke