Hallo liebe gemeinde,
bräuchte mal wieder eure hilfe. Habe eine Userform mit 100 textfeldern die in ein leeres tabellenblatt übergeben werden. jetzt werden nicht alle textfelder ausgefüllt und somit befinden sich im tabellenblatt leere zeilen. mit dieser formel:
Sub LeereSpaltenloeschen() LastColumns = ActiveSheet.UsedRange.Columns.Count Application.ScreenUpdating = False For r = LastColumns To 1 Step -1 If Application.CountA(Columns(r)) = 0 Then Columns(r).Delete Next r End Sub kann ich jetzt die leere spalten löschen. jetzt kommts.... aber nur wenn ich sie von hand reinschreibe oder ich vorher eine doppelklick in die leere spalte mache und genau das will ich ja vermeiden.
ohne einmal die zelle zu aktivieren können keine leeren zellen gefunden werden. Dies liegt an den textboxen in der userform. meine frage ist nun, kann ich die textboxen irgend wie formatiern? bin ratlos.
vielen lieben dank erstmal für eure mühe und ein schönes wochenende.
Gruß
Frank