Anzeige
Archiv - Navigation
1644to1648
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
Inhaltsverzeichnis

Jede zweite Zelle ausfüllen

Jede zweite Zelle ausfüllen
26.09.2018 09:43:08
Anton
Hallo Forum!
Ich komme mit einem kleineren Problem nicht wirklich weiter.
Es geht um Folgendes:
Ich möchte per Schaltfläche jede ungerade Zelle meiner Auswahl mit einem "X" ausfüllen.
Das heißt wenn ich B2:H2 auwähle werden B2,D2,F2 und H2 ausgefüllt.
Ich hoffe mir kann da jemand weiterhelfen ^^
Danke schon mal
MfG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jede zweite Zelle ausfüllen
26.09.2018 09:56:33
{Boris}
Hi,
z.B.:
Option Explicit
Sub do_it()
Dim x As Long
With Selection
If .Rows.Count = 1 Then
For x = 1 To .Columns.Count Step 2
Selection(, x) = "x"
Next x
End If
End With
End Sub
VG, Boris
AW: Jede zweite Zelle ausfüllen
26.09.2018 10:06:26
Anton
Super DANKE!
Funktioniert beides wunderbar!
AW: Jede zweite Zelle ausfüllen
26.09.2018 10:01:35
Daniel
Hi
dim x as Long
dim Zelle as range
for each Zelle in Selection
x = x + 1
if x Mod 2 = 1 then Zelle.value = "x"
next

funktioniert mit Zeilen oder Spalten
Gruß Daniel
Widersprüchlich...
26.09.2018 10:11:55
EtoPHG
Hallo Anton,
Du hast zwar vorschläge, aber der Betreff und dein Text in der Anfrage stehen im Widerspruch:
Jede zweite Zelle... : Z1...Zn jede Zelle mit n=gerade
jede ungerade Zelle... : Z1...Zn jede Zelle mit n=ungerade
Also, was stimmt?
Gruess Hansueli
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige