Wann Zelle keinen Wert dann nächste Aktion

[Hendldriver]

Guten Abend,

hätte eine Frage wie  kann ich das lösen ?
Gewünschte Ergebnis wäre wann am Blatt "Aldi Expedit" in ´Spalte C2 bis C50 kein Wert dann zur nächsten Aktion springen ( Altenstadt). Sollte in C2 bis C50 ein Wert vorhanden sein  dann das Blatt  drucken wann nicht zu nächsten Aktion, usw---
leider sind meine Kenntnisse noch zu gering


VBA schaut zurzeit so aus :


  Range("C3:D3").Select
    ActiveCell.FormulaR1C1 = "76628" 'Regen
    Sheets("Expedit").PrintOut
    
    Range("C3:D3").Select
    ActiveCell.FormulaR1C1 = "76613" 'Alten
    Sheets("Expedit").PrintOut
    
    Range("C3:D3").Select
    ActiveCell.FormulaR1C1 = "76603" 'Kleina
    Sheets("Expedit").PrintOut

Vielen Dank für eure unterstüzung

mfg

[Lutz Fricke]

Hallo Hendldriver,

stell doch mal eine Beispieldatei ins Forum.

Gruß,
Lutz

[schauan]

Hallöchen,

Du könntest im Code auch Funktionen verwenden, z.B.

Code:

If WorksheetFunction.Count(Range("C2:C50")) >0 Then
    'Drucken
    '...
    'Makro verlassen
    Exit Sub
Else
   '...
End If