Thema Datum  Von Nutzer Rating
Antwort
07.01.2020 10:58:57 Gast93366
NotSolved
07.01.2020 11:05:36 Mase
*****
NotSolved
07.01.2020 11:09:09 Gast8310
NotSolved
07.01.2020 11:17:59 Mase
NotSolved
07.01.2020 11:22:04 Gast70490
NotSolved
07.01.2020 11:53:48 Mase
NotSolved
07.01.2020 12:17:50 Gast26965
NotSolved
07.01.2020 12:20:02 Mase
NotSolved
Rot Spalte überspringen
 07.01.2020 12:23:52 Gast67610
NotSolved
07.01.2020 12:32:45 Mase
*****
Solved
07.01.2020 14:33:01 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast67610		 Datum:
07.01.2020 12:23:52		 Views:
498		 Rating:
     
Antwort:
  Ja
Thema:
Spalte überspringen

Meinst du so?

For Each col In rng.Columns
        With wks
            If Not Weekday(.Cells(6, col.column).Value, vbMonday) > 5 And IsError(IsHoliday(.Cells(6, col.column).Value) If col.Cells.Count = Application.WorksheetFunction.CountBlank(col) Then
                       MSGBOX "Volle Verfügbarkeit am " & .Cells(5, col.column) & ", den " & .Cells(6, col.column)
                    
              
                    
                    Exit Sub
                End If
            End If
        End With
    Next
    '
       MSGBOX "Es gibt keine komplett leere Spalte in der Ressourcenplanung"
End Sub


Function IsHoliday(d As Date) As Variant
    Dim v As Variant
    v = Application.Match(CDbl(d), ThisWorkbook.Worksheets("Public Holidays").Columns(1), 0)
    IsHoliday = v
End Function

Und alles in Spalte 1 rein?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.01.2020 10:58:57 Gast93366
NotSolved
07.01.2020 11:05:36 Mase
*****
NotSolved
07.01.2020 11:09:09 Gast8310
NotSolved
07.01.2020 11:17:59 Mase
NotSolved
07.01.2020 11:22:04 Gast70490
NotSolved
07.01.2020 11:53:48 Mase
NotSolved
07.01.2020 12:17:50 Gast26965
NotSolved
07.01.2020 12:20:02 Mase
NotSolved
Rot Spalte überspringen
 07.01.2020 12:23:52 Gast67610
NotSolved
07.01.2020 12:32:45 Mase
*****
Solved
07.01.2020 14:33:01 Mase
NotSolved