AW: Prosa in Makrocode übersetzen
ChrisL
Hi Thomas
Na dann übersetze ich mal die Prosa, aber kannst du in der Zwischenzeit mal das Wort Prosa übersetzen... Vielleicht hätte ich mich mehr mit Literatur beschäftigen sollen statt mit Computern, dann wüsst ichs jetzt. Allerdings was nicht ist kann noch werden :-)
Dafür gibts auch brav ein Makro. Je nach dem mit was für Zahlen du arbeitst muss man vielleicht noch die Deklaration anpassen. Auch ist mir nicht ganz klar, ob in B106 die gerundete Zahl soll oder die Andere usw. aber versuchs einfach mal...
Gruss
Chris
Sub einfuellen()
Dim iZeile As Long
Dim Startwert As Long
On Error GoTo errorhandler
If IsNumeric(Range("B105")) = False Then
MsgBox "Der Wert in Zelle B105 muss nummerisch sein.", vbCritical, "Abbruch"
Exit Sub
End If
If IsNumeric(Range("B101")) = False Then
MsgBox "Der Wert in Zelle B101 muss nummerisch sein.", vbCritical, "Abbruch"
Exit Sub
End If
If Range("B105") > Range("B101") Then
MsgBox "Der Wert in Zelle B105 ist bereits grösser als der Wert in B101. Makro wird beendet.", _
vbInformation, "Makro beendet"
Exit Sub
End If
Startwert = WorksheetFunction.RoundUp(Range("B105"), 0)
iZeile = 106
Do Until Startwert > Range("B101")
Cells(iZeile, 2) = Startwert
iZeile = iZeile + 1
Startwert = Startwert + 1
Loop
Exit Sub
errorhandler:
MsgBox "Fehler den es nicht geben sollte.", vbCritical, "Fehler"
End Sub