Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

schreibe bzw. lösche WENN steht

schreibe bzw. lösche WENN steht
30.01.2008 13:58:19
Mathias
Hallo zusammen,
ich hab ne excel datei, ich würde gerne wissen wie ich folgendes Problem lösen kann,
Wenn in einer Zeile "FAR" steht, groß oder kleingeschrieben dann soll diese Zeile stehen bleiben und alle anderen sollen gelöscht oder ausgeblendet werden,
und es sollen auch die spalten A,C,D,... auch gelöscht oder ausgeblendet werden.
vielen dank für hilfe.
mfg
kann leider die datei nicht hochladen, warum auch immer

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: schreibe bzw. lösche WENN steht
30.01.2008 14:47:26
Peter
Hallo Mathias,
das geht z. B. so:


Option Explicit
Public Sub Ausblenden()
Dim WkSh          As Worksheet
Dim lZeile        As Long
Dim rZelle        As Range
Dim sSuchbegriff  As String
   Set WkSh = Worksheets("Tabelle1") ' <== den Tabellenblattnamen ggf. anpassen
   sSuchbegriff = "far"
   ActiveSheet.Cells.EntireRow.Hidden = False
   For lZeile = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
      With WkSh.Rows(lZeile)
         Set rZelle = .Find(sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
         If rZelle Is Nothing Then
            Rows(lZeile).EntireRow.Hidden = True
         End If
      End With
   Next lZeile
End Sub


Gruß Peter
Anzeige
AW: schreibe bzw. lösche WENN steht
31.01.2008 14:18:31
Mathias
hallo Peter,
erstmal danke für deine schnelle antwort, leider funktioniert es net ganz so wie gewollt,
das liegt bestimmt daran, dass das "Far" in der zeile bzw. Zelle so steht:
FG.03 Fa.Hempel green 40980 FAR
wie kann ich das jetzt anpassen das es trotzdem funktioniert,
mfg

AW: schreibe bzw. lösche WENN steht
31.01.2008 14:20:00
Mathias
wollte noch ergänzend fragen, ob nur der suchbegriff geändert werden muss oder was kann ich tun,
mfg

AW: ich mach mal zu
03.02.2008 11:49:00
Hermann
Hallo,
xlWhole im Makro durch xlPart ersetzen.
Gruß
Hermann

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige