Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bereiche verändern sich d. Zeilen löschen

Bereiche verändern sich d. Zeilen löschen
10.06.2008 07:51:13
Markus
Guten Morgen liebe Excel Freunde,
https://www.herber.de/bbs/user/52968.xls
Vor 2 Wochen hat mit Franz aus diesem Forum ein Makro geschrieben, um doppelte Datensätze aus einem SAP Download zu löschen. Dieses Programm funktioniert einwandfrei und erfüllt seinen Zweck, die Dateigrösse in Grenzen zu halten. Leider ist bei der praktischen täglichen Anwendung ein kleines Problem aufgetaucht.
Durch das Löschen von Zeilen verändern sich die Grössen der mit Namen definierten Bereiche (Mat_S, Nachf_S, Werk_S, siehe Beispiel) und müssen ständig wieder angepasst werden. Ausserdem müssen die Formeln in den Spalten J,K und L nach jedem Löschdurchgang wieder nach unten kopiert werden.
Kann mir jemand das Makro so ergänzen, dass nach dem Löschen die Bereiche neu definiert und die Formeln nach unten kopiert werden (bis Zeile 1000 oder mindestens bis zur Zeile des letzten Datensatzes)
Beste Grüsse
Markus

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche verändern sich d. Zeilen löschen
10.06.2008 10:43:46
Markus
Hallo Uwe,
Danke für Deinen Hinweis.
Dies könnte so funktionieren, würde jedoch einen recht grossen Aufwand bedeuten, da ich an vielen Orten in mehreren Tabellenblättern die Formeln entsprechend modifizieren müsste.
Vielleicht erbarmt sich ja jemand und hilft mir mit dem Makro ansonsten werde ich es damit versuchen.
Beste Grüsse und einen schönen Tag
Markus

Anzeige
Noch offen (owT)
10.06.2008 10:45:00
Markus

AW: Noch offen (owT)
10.06.2008 10:46:17
Markus

AW: Noch offen (owT)
10.06.2008 10:46:00
Markus

Anzeige
AW: Noch offen (owT)
12.06.2008 20:26:00
Tino
Hallo,
hier mal ein Code um die Namen und deren Bereiche neu festzulegen.
Läuft unter 2007, hoffentlich auch unter XP!

Sub NameBereich()
Dim Bereich As Range, strAdresse As String
Set Bereich = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
strAdresse = "=Download_SQ01!" & Bereich.Address(, , xlR1C1)
ActiveWorkbook.Names("Mat_S").RefersToR1C1 = strAdresse
strAdresse = "=Download_SQ01!" & Bereich.Offset(0, 2).Address(, , xlR1C1)
ActiveWorkbook.Names("Werk_S").RefersToR1C1 = strAdresse
strAdresse = "=Download_SQ01!" & Bereich.Offset(0, 3).Address(, , xlR1C1)
ActiveWorkbook.Names("Nachf_S").RefersToR1C1 = strAdresse
Set Bereich = Nothing
End Sub


Gruß Tino
www.tinomargit.com

Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige