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

leere Felder ersetzen

Forumthread: 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
Anzeige

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
Anzeige
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

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige