VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Mase

Datum:
07.01.2020 12:32:45

Views:
658

Rating:

Antwort:

Thema:
Spalte überspringen

Wenn Du so weitermachst könnte man bald Schmerzensgeld für die Verunstaltung des VBA-Codes verlangen :D

Also ein klares Nein:

Option Explicit

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 And IsError(IsHoliday(.Cells(6, col.Column).Value)) = True Then
                If col.Cells.Count = Application.WorksheetFunction.CountBlank(col) Then
                    MsgBox "Erste leere Spalte im Bereich " & rng.Address & " : " & col.Column
                    Exit Sub
                End If
            End If
        End With
    Next
    '
    MsgBox "Keine leere Spalte im Bereich & " & rng.Address & " gefunden."
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

Einfach Spalte A fortführen und den oberen Code beibehalten.

Dann dürfte es funktionieren ^^

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
Spalte überspringen	07.01.2020 10:58:57	Gast93366
Spalte überspringen	07.01.2020 11:05:36	Mase
Spalte überspringen	07.01.2020 11:09:09	Gast8310
Spalte überspringen	07.01.2020 11:17:59	Mase
Spalte überspringen	07.01.2020 11:22:04	Gast70490
Spalte überspringen	07.01.2020 11:53:48	Mase
Spalte überspringen	07.01.2020 12:17:50	Gast26965
Spalte überspringen	07.01.2020 12:20:02	Mase
Spalte überspringen	07.01.2020 12:23:52	Gast67610
Spalte überspringen	07.01.2020 12:32:45	Mase
Spalte überspringen	07.01.2020 14:33:01	Mase