|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.09.2019 16:13:40 |
Lucas |
|
|
|
25.09.2019 16:44:02 |
xlKing |
|
|
 Erste leere Spalte in Matrix |
08.10.2019 19:47:31 |
xlKing |
|
|
|
10.10.2019 10:27:17 |
Gast51068 |
|
|
|
10.10.2019 19:49:35 |
xlKing |
|
|
|
25.09.2019 17:33:07 |
Gast87480 |
|
|
|
25.09.2019 18:45:24 |
Mase |
|
|
|
08.10.2019 09:33:00 |
Gast4794 |
|
|
|
08.10.2019 19:57:59 |
Gast78587 |
|
|
Von:
xlKing |
Datum:
08.10.2019 19:47:31 |
Views:
990 |
Rating:
|
Antwort:
|
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
25.09.2019 16:13:40 |
Lucas |
|
|
|
25.09.2019 16:44:02 |
xlKing |
|
|
Erste leere Spalte in Matrix |
08.10.2019 19:47:31 |
xlKing |
|
|
|
10.10.2019 10:27:17 |
Gast51068 |
|
|
|
10.10.2019 19:49:35 |
xlKing |
|
|
|
25.09.2019 17:33:07 |
Gast87480 |
|
|
|
25.09.2019 18:45:24 |
Mase |
|
|
|
08.10.2019 09:33:00 |
Gast4794 |
|
|
|
08.10.2019 19:57:59 |
Gast78587 |
|
|