Thema Datum  Von Nutzer Rating
Antwort
25.09.2019 16:13:40 Lucas
Solved
25.09.2019 16:44:02 xlKing
NotSolved
08.10.2019 19:47:31 xlKing
NotSolved
10.10.2019 10:27:17 Gast51068
NotSolved
Rot Erste leere Spalte in Matrix
 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:
10.10.2019 19:49:35		 Views:
446		 Rating:
     
Antwort:
  Ja
Thema:
Erste leere Spalte in Matrix

Hallo Lucas,

ich verstehe, was du meinst. Wenn du nur ein paar Werte drin hast, muss die Variable leer natürlich noch zurückgesetzt werden. Probiers mal so.

Sub ErsteFreieSpalte()
  Dim found As Boolean, leer As Long, c As Range, cl As Range
  For Each cl In Range("I711:N760").Columns 'Durchläuft alle Spalten im Bereich
    If Application.Count(cl) = 0 Then 'Wenn keine Zahl in der Spalte steht dann
      leer = 0                        'zurücksetzen der Variable
      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

Das sollte jetzt klappen. Wenn nicht, dann stell doch mal eine Beispielmappe mit Beispieldaten bereit. z.B. hier. https://workupload.com/  Dann kann ich mir das nochmal näher ansehen.

Gruß Mr. K.

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
25.09.2019 16:13:40 Lucas
Solved
25.09.2019 16:44:02 xlKing
NotSolved
08.10.2019 19:47:31 xlKing
NotSolved
10.10.2019 10:27:17 Gast51068
NotSolved
Rot Erste leere Spalte in Matrix
 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