Office: Zellen löschen wenn Bedingung erfüllt

heyhey

Ich benutze derzeit diesen Code:
Private Sub CommandButton1_Click()
Dim rng
Dim loLetzte As Long

With Worksheets("Main")
loLetzte = .Cells(.Rows.Count, "AS").End(xlUp).Row
.Range("AS1:AT" & loLetzte).Copy
Worksheets("Daten").Range("A1").PasteSpecial Paste:=xlPasteValues
End With

Worksheets("Daten").Range("A:B").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftUp
End Sub

Den möchte ich jetzt so erweitern, dass in "Daten" die Zellen A-D gelöscht werden, wenn in B eine 2 steht. Kann mir dabei jemand helfen?

Viele Grüße
Lea

:)

 

Was heißt das, wenn in einer bestimmten Zelle in der Spalte eine 2 steht oder wenn irgenwo in Spalte B eine 2 steht ?

 

jede Zelle der Spalte B soll überprüft werden und überall wo eine 2 gefunden wurde soll dann, wie oben beschrieben, die zellen der Spalten A-D gelöscht werden *wink.gif*

 

Hallo Sophie, Lea, Laura, ..........

es ist ja schon mal toll, dass du in deinen Beiträgen Namen angibst, mit denen man dich ansprechen kann. Es ist auch völlig OK, wenn jemand seinen richtigen Namen nicht angeben möchte. Man kann aber schon erwarten, dass sich jemand nicht unter ständig wechselnden Usernamen meldet. Es wäre daher schön, wenn du bei einem der Usernamen bleiben würdest.

Zu deinem Problem noch eine kleine Rückfrage: Steht die 2 alleine in der Zelle oder ist das nur ein Teil des gesamten Zellinhaltes?

Gruß Ingolf

 

sorry wir sitzen hier alle am selben problem, da wir mit vba noch nicht so viel zu tun hatten.

die 2 steht alleine in der zelle

 

Hallo zusammen,

na, wenn ihr tatsächlich mehrere seit, dann entschuldigt bitte meinen ungerechtfertigten Vorwurf. Wenn ihr für dasselbe Projekt noch weitere Fragen habt, wäre es allerdings trotzdem von Vorteil, wenn ihr dafür nur einen Usernamen verwenden würdet. Oft kann man nämlich aus früheren Beiträgen noch Infos bekommen, die man sonst nochmal anfragen müsste. Dafür muss man aber die früheren Beiträge auch finden, was bei unterschiedlichen Usernamen schwierig bis unmöglich ist.

Ich habe mal etwas zusammengeschrieben, was die betreffenden Zellen zunächst leert und anschließend - wie alle anderen Leerzellen - komplett löscht:

Gruß Ingolf

 

Ok das werden wir ab sofort berücksichtigen.

Dein Code funktioniert leider noch nicht so ganz. Kurz nach dem Start hört er hier auf
"Loop While Not rng Is Nothing And rng.Address sFirst"
und meldet einen Laufzeitfehler 91 (Objektvarialbe oder With-Blockvariable nicht festgelegt)

Woran kann das liegen?

Viele Grüße
Laura

 

Hallo zusammen,

für die Find-Methode gibt es in der VBA-Hilfe ein vorgefertigtes Beispiel, welches ich mir rauskopiert und umgestrickt habe. Dabei habe ich übersehen, dass man einen Teil dieses Beispiels für eure Geschichte gar nicht braucht, dass er vielmehr sogar einen Laufzeitfehler produziert. Ich habe das jetzt rausgenommen und nun müsste es durchlaufen:

Gruß Ingolf

 

Sorry, dass ich dich so auf Trapphalte^^
aber es passt bei uns immer noch nicht so ganz.

Vielleicht habe ich mich auch falsch ausgedrückt..
Wenn er eine 2 findet und diese dann löscht muss er auch die dazugehörigen Zellen der Spalte A-D in der gleichen Zeile mitlöschen.

Also wenn er in B4 eine 2 findet müssen die Zellen A4,B4,C4 und D4 gelöscht werden.

Ist das möglich?

Viele Grüße
Laura

 

Hallo zusammen,

nicht du hast dich nicht falsch ausgedrückt, sondern ich hab's übersehen. Hier nochmal der Code im Ganzen:

Gruß Ingolf

 

Heute scheint echt der Wurm drin zu sein *biggrin.gif*
Wird Zeit, dass ich ins Wochenende komme *wink.gif*

Laufzeitfehler 1004 (Find-Next Eigenschaft des Range-Objects kann nicht zugeordnet werden).
An dieser Stelle:
Set rng = .FindNext(rng)

Vielen Dank für deine Mühe
Laura

 

Hallo zusammen,

die letzte Änderung erfordert noch eine weitere Änderung. Hoffentlich klappt's jetzt, so langsam wird's mir peinlich:

Gruß Ingolf

 

Genial jetzt klappts *wink.gif*

Vielen Dank und ein schönes Wochenende
Laura