Bereich verschieben, VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rolf,

danke für den Hinweis, hab ich sofort geändert.

Was soll ich sagen, du hast recht davon habe ich nichts erwähnt. Ich muss allerdings auch zu meiner Verteidigung sagen, ich konnte die komplette Datei nicht hochladen, weil zu groß. Also musste ich es auf das beschränken, was ich als Laie für relevant gehalten habe um das Problem zu lösen und die Anzahl der Blätter hatte da nicht dazugehört.

Da gab es halt einen Unterschied zwischen dem was ein Laie für relevant hält und dem was für einen Profi dann wirklich relevant ist. Hätte ich einfach die komplette Datei hochladen können wäre mir viel Arbeit erspart geblieben eine gesonderte Bsp Datei zu erstellen, du hättest alle Infos gehabt und dieses Misverständnis hätte es nicht gegeben.

Aber sorry das war keine böse Absicht von mir.

Gruß
Christian

Sub Unit283() Const strWort As String = "tracking" Const lngZeile As Long = 283 Const lngLoeschZeile As Long = 92 Dim Such As Range, Loesch As Range Set Such = ActiveSheet.Rows(lngZeile).Find(strWort, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False) If Not Such Is Nothing Then strErste = Such.Address Do If Loesch Is Nothing Then Set Loesch = Such Else Set Loesch = Union(Loesch, Such) End If Set Such = ActiveSheet.Rows(lngZeile).FindNext(Such) Loop Until Such.Address = strErste End If If Not Loesch Is Nothing Then Loesch.ClearContents Loesch.Offset(lngZeile - lngLoeschZeile).Delete shift:=xlUp Set Such = Nothing End If End Sub

Hallo Herbert,

erstmal danke dass du dich um mein Anliegen kümmerst.
Die Beispieldatei ist zugegebenermaßen stark vereinfacht.

Die Realität sieht so aus, dass in der Standardspalte so wie sie im Endeffekt aussehen soll in jeder Spalte die Texte 1 bis 75 identisch sind, sowie auch die Texte 212 bis 282.
Die Texte 76 bis 211 unterscheiden sich in jeder Spalte.

In den Spalten, in denen sich was ändern soll, hat sich in Zeile 92 ein zusätzlicher Text eingeschlichen, wodurch die Texte 93 bis 282 um eine Zelle nach unten gerutscht sind.
(falls das was hilft, diese zusätzlichen Texte sind nicht identisch, beginnen aber alle mit MRS)

Das Ziel des Ganzen ist es, im Endeffekt, diese Texte die nach unten geschoben sind wieder nach oben zu rücken, um die Zeilen 1 bis 75 und 212 bis 282 löschen zu können ohne dass wichtige Daten verloren gehen um dann im nächsten Schritt das ganze mit PQ aufzubereiten wie ich es brauche... (keine Angst die PQ Abfragen habe ich schon und sie funktionieren auch) aber das ist so das was dahintersteckt

Gruß
Christian

PS: Wenn du dich jetzt fragst, warum diese Unterschiede in den Texten jetzt erst erwähnt werden. Ich bin davon ausgegangen, dass mein Lösungsansatz ausreicht ihn umzusetzen und er reicht ja auch aus. Diese Info hätte in meinen Augen zu dem Zeitpunkt als ich die Frage gestellt habe Verwirrung gestiftet

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bereich verschieben, VBA

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread