Letzte beschriebene Zeile finden, Rest löschen

[luna101]

Guten Abend Ralf_
ich versuche den ganzen Abend eines von beiden Makro zum 
laufen zu bringen, leider ohne Erfolg. Wäre dankbar,
wenn ihr mir die Änderungen in die Makros einbinden würdet.
Ick könnte dann herausfinden, was ich falsch gemacht habe.
Mit dankbaren Grüssen
Martin

[ralf_b]

ich bin nicht sicher was du damit überhaupt vor hast. Wozu das Inhalte löschen nach der letzten benutzten Zeile?  Dannach ist nichts mehr.

Code:

Sub Letzte_Zeile_mit_Wert_finden_NobX()
Dim lrow As Long
Dim lrowVisibleB As Long
Dim lrowVisibleC As Long
Dim lrowVisibleD As Long
Dim k As Long
Dim Bereich As Range

     With Worksheets("Datum_ändern")
        lrow = 5000
        lrowVisibleB = .Cells(.Rows.Count, 28).End(xlUp).Row
        lrowVisibleC = .Cells(.Rows.Count, 29).End(xlUp).Row
        lrowVisibleD = .Cells(.Rows.Count, 30).End(xlUp).Row

        k = Application.WorksheetFunction.Max(lrowVisibleB, lrowVisibleC, lrowVisibleD) + 1

        Set Bereich = .Range(.Cells(k, 30), .Cells(lrow, 30))
        Bereich.ClearContents
    End With
      
End Sub

[luna101]

Guten Tag Ralf_b
mein Makroproblem ist folgendes.
In der Tabelle "Datum_ändern" werden in die Spalten "X:Z" Werte eingetragen,
die Zeilenzahl ist variabel. Sie werden dann modifiziert und in den Spalten "AB:AC"
per Formel bereinigt. Damit auch alle Werte umgewandelt werden, habe in den
den Spalten "AB3:AC1500" eine Formel hinterlegt.
Damit das anschliessende kopieren nach Tabelle1 schneller geht, möchte ich die
nicht benötigten Formeln löschen.
Beispiel:
In den Spalten "X:Z" sind 100 Zeilen (variabel) mit Daten belegt, die in den
Spalten "AB:AC" umgewandelt vorhanden sind. Ab Zeile 101 bis Zeile 1500 sollen
dann die Formeln gelöscht werden, damit das anschliessende kopieren etwas
schneller geht. Leider werden die nicht mehr benötigten Formeln nicht gelöscht.
Darum meine nochmalige Bitte um Eure Hilfe.
Mit freundlichen Grüssen Martin

[snb]

Verwende eine dynamische Tabelle (listobject), dann gibt es nie 'überflüssige' Formel.

[LCohen]

Noch ein anderer Denkansatz (via Pseudocode):

• Angenommen, in A:X stehen die Daten.
  
• In Y:Y ist eine Formel auf Vorrat herunterkopiert.
  
• Nun fügt man in VBA temporär eine Spalte Y ein.
  
• Mit Cutten = [A1].CurrentRegion.Rows.Count ermittelt man die benötigte Länge der Formelspalte, bezogen auf die Daten in A:X.
  
• Man löscht Y wieder.
  
• Nun löscht man ab Zeile Cutten+1 die Resttabelle. 
  

Das stellt den Zustand von snb's "intelligenter Tabelle" auf andere Weise her. Geht auch in Versionen vor Strg-L.

[luna101]

Guten Abend allerseits
Danke LCohen und snb für die Tip's. Werde mal versuchen sie umzustzen.
mfg Martin