| VBA-Beispiel 017 | |
|
|
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 |
|
relevante Links:
|
|
| |