ich habe folgendes Makro, welches mir den Bereich ermittelt, den ich SUCHE.
Funkt einwandfrei !
Jetzt möchte ich gern die letzte belegte Zelle in der Spalte 5 des ermittelten Bereiches
ermitteln, um dann den Druckbereich oder aber den gesamten Bereich zu ermitteln und nicht
Pauschal bis Zeile 60.
Dim Zelle As Range
Suchtext = "Alle"
Set Zelle = Rows("8").Find(what:=Suchtext, LookIn:=xlValues, LookAt:=xlWhole)
Select Case Zelle Is Nothing
Case False
Application.ScreenUpdating = True
Zelle.Activate
Case True
End Select
'--------------------------------------------
Dim Spalte As Integer
Spalte = ActiveCell.Column
Dim wSpalte As Integer
wSpalte = Spalte + 5
Dim bereich
bereich = Range(Cells(10, Spalte), Cells(60, Spalte + 5)).Select
'--letzte Zelle ermitteln -----------------------------------
' z = Range("A6").End(xlDown).Row
z = Range(Cells(10, Spalte + 5), Cells(z, Spalte + 5)).Select
End Sub
mfg Walter