Ich möchte in einem markierten Bereich in alle leeren Zellen das Zeichen % eintragen.
Gäbe es hier bitte eine VBA Lösung?
Danke
Josef
Sub Prozent()
Dim z
For Each z In Selection
If z.Value = "" Then z.Value = "%"
Next z
End Sub
Sub fueller()
Dim rngCell As Range
For Each rngCell In Selection
If rngCell = "" Then
rngCell = "%"
End If
Next
End Sub
Sub aaa()
Selection.SpecialCells(xlCellTypeBlanks) = "%"
End Sub
Sub laufen lassen.
Sub tt()
Set b = Range("A1:A10").SpecialCells(xlCellTypeVisible).Cells
For n = 1 To 10
MsgBox b(n)
Next n
End Sub
Schätzfrage, zählt die msgbox von 1 bis 10 oder 1,2,9,10?
Richtig geraten, sie zählt von 1 bis 10 *g
Gruß
Reinhard
Sub tt()
For Each Zelle In Selection
If Zelle.Value = "" Then Zelle.Value = "%"
Next Zelle
End Sub