Office: (Office 2013) Range dynamisch im Makro festlegen

golochim · 19. August 2018

Hallo,

ich versuche zur Zeit ein Makro zu erstellen, mit dem ich die Spalte in einer Tabelle sortiere. Dazu benutze ich folgendes Makro:

Code:

Sub Sortieren()
Dim strSpalte As String
Dim strBereich As String

'Parameter
strBereich = "A1:A11"
strSpalte = "A"

'Sortieren
With Tabelle1
Range(strBereich).Sort _
Key1:=Range(strSpalte & "1"), Order1:=xlAscending, _
Header:=xlYes, MatchCase:=True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt möchte ich aber den Bereich "A1:a11" dynamisch halten, da die Tabelle nach einer Aktualisierung mehr oder weniger Zeilen haben kann.
Wie könnte ich jetzt "A11" dynamisch halten??

Gruß

Jojo

:)

hary · 20. August 2018

Moin
Ungeteste!
Code:

Sub Sortieren()
Dim letzte As Long
Dim Bereich As Range
With Tabelle1
letzte = .Cells(Rows.CountLarge, 1).End(xlUp).Row '--letzte belegte
Set Bereich = .Range("A1:A" & letzte)
Bereich.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes, MatchCase:=True
End With
Set Bereich = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

golochim · 20. August 2018

Hallo Hary,

vielen Dank für die Lösung, aber ich bekomme immer eine Fehlermeldung:

Fehler beim Kompilieren:

Unzulässige Verwendung einer Eigenschaft

Gruß

Jojo

MisterBurns · 20. August 2018

Hallo Jojo,

bei welcher Zeile kommt die Fehlermeldung? Nötigenfalls mit F8 im Einzelschritt durchgehen...

Du kannst sonst mal versuchen
Code:

letzte = .Cells(Rows.Count, 1).End(xlUp).Row '--letzte belegte
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hary · 20. August 2018

Moin
ich hatte Thread #2 geaendert. da fehlte was.
gruss hary

erpe · 20. August 2018

Hallo,

Entschuldigung, aber: Nach 350 Beiträgen solltest du schon wissen, dass deine Fehlerbeschreibung rätseln lässt.

Also wo und wie heißt die Meldung?

Gruß

Rainer

golochim · 20. August 2018

Hallo,

vielen Dank für die Hilfe.

Jetzt läuft es!!

Danke!

Gruß

Jojo

Office: (Office 2013) Range dynamisch im Makro festlegen

Range dynamisch im Makro festlegen

Range dynamisch im Makro festlegen

Range dynamisch im Makro festlegen

Range dynamisch im Makro festlegen - Similar Threads - Range dynamisch Makro

Excel Range als Bild in Word einfügen

SVERWEIS mit Range von bis funktioniert nicht?

Macro Fehler Subscript out of Range

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

2x Worksheet_Change(ByVal Target As Range)

Dynamische Range wählen

Rang Formel mit dynamischen Bezug