Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

veränderbarer Bereich VBA

Forumthread: veränderbarer Bereich VBA

veränderbarer Bereich VBA
03.05.2024 10:43:56
Jay
Einen schönen guten Morgen,

ich möchte einen Bereich per VBA markieren, der sich aber ständig nach unten verschiebt
Sollte wie folgt aussehen: Range("D2123:E2137").ClearContents - aber nicht mit festgelegten Zeilennummern
Mit XLLeft oder XLUp funktioniert nicht, weil Spalten weiterrechts und weiter unten bereits Werte enthalten.

Ich bekomms nicht hin :-(

Hat jemand eine Lösung für mich? Vielen Dank

Jay
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: veränderbarer Bereich VBA
03.05.2024 11:00:35
ralf_b
wenn der bereich zusammenhängend ist, un zu anderen bereichen abgegrenzt.

Range("D2123").currentregion.select

oder versuche es mit xldown statt xlup. dann gehst du von der benannten Zelle nach unten . Hier dürfen aber keine leeren Zellen im Wege stehen.
AW: veränderbarer Bereich VBA
03.05.2024 11:47:07
Trägheit
Moin.

Hast du schon versucht dem Bereich einen Namen zu geben? Der Bereich kann sich dann verschieben wie er will, unter dem Namen findest du ihn immer wieder.

Einen Namen kannst du entweder im Feld links von der Formel-Eingabe setzen - da wo normalerweise immer die aktuell ausgewählte Zelladdresse drin steht - oder über das Menü: Formeln » Namens-Manager
Wenn der gesetzte Name zum Beispiel tblBereich1 lautet, kannst du so darauf zugreifen: 


Set rng = Worksheets("Tabelle1").Range("tblBereich1")


Grüße
PS: Falls notwendig, kannst du auf mehreren Tabellenblättern den gleichen Namen vergeben - dann aber über den Namens-Manager.
Anzeige
AW: veränderbarer Bereich VBA
03.05.2024 12:35:00
daniel
Hi
und wie stehts mit den Spalten weiter links?
stehen da auch Werte?

du sollest uns das ganze mal zeigen, damit wir eine Idee entwickeln können, wie man die Zeilennummer ermitteln kann.

Gruß Daniel
AW: veränderbarer Bereich VBA
03.05.2024 12:40:27
Jay
Nein, da stehen keine Werte

Die Datei selbst darf ich aus Datenschutzgründen nicht zeigen :-(
Gruß
Jay
Anzeige
AW: veränderbarer Bereich VBA
03.05.2024 12:51:13
daniel
dann musst du aus Datenschutzgründen selber auf die Idee kommen ;-)

die Zeile, ab der gelöscht werden muss, muss ja irgendwie ermittelt werden.
das kann nur auf Basis der vorhandenen Daten passieren. Dazu müssen wir wissen, wie die Tabelle aussieht.
vielleicht gibt es ja in den darüber liegenden Zellen einen bestimmten Wert, der nur in der untersten Zeile steht, und den man suchen könnte..
Es gibt viele Möglichkeiten die man Einsetzen kann, zu viele um jetzt alle hier zu beschreiben, deswegen solltest du die Tabelle zeigen. vielleicht kannst du sensible Inhalte durch "xxx" ersetzt?

Gruß Daniel
Anzeige
AW: veränderbarer Bereich VBA
03.05.2024 11:18:27
Jay
Hallo Ralf,
vielen Dank für Deine Antwort, aber das geht leider nicht
Gruß
Jay
AW: veränderbarer Bereich VBA: Offset
03.05.2024 11:53:56
MCO
Moin!

Du musst dich schon irgendwie äußern, anhand von was du denn die Verschiebung festmachst.
Wenn du das jedesmal individuell abfragen willst, dann geht das natürlich auch: 

Sub sversch()

    antw = Application.InputBox("wieviele Zeilen möchtest du verschieben?", vbOKOnly)

    Range("D2123:E2137").Offset(antw, 0).Select

End Sub

Sub sversch2()

    antw = Application.InputBox("wieviele Zeilen möchtest du verschieben?", "Verschieben")

    zeil = Application.InputBox("wieviele Zeilen möchtest du markieren?", "Zeilenzahl")

    Range("D2123").Resize(zeil, 2).Offset(antw, 0).Select

End Sub


Gruß, MCO
Anzeige
AW: veränderbarer Bereich VBA: Offset
03.05.2024 12:10:13
Jay
Nein, ums Verschieben geht es nicht

es ist eine Tabelle, die nach und nach per VBA gefüllt wird und unterhalb dem letzten Eintrag
kommen noch überflüssige Angaben, die ich dann per VBA löschen will.
Der zu löschende Bereich in Spalten D u E ändert sich immer weiter nach unten, daher geht
es nicht mit der Zeilennummernangabe.

Wahrscheinlich werde ich es dann weiterhin manuell machen müssen

Danke für Eure Bemühungen!

Gruß
Jay
Anzeige
AW: veränderbarer Bereich VBA: Offset
03.05.2024 12:22:59
MCO
Hi!

Natürlich kannst du das, was du von hand machst auch automatisieren.
Sag uns uns doch mal, wie sich die überflüssigen Daten von den wahren unterscheiden. Irgendwie schaffst du es ja auch, die Datensätze zu unterscheiden.
Anderer Text? weniger / mehr spalten befüllt? Anderes Format?

Revolutioniär wäre es ja auch, mal eine Beispielmappe hier reinzusetzen....

Du glaubst nicht, was man alles abfragen und bearbeiten kann...

Gruß, MCO
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige