| | | Die 10 hitzebeständigsten Materialien für den 3D-Druck, ein Fachartikel
|
Autor
|
Thema: Zeilen löschen (477 mal gelesen)
|
piston Mitglied Konstrukteur
Beiträge: 140 Registriert: 18.05.2004 Pro/E WF4<P>Windows XP 64bit
|
erstellt am: 17. Apr. 2010 14:28 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich möchte in einer Berechnungstabelle einen bestimmten Wert in der Spalte A suchen und alle Zeilen darüber, bzw. einen Wert in Spalte A suchen und alle Zeilen darunter löschen. Kann mir jemand bitte behilflich sein - Danke! THX!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 17. Apr. 2010 14:55 <-- editieren / zitieren --> Unities abgeben: Nur für piston
Hi, löscht ohne weitere Nachfrage alle Zeilen vor oder nach dem ersten Auftreten eines einzugebenden Suchbegriffs in Spalte A: Code: Option ExplicitSub SearchAndDelete() Dim LZA% Dim objCell As Range LZA = Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row Set objCell = Columns(1).Find(What:=InputBox("Bitte Suchbegriff angeben", "Suchbegriff"), After:=Cells(Rows.Count, 1)) If Not objCell Is Nothing Then Rows(1 & ":" & objCell.Row - 1).Delete 'Rows(objCell.Row+1 & ":" & LZA).Delete End If End Sub
und wenn gewährleistet ist, dass der Suchbegriff vorh. ist, reicht sogar jeweils eine Zeile:
Code: Sub SAD() Rows(Columns(1).Find(What:=InputBox("Bitte Suchbegriff angeben", "Suchbegriff"), After:=Cells(Rows.Count, 1)).Row + 1 & ":" & Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row).Delete 'Rows(1 & ":" & Columns(1).Find(What:=InputBox("Bitte Suchbegriff angeben", "Suchbegriff"), After:=Cells(Rows.Count, 1)).Row - 1).Delete End Sub
------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 17. Apr. 2010 15:42 <-- editieren / zitieren --> Unities abgeben: Nur für piston
Ohne VBA, per Tastatur Strg + F - Suchbegriff eingeben - Enter bringt Dich zum Treffer Pfeil nach oben/Pfeil nach unten-Taste (je nachdem, ob Du darüber oder darunter löschen möchtest) Strg + Shift + Pfeil-Taste, ggf. Pfeil-Taste 2x, 3x, ... drücken markiert aktive Spalte bis zum nächsten Block bzw. bis zum Ende Shift + Leertaste markiert sämtliche zugehörigen Zeilen Entf Kommt darauf an, die Daten auf Deinem Register organisiert sind, evtl. ist dieser Weg etwas umständlich. Wie oft wird's benötigt? ------------------ DIN1055.de | Lastannahmen für Anwender NEU: Foren zu DIN 1055 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
piston Mitglied Konstrukteur
Beiträge: 140 Registriert: 18.05.2004 Pro/E WF4<P>Windows XP 64bit
|
erstellt am: 19. Apr. 2010 11:03 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|