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