Moin,
ich versuche vor mein Makro eine Abfrage zu stellen. Es soll geprüft werden ob ALLE Zellen C4 bis C24 ausgefüllt sind. Falls nicht soll eine Meldung kommen.
Ich habe das soweit für eine Zelle geschafft.
If ActiveSheet.Range("C24").Value = "" Then
MsgBox "Output ausfüllen", vbCritical
Leider klappt das nicht mit einem Bereich bzw. ich weiß nicht wie.
So sieht das ganze aktuell aus.
Sub Zeile_kopieren()
'Bereich kopieren
If ActiveSheet.Range("C24").Value = "" Then
MsgBox "Output ausfüllen", vbCritical
Else
Sheets("Tagesauswertung").Range("C4:Q4").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Fasern").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
Sheets("Tagesauswertung").Range("C5:Q5").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("K1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
Sheets("Tagesauswertung").Range("C6:Q6").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("K2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
Vielen Dank