Erste leere Spalte finden

Hallo zusammen,
ich brauche wieder mal Eure Hilfe, da ich am Verzweifeln bin.
Ich habe ein Tabellenblatt, bei dem ALLE Spalten ausgeblendet sind.
Die Daten werden über UserForms in das Tabellenblatt geschrieben.
Das funktioniert soweit super.
Ich möchte nun in Zeile 9 des Tabellenblattes die erste leere Spalte finden, um dort einen Wert reinzuschreiben.
Die erste leere Spalte suche ich mit:
Dim Spalte As Long
Spalte = ThisWorkbook.Worksheets("Daten").Cells(9, 16384).End(xlToLeft).Offset(0, 1).Column
oder mit:
Dim Spalte As Long
Spalte = ThisWorkbook.Worksheets("Daten").Cells(9, Columns.Count).End(xlToLeft).Column + 1
Das funktioniert super, wenn alle Spalten auf dem Tabellenblatt eingeblendet sind.
Sobald die Spalten aber ausgeblendet sind, wird die erste freie Spalte nicht gefunden.
Der Wert wird stattdessen in eine andere freie Spalte geschrieben, aber eben nicht in die erste freie.
Gibt es noch eine andere Möglichkeit, nach der ersten freien Spalte in Zeile 9 zu suchen, die auch bei ausgeblendeten Spalten funktioniert?
Vielen Dank und viele Grüße
Timo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub aaTest() MsgBox FirstFreeCol(Rows(9)) End Sub Function FirstFreeCol(rngC As Range) As Long Dim sAdr As String sAdr = "(" & rngC.Address(0, 0) & ")" FirstFreeCol = Evaluate("MIN(IF(ISBLANK" & sAdr & ",COLUMN" & sAdr & "))") End Function

Hi Timo,
deine Lösung mit UsedRange ist nicht zu empfehlen. Sie kann sogar dazu führen,
dass eine nichtleere Zelle überschrieben wird.
UsedRange hat ein paar (ganz normale) Eigenschaften, die oft nicht bedacht werden.
1.)
Der Bereich muss nicht in Spalte A anfangen. Wenn in einem Blatt nur die Zellen D9:F9 benutzt sind,
ist UsedRange.Columns.Count = 3
Mit UsedRange.Columns.Count + 1 würde man also Zelle D9 überschreiben.
Das kannst du leicht mit einem neuen Blatt ausprobieren.
2.)
Wenn man in eine Zelle rechts des bisher benutzten Bereichs z. B. ein Datum oder eine Uhrzeit eingibt
und diese dann wieder löscht, erstreckt sich der UsedRange bis zu dieser Zelle,
auch wenn diese Zelle längst leer ist.
Dass die UsedRange-Lösung nicht zu deiner Fragestellung passt, hast du selbst schon geschrieben -
"damit kann ich leben"...
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Erste leere Spalte finden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread