im Beispiel werden in der MsgBox alle Wochentage angezeigt.
Kann man den Code so abändern, das nur die Wochentage angezeigt werden, wo die Anzahl in Spalte K:K größer als 0 ist? Im Beispiel wären das Mi mit 10 und Do mit 9!
Besten Dank für die Hilfe!
MfG Helene
Hier und noch der Code und eine Beispieldatei!
Option Explicit
Sub Test()
Dim Feier As Worksheet
Set Feier = Worksheets("Tabelle1")
MsgBox "Die Anwesenheitsliste ist fertig gestellt!" _
& vbCr & "" & vbCr & "" & "Folgende Wochentage kommen mindestens 1 mal vor: " _
& vbCr & "" & vbCr & "" & Feier.Cells(1, 10).Value & " kommt " & Feier.Cells(1, 11).Value & " mal vor" _
& vbCr & "" & vbCr & "" & Feier.Cells(2, 10).Value & " kommt " & Feier.Cells(2, 11).Value & " mal vor" _
& vbCr & "" & vbCr & "" & Feier.Cells(3, 10).Value & " kommt " & Feier.Cells(3, 11).Value & " mal vor" _
& vbCr & "" & vbCr & "" & Feier.Cells(4, 10).Value & " kommt " & Feier.Cells(4, 11).Value & " mal vor" _
& vbCr & "" & vbCr & "" & Feier.Cells(5, 10).Value & " kommt " & Feier.Cells(5, 11).Value & " mal vor" _
& vbCr & "" & vbCr & "" & Feier.Cells(6, 10).Value & " kommt " & Feier.Cells(6, 11).Value & " mal vor" _
& vbCr & "" & vbCr & "" & Feier.Cells(7, 10).Value & " kommt " & Feier.Cells(7, 11).Value & " mal vor"
Set Feier = Nothing
End Sub
https://www.herber.de/bbs/user/152202.xlsm