mein Problem: Tabelle mit 12 Spalten enthält derzeit Werte in den Spalten 1 bis 4 und 9 bis12. Wie kann ich den Spalten-Namen der ersten freien Spalte erhalten? Hier also E .
Danke für euere Mühen
Sub ttt()
Dim strAdr As String
strAdr = Cells(1, [A1].End(xlToRight).Column + 1).Address
MsgBox Mid(strAdr, 1, InStr(2, strAdr, "$") / 3 * 2)
MsgBox Mid(strAdr, 2, InStr(2, strAdr, "$") / 5 * 2)
End Sub
Gruss