Thema Datum  Von Nutzer Rating
Antwort
25.09.2019 16:13:40 Lucas
Solved
25.09.2019 16:44:02 xlKing
NotSolved
Rot Erste leere Spalte in Matrix
08.10.2019 19:47:31 xlKing
NotSolved
10.10.2019 10:27:17 Gast51068
NotSolved
10.10.2019 19:49:35 xlKing
NotSolved
25.09.2019 17:33:07 Gast87480
NotSolved
25.09.2019 18:45:24 Mase
****
NotSolved
08.10.2019 09:33:00 Gast4794
NotSolved
08.10.2019 19:57:59 Gast78587
NotSolved

Ansicht des Beitrags:
Von:
xlKing
Datum:
08.10.2019 19:47:31
Views:
80
Rating: Antwort:
  Ja
Thema:
Erste leere Spalte in Matrix

Hallo Lucas,

was gibt denn die Formel aus, damit es zur Leerspalte kommt? Ist es ein Leerstring "" ? Dann versuch meine Variante nochmal und lass einfach das A bei CountA weg. Also nur Count. Das setzt allerdings voraus, dass deine Liste rein numerisch ist. Eine Spalte mit nur Text wird ebenfalls ausgegeben. Falls auch Text vorhanden ist, dann hier ein angepasster Code:

Sub ErsteFreieSpalte()
  Dim found As Boolean, leer As Long, c As Range, cl As Range
  For Each cl In Range("I711:NO760").Columns 'Durchläuft alle Spalten im Bereich
    If Application.Count(cl) = 0 Then 'Wenn keine Zahl in der Spalte steht dann
      For Each c In cl.Cells          'durchläuft er alle Zellen dieser Spalte
        If c.Value = "" Then leer = leer + 1 'und prüft ob sie wirklich leer sind
      Next c
      If leer = cl.Cells.Count Then 'Wenn Anzahl leerer Zellen gleich anzahl zeilen dann
        MsgBox cl.Address 'oder cl.EntireColumn.Address 'Ausgabe der Adresse
        found = True                                    'setzt gefunden auf Wahr und
        Exit For                             'verlässt die Schleife nach dem ersten Fund
      End If
    End If
  Next cl
  If found = False Then MsgBox "Keine Leerspalte vorhanden"
End Sub

Wenn du die ganze Spalte zurückgeben willst, ersetze cl.Address durch cl.EntireColumn.address

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
25.09.2019 16:13:40 Lucas
Solved
25.09.2019 16:44:02 xlKing
NotSolved
Rot Erste leere Spalte in Matrix
08.10.2019 19:47:31 xlKing
NotSolved
10.10.2019 10:27:17 Gast51068
NotSolved
10.10.2019 19:49:35 xlKing
NotSolved
25.09.2019 17:33:07 Gast87480
NotSolved
25.09.2019 18:45:24 Mase
****
NotSolved
08.10.2019 09:33:00 Gast4794
NotSolved
08.10.2019 19:57:59 Gast78587
NotSolved