Einmaleins

[r26t01]

Soweit hab ich den Code schon fertig, allerdings soll er nun prüfen, wenn ich die Zahlen eingebe, dass es auch Zahlen sind bzw. mir eine Fehlermeldung ausgeben, wenn sie es nicht sind (also Buchstaben)

Sub Makro1()


Start = Range("B3").Value

Ende = Range("B4").Value


startRow = 7



Rows(startRow & ":65536").Delete



If (Ende - Start) > 255 Then

MsgBox "Leider stehen Ihnen nur 255 Spalten zur Verfügung"

End If


If Range("B3").Value > Range("B4").Value Then

    MsgBox "Der Startwert darf nicht größer als der Endwert sein"

End If






If Start = "" Then

    MsgBox "Bitte etwas eingeben!"

Else


For i = 1 To Ende - Start + 1 Step 1

    ivalue = Start + i - 1

    Cells(startRow + i, 1).Value = ivalue


    For j = 0 To Ende - Start + 1 Step 1

    jvalue = Start + j - 1

    If j = 0 Then

        Value = ivalue

    Else

        Value = jvalue * ivalue

    End If



    Cells(startRow + j, 2 + i - 1).Value = Value

   If jvalue = ivalue Then

    Cells(startRow + j, 2 + i - 1).Font.Bold = True

    End If


Next j

Next i



Range(Cells(startRow, 1), Cells(startRow + Ende - Start + 1, 1)).Select

    Selection.Font.Bold = True

Range(Cells(startRow, 1), Cells(startRow, Ende - Start + 2)).Select

    Selection.Font.Bold = True

Range(Cells(startRow, 1), Cells(startRow + Ende - Start + 1, Ende - Start + 2)).Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

Range("A1").Select



Range(Cells(startRow, 1), Cells(startRow + 1, 1)).Select


    Selection.Font.Bold = True

Range("A1").Select

    ActiveWindow.SmallScroll ToRight:=-2


Range(Cells(startRow, 1), Cells(startRow, Ende - Start + 2)).Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

Range("A1").Select


Range(Cells(startRow, 1), Cells(startRow + Ende - Start + 1, 1)).Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

Range("A1").Select


End If


End Sub

[PromiseYou]

ich würde eine abfrage mit

if not IsEmpty('Ausdruck') and isNumeric('Ausdruck') then

' Hier kommt nun alles rein, was nicht leer, aber numerisch ist

else if NOT IsEmpty ('Ausdruck') and NOT IsNumeric('Ausdruck') then

'Hier holst dir alle Einträge raus die nicht leer, aber auch nicht numerisch sind

endif

machen

hoffe deine frage ist ausreichend beantwortet

[r26t01]

danke für die Antwort, bin kurz danach aber selbst auf die Lösung gekommen. Es hat einfach nur ein:

If Not IsNumeric(Range("B3").Value) Or Not IsNumeric(Range("B4").Value) Then

MsgBox "Bitte geben Sie eine Zahl ein"

End If

gefehlt.