Wie letzte Zeile von usedRange ermitteln?
26.02.2008 21:05:45
usedRange
Mit nachfolgendem identifiziere ich eine Spalte mit speziellen Begriffen, bei denen Leerzeichen überflüssig sind und daher entfernt werden sollen. Um mit Ersetzen zu arbeiten, definiere ich einen Range, der abzusuchen ist.
Der Range ist wie folgt definiert:
Set rngSpalte = Range(Cells(1, i), Cells(1000, i))
Nun möchte ich die Zahl 1000 ersetzen mit der Zahl, die sich ergibt, wenn abgefragt wird, welches die letzte Zeile von used range ist.
Doch wie stelle ich das an?
Danke für eine Rückmeldung.
Peter
Option Explicit
Sub ttt()
Dim i As Integer
Dim lngSpalte As Long
Dim rng As Range
Dim rngSpalte As Range
'Feststellen, ob in Spalten A-Z (1-26) 'T.' oder 'C.' vorkommt, wenn ja, wird die betreffende _
Spaltennummer
'in die Variable lngSpalte geschrieben
For i = 1 To 26
If WorksheetFunction.CountIf(Range(Cells(1, i), Cells(65536, i)), "*T.*") + _
WorksheetFunction.CountIf(Range(Cells(1, i), Cells(65536, i)), "*C.*") > 0 Then _
lngSpalte = i
Set rngSpalte = Range(Cells(1, i), Cells(1000, i))
'wenn der Variable lngSpalte eine Zahl zugewiesen wurde, werden in dieser Spalte die _
unnötigen
'Leerschläge entfernt; die obige Schlaufe muss nicht weitergeführt werden (deshalb _
Exit Sub)
If lngSpalte 0 Then
For Each rng In rngSpalte
rng = Replace(rng, " ", "")
Next
Exit Sub
Else
End If
Next i
End Sub
Anzeige