VBA-Beispiel 017
mail schreiben
mail schreiben

markierte Zellen füllen

hier werden alle zuvor markierten Zellen mit einem Wert gefüllt, der über eine InputBox abgefragt wird. Nach der Eingabe werden zwei Dinge überprüft:
1.) wurde überhaupt was eingegeben?
2.) ob mehr als ein Zeichen pro Zelle eingetragen werden soll. Wenn ja, wird das Programm abgebrochen (erlaubt ist nur ein Zeichen pro Zelle).
Sub fuellen()

Dim x As Object
Dim rein As String

rein = InputBox("was soll in den Zellen stehen?", "Eingabe")
If rein = "" Then
Exit Sub
End If

    If Len(rein) > 1 Then
    MsgBox "Sie können maximal ein Zeichen pro Zelle eingeben!!!" _
           , vbCritical, "zuviele Zeichen"
    Else
        For Each x In Selection
        x.Value = rein
        Next x
    End If

End Sub

Download:   vba017.zip