Herbers Excel/VBA-Archiv

einfach Frage zu einer VBA-Schleife

• einfach Frage zu einer VBA-Schleife von Giesarazu vom 14.11.2014 11:26:56
• AW: einfach Frage zu einer VBA-Schleife - von Rudi Maintaire am 14.11.2014 11:33:54
  • AW: einfach Frage zu einer VBA-Schleife - von Giesarazu am 14.11.2014 11:43:08
    • Und wenn weiter Spalten dazu kommen,... - von Matze Matthias am 14.11.2014 13:42:20

Betrifft: einfach Frage zu einer VBA-Schleife von: Giesarazu
Geschrieben am: 14.11.2014 11:26:56

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

Betrifft: AW: einfach Frage zu einer VBA-Schleife von: Rudi Maintaire
Geschrieben am: 14.11.2014 11:33:54

Hallo,

If IsEmpty(Cells(y, 19)) Then 
  Cells(y, 19).Value = 1
  Cells(y, 20).Value = 1
End If

Gruß
Rudi

Betrifft: AW: einfach Frage zu einer VBA-Schleife von: Giesarazu
Geschrieben am: 14.11.2014 11:43:08

oh jeh, oh jeh... wer hätte das gedacht

Vielen Dank Rudi:)

Betrifft: Und wenn weiter Spalten dazu kommen,... von: Matze Matthias
Geschrieben am: 14.11.2014 13:42:20

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

Beiträge aus den Excel-Beispielen zum Thema "einfach Frage zu einer VBA-Schleife"