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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen