Thema Datum  Von Nutzer Rating
Antwort
28.11.2019 09:23:20 Gast22878
Solved
28.11.2019 10:04:14 Mase
NotSolved
28.11.2019 10:10:28 Gast96827
NotSolved
28.11.2019 10:55:25 Mase
NotSolved
28.11.2019 11:06:49 Mase
NotSolved
28.11.2019 11:18:22 Gast91094
NotSolved
28.11.2019 11:21:39 Gast28338
NotSolved
Blau Erste leere Spalte mit Ausnahme
 03.12.2019 09:28:24 Gast65630
NotSolved
03.12.2019 10:04:02 Gast67818
NotSolved
03.12.2019 10:06:21 Mase
NotSolved
03.12.2019 10:19:00 Gast91018
Solved

Ansicht des Beitrags:
Von:
Gast65630		 Datum:
03.12.2019 09:28:24		 Views:
766		 Rating:
     
Antwort:
  Ja
Thema:
Erste leere Spalte mit Ausnahme

Hi Mase,

 

nochmal eine Frage zur Erweiterung des Codes - Wie kann ich hier noch ein Vlookup integrieren, so dass er auch Feiertage überspringt? Die Feiertage sind bei mir in einem anderen Blatt eingetragen. Anbei nochmal der Code:

 

Vielen Dank!

Sub ErsteLeereSpalteInklWeekday()
    Dim wks As Worksheet
    Dim rng As Range
    Dim col As Object
    
    
    '
    Set wks = ThisWorkbook.Worksheets(1)
    Set rng = wks.Range("I2406:NO2455")
    '
    For Each col In rng.Columns
        With wks
                               
                    
                     If Not Weekday(.Cells(6, col.column).Value, vbMonday) > 5 Then
               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

 

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
28.11.2019 09:23:20 Gast22878
Solved
28.11.2019 10:04:14 Mase
NotSolved
28.11.2019 10:10:28 Gast96827
NotSolved
28.11.2019 10:55:25 Mase
NotSolved
28.11.2019 11:06:49 Mase
NotSolved
28.11.2019 11:18:22 Gast91094
NotSolved
28.11.2019 11:21:39 Gast28338
NotSolved
Blau Erste leere Spalte mit Ausnahme
 03.12.2019 09:28:24 Gast65630
NotSolved
03.12.2019 10:04:02 Gast67818
NotSolved
03.12.2019 10:06:21 Mase
NotSolved
03.12.2019 10:19:00 Gast91018
Solved