Office: (Office 365) VBA - letzte nicht-leere Spalte

Moin, liebe VBA-Spezis,

mit

Cells(99, Columns.Count).End(xlToLeft).Column

bestimme ich die Spaltenzahl der letzten benutzten Zelle in Zeile 99.
Soweit, so klar.
Nun habe ich aber Formeln in dieser Zeile, die teilweise auch "" ausgeben.

Gibt es in VBA einen ähnlich eleganten Weg, um die letzte Zelle <>"" auszugeben, also die letzte Zelle mit "echtem" Inhalt?

Vielen Dank im Voraus für sachdienliche Hinweise!

 

Moin Schatzi!
Ermitteln die Formeln Zahlen (und "")?
Dann statt
Cells(99, Columns.Count).End(xlToLeft).Column
Application.Match(-9^99, Rows(99), -1)

Gruß Ralf

 

Off topic:
In Deiner Signatur verweist Du auf das eingestellte office-loesung.de
Tab2Html wird dauerhaft hier verlinkt:
https://www.clever-excel-forum.de/Thread-Excel-AddIn-Tab2Html-Excel-Tabellen-im-Forum-darstellen
In diesem Forum office-hilfe.com muss der Code aber in Tags gesetzt werden
[parsehtml ]
code
[/parsehtml ]
(die Leerzeichen entfernen)

 

Moin Ralf,

vielen Dank für die Antwort.
In der besagten Zeile stehen wild gemixt sowohl Texte als auch Zahlen als auch "".
Vielleicht kommt deshalb "Fehler 2042"?

Das mit meiner Signatur ist mir natürlich bewusst. Aber während ich tatsächlich Rechte habe, um Beiträge zu löschen und User zu sperren, habe ich merkwürdigerweise keine Rechte, um meine Signatur zu ändern!
Ich habe das auch schon vor langer Zeit an Admin Michael berichtet, aber der war vor über einem Jahr das letzte Mal hier online...

 

Hallo,
z.B.

Code:

Sub hsv()
Range("a99", Cells(99, Columns.Count).End(xlToLeft)).Name = "bereich"
 Cells(99, [sumproduct(max((column(bereich))*(bereich<>"")))]).Select
Application.Names("bereich").Delete
End Sub

 

Moin,

vielen Dank auch für diese Antwort.
Ich habe allerdings gerade gemerkt, dass die Software, in die ich die Daten exportieren möchte, sich netterweise gar nicht an den "" stört. Insofern brauche ich diese Einschränkung gar nicht mehr.
In der Zwischenzeit habe ich auch einen Code gefunden, der nach dem "End(xlToLeft)"-Teil den Rest mit einer rückwärts zählenden For-Schleife erledigt.

Ich danke euch also trotzdem für eure Mühe, auch wenn sie in diesem Fall schlussendlich gar nicht nötig war. Aber vielleicht kann ich das ja mal an anderer Stelle gebrauchen.