[GastForen Programme Office Microsoft Office Zellen durchsuchen und Zeilen löschen

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Zellen durchsuchen und Zeilen löschen

Freeday
Beiträge gesamt: 5712

18. Mär 2010, 15:46
Beitrag # 1 von 6
Bewertung:
(1962 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
 
Hallo Forum

Wie kann ich folgendes bewerkstelligen (Excel 2003):

• Zeile 2 bis 200 markieren
• Suchen nach "31733"
• Wenn 31733 in einer Zeile nicht vorkommt: Zeile löschen (oder ausblenden…)

Im Endeffekt will ich nur noch die Zeilen sehen, die in einer beliebigen Spalte
den Wert 31733 enthalten…

Am liebsten so, dass ich es immer wieder auf Files anwenden kann…

Gruss Stefan
X

Zellen durchsuchen und Zeilen löschen

MurphysLaw
Beiträge gesamt: 588

18. Mär 2010, 16:18
Beitrag # 2 von 6
Beitrag ID: #436994
Bewertung:
(1957 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Stefan,

ich hab keine Möglichkeit gefunden, das mit einem Autofilter zu bewerkstelligen, aber dieses Makro hier tuts:
Code
Sub SpezialFilter() 
Dim i As Integer, r As Range


For i = 2 To 200
Set r = Rows(i)
Set r = r.Find("31733")
If r Is Nothing Then
Rows(i).Hidden = True
End If
Next i

End Sub


Reicht dir das so?
:-)

Grüße,
Murphy


als Antwort auf: [#436986]

Zellen durchsuchen und Zeilen löschen

Freeday
Beiträge gesamt: 5712

18. Mär 2010, 16:31
Beitrag # 3 von 6
Beitrag ID: #436997
Bewertung:
(1951 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Murphy

Wooooho – DANKE! (ich gehe mal davon aus dass es funktioniert) :-)

Im Zusammenspiel mit dem hier:
http://office.microsoft.com/...p;pid=CR061831141031
dürfte ich es dann auch zum Laufen bringen

So kann ich meine ständig in neuen Versionen erscheinende Besteller-Liste
übersichtlich halten. Besten Dank dafür!

Gruss Stefan


als Antwort auf: [#436994]

Zellen durchsuchen und Zeilen löschen

MurphysLaw
Beiträge gesamt: 588

18. Mär 2010, 16:36
Beitrag # 4 von 6
Beitrag ID: #436998
Bewertung:
(1946 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Keine Ursache.
Und getestet hab ichs natürlich, sollte also problemlos funzen.


als Antwort auf: [#436997]

Zellen durchsuchen und Zeilen löschen

Freeday
Beiträge gesamt: 5712

18. Mär 2010, 16:48
Beitrag # 5 von 6
Beitrag ID: #437000
Bewertung:
(1942 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Das Makro habe ich soweit erstellen können. Mein copy-paste-Erstlingswerk :-)

Wie kann ich es nun für spätere Versionen dieses Excel-Files anwendbar machen?
(Wenn eine neue Liste kommt, damit ich es nicht jedes Mal neu eingeben muss…)

Gruss Stefan


als Antwort auf: [#436998]

Zellen durchsuchen und Zeilen löschen

MurphysLaw
Beiträge gesamt: 588

18. Mär 2010, 17:03
Beitrag # 6 von 6
Beitrag ID: #437002
Bewertung:
(1933 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Am einfachsten wohl, wenn Du ein Add-In daraus machst.
Also: das ganze in ein Modul in eine leere Excelmappe verfrachten, und diese als "xlt" (also als Vorlage) speichern und schließen.
Jetzt kannst Du über "Extras-Add-Ins" ==>Durchsuchen (Dateityp auf XLT umstellen) diese XLT und damit das Makro als Add-in für sämtliche Exceltabellen zur Verfügung stellen.


als Antwort auf: [#437000]
X

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/