Autor
|
Thema: zellen löschen (2742 mal gelesen)
|
schlotti Mitglied
Beiträge: 390 Registriert: 15.01.2004
|
erstellt am: 08. Nov. 2004 15:20 <-- editieren / zitieren --> Unities abgeben:
mahlzeit, ich möchte alle zeilen in spalte a die mit "dr" löschen!! geht dies nur mit makro? wenn ja bitte beifügen. oder auch ohne makro? problem: alles soll in einem befehl bzw. mausklick passieren. also alles finden und klick alles löschen! und nicht schrittweise!! mfg schlotti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 08. Nov. 2004 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für schlotti
am Einfachsten ... Autofilter, Filtern mit Enthält "dr" , kontrollieren!, Zeilen markieren und entfernen, die nichtangezeigten Zeilen sollten so nicht gelöscht werden, anschliessend Autofilter wieder entfernen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
schlotti Mitglied
Beiträge: 390 Registriert: 15.01.2004
|
erstellt am: 09. Nov. 2004 07:23 <-- editieren / zitieren --> Unities abgeben:
guten morgen und vielen dank, aber das mit den zeilen markieren will ich nicht denn es sind immer eine unterschiedliche anzahl an zeilen mit dem inhalt! diese befehlsreihenfolge soll in ein aufgezeichnetes makro eingearbeitet werden, daher möchte ich zwischendurch nix manuell bearbeiten oder auswählen! vielleicht fällt euch ja noch was ein. mfg schlotti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 09. Nov. 2004 08:03 <-- editieren / zitieren --> Unities abgeben: Nur für schlotti
na ein wenig Handarbeit muss ohne Makro schon sein - ich hätte auch gerne einen / oder mehrere die meine Arbeit erledigen mit VBa geht so was mit einem Klick.... Code: Sub Zeilen_loeschen() Dim i As LongFor i = Range("A65536").End(xlUp).Row To 1 Step -1 Select Case Cells(i, 1) Case "dr" Rows(i).EntireRow.Delete End Select Next i End Sub
[Diese Nachricht wurde von Thomas Harmening am 09. Nov. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
schlotti Mitglied
Beiträge: 390 Registriert: 15.01.2004
|
erstellt am: 09. Nov. 2004 10:23 <-- editieren / zitieren --> Unities abgeben:
hallo, vielen dank für das schriftliche makro, ich habe dieses in mein aufgezeichnetes makro eingefügt und nun funktioniert alles mit einem mausklick, so wie ich es mir gewünscht habe. vielen dank mfg schlotti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |