Bereich auswählen letzte beschriebene Zelle

Hallo Ihr Excelspezialisten,
ich habe folgendes Problem:
In einer Tabelle1 sind Werte aus einer anderen Tabelle per Formel.
Nun möchte ich einen bestimmten Bereich auswählen und markieren.
Es geht um den Bereich A1:F bis zur letzten beschriebenen Zelle aus Spalte A
aber nur Werte nicht Formeln.
Folgenden Code habe ich gefunden aber markiert bis zur letzten beschriebenen
Zelle mit Formeln

Sub A_F_Sortieren()
Dim Ez As Long    'erste Zeile (hast Du vorgegeben)
Dim Lz As Long    'letzte Zeile (wird ermittelt)
Sheets("Tabelle1").Select
Spalte = "A"      'Spalte, in der die letzte Zeile ermittelt werden soll
Ez = 1        'Vorgabe
Lz = ActiveSheet.Cells(Rows.Count, Spalte).End(xlUp).Row  'ermitellt letzte Zeile
Sheets("Tabelle1").Range(Spalte & Ez & ":F" & Lz).Select
End Sub

Wie muss der o.a. Code geändert werden, damit er nur den Bereich auswählt der Werte
beinhaltet.
Danke für Eure Hilfe.
Gruss
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub A_F_Sortieren() Dim Spalte As String Dim Ez As Long 'erste Zeile (hast Du vorgegeben) Dim Lz As Long 'letzte Zeile (wird ermittelt) Dim i As Long With Worksheets("Tabelle1") Spalte = "A" 'Spalte, in der die letzte Zeile ermittelt werden soll Ez = 1 'Vorgabe Lz = .Cells(Rows.Count, Spalte).End(xlUp).Row 'ermitellt letzte Zeile For i = Lz To Ez Step -1 If .Cells(i, Spalte) "" Then Exit For Next i .Range(Spalte & Ez & ":F" & i).Select End With End Sub

Sub SortierenAbisF() ' SortierenAbisF Makro ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _ "A2:A214"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("A1:F214") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

Sub SortierenAbisF() Dim Spalte As String Dim Ez As Long 'erste Zeile (hast Du vorgegeben) Dim Lz As Long 'letzte Zeile (wird ermittelt) Dim i As Long With Worksheets("Tabelle1") Spalte = "A" 'Spalte, in der die letzte Zeile ermittelt werden soll Ez = 1 'Vorgabe Lz = .Cells(Rows.Count, Spalte).End(xlUp).Row 'ermitellt letzte Zeile For i = Lz To Ez Step -1 If .Cells(i, Spalte) 0 Then Exit For Next i .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("A2:A" & i), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortTextAsNumbers .Sort.SetRange .Range("A1:F" & i) .Sort.Header = xlYes .Sort.MatchCase = False .Sort.Orientation = xlTopToBottom .Sort.SortMethod = xlPinYin .Sort.Apply End With End Sub

Public Sub Bereich_markieren() Dim loLetzte As Long Dim raBereich As Range With Sheets("Tabelle1") loLetzte = .Range("A:A").Cells.Find("*", LookIn:=xlValues, searchdirection:=xlPrevious).Row Set raBereich = .Range(.Cells(1, 1), .Cells(loLetzte, 6)) raBereich.Select End With End Sub

Beliebteste Forumthreads (12 Monate)

Bereich auswählen letzte beschriebene Zelle

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

138 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bereich auswählen letzte beschriebene Zelle

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

138 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread