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
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
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