Wenn-Abfrage innerhalb einer Schleife einbauen

Hallo,
ich bins noch einmal.
Im nachfolgenden Code möchte ich noch gerne eine Abfrage einbauen, die mir selber leider noch nicht gelungen ist.

Sub KBZ_zusammenstellen()
   Dim wksQ As Worksheet, wksZ As Worksheet
   Dim lLetzteZ As Long

   Set wksQ = ActiveWorkbook.ActiveSheet
   Set wksZ = Workbooks("Einteilung 08.xls").Worksheets("Tabelle1")

   Application.ScreenUpdating = False
   For Each wksQ In ActiveWorkbook.Worksheets
      wksQ.Range(wksQ.Cells(2, 1), wksQ.Cells(1, 5).End(xlDown)).Copy

      lLetzteZ = IIf(wksZ.Range("A65536") <> "", 65536, wksZ.Range("A65536").End(xlUp).Row)
      wksZ.Range("A" & lLetzteZ + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
      Application.CutCopyMode = False
   Next wksQ
   Application.ScreenUpdating = True
End Sub
Wenn im "WksQ.Range("A2") = leer" dann soll das Tabellenblatt unberücksichtigt bleiben, ansonsten weiter laufen.
Kann mir hierbei noch mal jemand helfen?
Gruß Korl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
normalerweise schon.
Dein Vorschlag:


IF wksQ.range("A2")  "" then
Mach was
End if

ist ja auch nur eine verkürzte Form von


IF wksQ.range("A2")  "" then
Mach was
Else
Mach nix
End if

die nur deshalb möglich ist, weil wenn die Bedingung nicht erfüllt ist, nichts passieren soll.
Mein Vorschlag deshalb, weil Korl die Bedingung mit ="" anstelle von ""gestellt hat und ich ihm zeigen wollte, wie man das Problem auch mit diese Bedingung lösen kann:


IF wksQ.range("A2") = "" then
Mach nix
Else
Mach was
End if

ist vom Prinzip her das gleiche, nur andersrum.
Was einem eher liegt, ist wahrscheinlich eine Frage der Denkweise und es Persönlichen Geschmacks
von daher kann ich deinen Einwand nicht ganz nachvollziehen.
die 2. Möglichkeit, wenn man lieber mit =-Bedingungen arbeitet, wäre folgendes:


IF NOT wksQ.range("A2") = "" then
Mach was
End if

Gruß, Daniel

Sub KBZ_zusammenstellen() Dim wksQ As Worksheet, wksZ As Worksheet Dim lLetzteZ As Long Set wksQ = ActiveWorkbook.ActiveSheet Set wksZ = Workbooks("Einteilung 08.xls").Worksheets("Tabelle1") Application.ScreenUpdating = False For Each wksQ In ActiveWorkbook.Worksheets If wksQ.Range("A2") = "" Then GoTo NXT wksQ.Range(wksQ.Cells(2, 1), wksQ.Cells(1, 5).End(xlDown)).Copy lLetzteZ = IIf(wksZ.Range("A65536") "", 65536, wksZ.Range("A65536").End(xlUp).Row) wksZ.Range("A" & lLetzteZ + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False NXT: Next wksQ Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Wenn-Abfrage innerhalb einer Schleife einbauen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread