Makro in Excel soll bestimme Zeilen löschen, oberste Zeile aber nicht

Hallo Eva,

was genau willst du machen? Mit LRow ist dein Bereich doch dynamisch an die Zeilenanzahl angepasst.

Wenn du einen dynamischen Bereichsnamen erstellen willst, lass doch einfach die Überschrift aus dem Bereich raus. Wenn "Endtermin" in Spalte D ist, dann vergebe den Namen Endtermin und schreibe bei bezieht sich auf:

=BEREICH.VERSCHIEBEN($D$2;;;ANZAHL2($D:$D)-1)

Damit hast du immer die komplette Spalte ohne Überschrift. Fur die Zelle davor kannst du dann auch einen Namen vergeben und bei "Bezieht sich auf" eingeben:

=BEREICH.VERSCHIEBEN(Endtermin;;-1)

Dann kannst du diesen Namen im Makro verwenden.

Wenn du es auf deine Weise machen willst, musst du von der ersten Zelle des Bereichs ausgehen:

Range("Endtermin").Cells(1).Offset(1, -1).Resize(LRow-1).Select

Claus

Hallo,

ich habe noch einmal eine Frage... die Angabe des Bereichs Range finde ich sehr schwierig, wenn man mit dynamischen Bezügen arbeiten will, damit habe ich mich in verschiedenen Varianten schon den ganzen Tag geplagt.

Ich habe eine Spalte, der Name dessen erster Zeile (also quasi Spaltenüberschrift) ist "Endtermin", das habe ich mir so benannt, um die Bezüge zu vereinfachen. In der Spalte davor (diese wird automatisch erstellt, das klappt auch, damit ist der Bezug dynamisch,
auch wenn im folgenden mit "-1" der Bezug nur relativ ist) möchte ich nun ab Zeile zwei bis zum Ende der Tabelle (mit LRow) eine Formel einfügen.

Das mit der Formel werde ich schon hinbekommen, aber ich habe im folgenden einfach schrittweise versucht die Bereich zu markieren, um zu überprüfen, ob ich den Bereich richtig definiert habe.

------

Sub Testmakro()

Dim LRow As Long



With ActiveSheet



LRow = Cells(Rows.Count, "A").End(xlUp).Row

.Range(("Endtermin").Offset(1, -1).EntireColumn)& LRow).Select

'Offset soll mich hier von der Zelle Endtermin 1 nach links und 1 nach unten bewegen, von dort die ganze Spalte hinunter bis zur letzten definierten Reihe gemäß LRow



End With



End Sub

------------------------

Ich habe diverse unterschiedliche Eingaben nach der Funktion Range ausprobiert, um die Analogie herzustellen zur Eingabe von Claus' letztem Lösungsvorschlag [Range("C2:C" & LRow)], aber es werden mir immer wieder unterschiedliche Fehler gegeben. Ich habe
es mit Kommata, Und-Zeichen etc. probiert, leider hat nichts zum gewünschten Ergebnis geführt...

Würde mich über nochmalige Hilfe freuen.

Danke und viele Grüße

Hallo Eva,

dann verwende den geposteten VBA-Befehl.

Oder ändere den Bezug für den Namen Endtermin auf:

=BEREICH.VERSCHIEBEN($A$2;;VERGLEICH("Endtermin";$A$1:$Z$1;0)-1;ANZAHL2($A:$A)-1)

Claus

Ja super, vielen Dank! Jetzt macht es für mich Sinn und ich kann es beim nächsten Versuch besser anwenden

Hallo Eva,

[i]Dim LRow As Long, LCol As Long     [b]'Letzte belegte Zeile, letzte belegte Spalte[/b][/i]

[i][b]'Mit Dim lege ich eine Variable fest, die ich verwenden möchte. Mit As definiere ich diese, Long steht dabei für eine Ganzzahl.[/b][/i][i]With ActiveSheet[/i]

[i][b]'with bezeichnet das Objekt, das ich im folgenden verwende[/b][/i]

[i]    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row[/i]    [b]'Cells hat immer zwei Argumente, zuerst Zeile dann Spalte. Es werden also die Zellen der Spalte 1 (A) von unten her         'gezählt.
[/b][b]Das ist zuverlässiger als von oben wegen eventueller Leerzellen.[/b]   [i]    LCol = .Cells(1, Columns.Count).End(xlToLeft).Column[/i]     [b]'Hier das Gleiche. Es werden in der ersten Zeile die Spalten von rechts nach links gezählt[/b]    [i]    .Range(.Cells(1, 1), .Cells(LRow, LCol)).AutoFilter Field:=3, Criteria1:="STORNIERT"[/i]       [b]'Hier wird ein Bereich beschrieben mit Range(erste Zelle, letzte Zelle). Die Zelle A1 (1,1) ist die erste, die             'letzte Zelle wird mit der letzten gefüllten Zeile und Spalte beschrieben.[/b]   [i]    .Range("A2:A" & LRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete[/i]

    [i][b]'im Bereich A ab der zweiten Zeile sollen alle sichtbaren Zeilen gelöscht werden[/b][/i]

[i]    .AutoFilterMode = False[/i]

    [i][b]'Abschaltung des Autofilters[/b][/i][i]End With[/i][i]End Sub[/i]

reicht dir das so?

Claus