Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1392to1396
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

einfach Frage zu einer VBA-Schleife

einfach Frage zu einer VBA-Schleife
14.11.2014 11:26:56
Giesarazu
Hallo Leute,
mal ne wohl relativ simple Frage für Fachleute:
Wenn eine Bedingung erfüllt ist wie hier
If IsEmpty(Cells(y, 19)) Then Cells(y, 19).Value = 1
möchte ich aber gleichzeitig, dass auch in den Zeilen der Spalte 20 diese 1 eingetragen wird. Muss ich dazu die Bedingung nochmals wiederholen oder kann ich das irgendwie mit der 1. Anweisung verknüpfen ?
Also ich hätte es jetzt einfach so gemacht:
If IsEmpty(Cells(y, 19)) Then Cells(y, 19).Value = 1
If IsEmpty(Cells(y, 19)) Then Cells(y, 20).Value = 1
aber das geht ja sicherlich auch kürzer oder ?
Vielen Dank für einen Tipp
Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einfach Frage zu einer VBA-Schleife
14.11.2014 11:33:54
Rudi
Hallo,
If IsEmpty(Cells(y, 19)) Then
Cells(y, 19).Value = 1
Cells(y, 20).Value = 1
End If
Gruß
Rudi

AW: einfach Frage zu einer VBA-Schleife
14.11.2014 11:43:08
Giesarazu
oh jeh, oh jeh... wer hätte das gedacht
Vielen Dank Rudi:)

Und wenn weiter Spalten dazu kommen,...
14.11.2014 13:42:20
Matze
Hallo Stefan,
..legst du eine weiter For Schleife dazu
Option Explicit
Sub spaltenMit1fuellen()
Dim y As Long
Dim x As Long
For y = 2 To 10 'Zeilen
If IsEmpty(Cells(y, 19)) Then 'Abfrage
For x = 30 To 19 Step -1 'Spalten
Cells(y, x).Value = 1
Next x
End If
Next y
End Sub
Gruß Matze
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige