Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

leere Felder ersetzen

leere Felder ersetzen
09.12.2004 12:10:55
Andy1980
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: leere Felder ersetzen
Jan
Hi Andreas,
Ein erster Ansatz anbei mit einem Schleifenkonstrukt:

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

Suchst Du solch eine Lösung?
Jan
AW: leere Felder ersetzen
Uduuh
Hallo,
muss es unbedingt VBA sein?
E13:E264 markieren, Bearbeiten-Gehe zu-Inhalte-leere Zellen. 1 eingeben, STRG+Enter. Fertig.
Gruß aus'm Pott
Udo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige