ich möchte eine Eingabe per VBA erzwingen für die Zelle J3 und F8.
Wie baue ich das in meine aktuelle vorhandene Funktion am besten mit ein, dass er prüft, dass in dem einem Feld Text steht und in dem anderen eine Zahl?
Lieben Dank
Sub aaa()
Dim sMsg As String
If Cells(3, 10) "" Then
If Not IsNumeric(Cells(3, 10)) Then
sMsg = "J3 enthält keine Zahl."
End If
Else
sMsg = "J3 ist leer."
End If
If Cells(8, 6) "" Then
If IsNumeric(Cells(8, 6)) Then
sMsg = sMsg & vbCrLf & "F8 enthält keinen Text."
End If
Else
sMsg = sMsg & vbCrLf & "F8 ist leer."
End If
If sMsg "" Then MsgBox sMsg
End Sub