Thema Datum  Von Nutzer Rating
Antwort
28.11.2019 09:23:20 Gast22878
Solved
Blau Erste leere Spalte mit Ausnahme
 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
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:
Mase		 Datum:
28.11.2019 10:04:14		 Views:
555		 Rating:
     
Antwort:
  Ja
Thema:
Erste leere Spalte mit Ausnahme

Moin,

ein Vorschlag:

Sub ErsteLeereSpalte()
    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 col.Cells.Count = Application.WorksheetFunction.CountBlank(col) Then
                MsgBox "Erste leere Spalte im Bereich " & rng.Address & " : " & col.Column
                Exit Sub
            End If
        End With
    Next
    '
    MsgBox "Keine leere Spalte im Bereich & " & rng.Address & " gefunden."
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
Blau Erste leere Spalte mit Ausnahme
 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
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