Letzte Zeile ohne Formel finden
06.02.2019 10:36:13
Christian
ich möchte in einem Tabellenblatt in der Spalte B ab B7 bis B100 den Inhalt der Zellen überprüfen. In den Zellen stehen Formeln die im Normalfall leer "" sind, aber natürlich gibt es da auch Werte aus anderen Tabellenblättern die dorthin übertragen werden.
Nun soll im Tabellenblatt die letzte Zelle mit (numerischen) Inhalt gefunden werden, der Bereich wieder zurück nach "oben" bis Spalte N7 markiert werden und die Formeln "gelöscht" werden und der Inhalt der Zellen übernommen werden (.value = .value). Quasi das, was ich auch machen würde, wenn ich kopiere und dann nur die Werte einfüge.
Ich hab das gefunden ->
https://www.herber.de/forum/archiv/1036to1040/1039758_VBA_letzte_Zeile_Ermitteln.html
hilft mir aber nicht weiter.
So habe ich es probiert,
Sub Bereich_Formelweg()
Dim wS As Worksheet
maxZeile = WorksheetFunction.Match("", Sheets("Februar").Columns("b"), -1) - 1
For Each wS In ActiveWorkbook.Windows(1).SelectedSheets
With wS.Range("b7" & maxZeile & ":N" & maxZeile & "")
.Interior.ColorIndex = 3 'zum testen was passiert!!!
'.Value = .Value
End With
Next wS
End Sub
Vielleicht kann mir ja jemand helfen.
Danke
Christian