hab ne Frage. Ich möchte ein Makro erstellen, das mir auf Knopfdruck die Zellen E13 bis E264 durchsucht und in alle Zellen, in denen kein Wert steht den Wert 1 schreibt.
Kann mir irgendjemand weiterhelfen?
Liebe Grüße
Andreas
Sub ersetzen()
'Das folgende Beispiel bearbeitet in einer Schleife
'die Zellen A1:J4 in Tabelle1. Hat eine dieser Zellen
'einen Wert 0 wird dieser
'Wert durch Null Wert1=5 ersetzt.
Dim rwindex, colindex
Wert1 = 5
For rwindex = 1 To 4
For colindex = 1 To 10
With Worksheets("Tabelle1").Cells(rwindex, colindex)
If .Value = "" Then .Value = Wert1
End With
Next colindex
Next rwindex
End Sub