Eine "Zelle" filtern und in diese Zelle...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Eine "Zelle" filtern und in diese Zelle...
von: Destreux
Geschrieben am: 28.06.2002 - 08:53:48

einen leeren inhalt erzeugen.

Hallo erstmal!

Also, ich versuche in VBA ein Makro zu schreiben welches alle Zellen durchgeht und nach einem bestimmten inhalt durchsucht. Alles was diesen Inhalt nicht hat soll automatisch gelöscht werden. Das Problem beim Autofilter ist jedoch das er dierekt die ganze Zeile bzw Spalte löscht. Mein Makro soll einfach nur eine Zelle in der vorher etwas stand durch eine leere Zelle ersetzen.

habt ihr eine Idee wie ich ein solches Makro schreibe, oder ob jemand ein solches Makro besitzt?

Hoffe ich hab es verständlich erklärt....

Vielen Dank schonmal!

Destreux


nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: holger
Geschrieben am: 28.06.2002 - 09:16:24

please try somethig like this:

Private Sub deleteZelle()
Dim i As Long
Dim j As Long
Dim SuchText As String
SuchText = "löschmich"
'i und j : Anzahl der zu durchsuchenden rows,columns
For i = 1 To 30
For j = 1 To 30
If InStr(1, Tabelle1.Cells(i, j), SuchText) <> 0 Then Tabelle1.Cells(i, j) = ""
Next j
Next i
End Sub

Private Sub CommandButton1_Click()
deleteZelle
End Sub

nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Hajo_Zi
Geschrieben am: 28.06.2002 - 09:17:19

Hallo Destreux

kanns klar ist mir nicht was Auto Filter mit Deinem Makro und löschen zu tun hat. Darum mal ins blaue folgenden Ansatz.


Sub Zelle_Leeren()
'   Spalte A
    Dim As Long
    For I = ActiveSheet.Cells.SpecialCells(xlLastCell).Row To Step -1
        On Error Resume Next
        If Cells(I, 1) = "Test" Then Cells(I, 1) = ""
    Next I
End Sub

Gruß Hajo


nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Otto
Geschrieben am: 28.06.2002 - 09:20:32

Hallo Destreux,

was hältst Du von dieser Lösung ohne Autofilter:

Option Explicit

Sub Haupt()
   Call UP
End Sub  

Sub UP()
   Dim rngZelle As Range  
   
   For Each rngZelle In ThisWorkbook.Worksheets("Tabelle2").UsedRange    
      If rngZelle <> "daba daba du" Then  
         rngZelle.Clear
      End If  
   Next rngZelle
End Sub  

Gruß Otto

nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Destreux
Geschrieben am: 28.06.2002 - 09:36:50

Das Problem ist nur das ich will das die wörter die mit "L" angezeigt werden sollen, (rausgefiltert werden sollen) und die anderen wörter durch eine leere zelle ersetzt werden...


trotzdem danke


nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Martin Beck
Geschrieben am: 28.06.2002 - 09:49:57

Hallo,

eine gute Problembeschreibung hilft bei der Suche nach einer Lösung. Für Dein zuerst geschildertes Problen hast Du 3(!) funktionierende LÖsungen erhalten. Wenn die bei Dir nicht funktionieren, dann beschreibe doch mal, woran es hapert.

Wenn Du etwas anderes erreichen willst, als Du zunächst gefragt hast, formuliere das Problem neu.

Was hat es z.B. mit dem "L" auf sich?

Gruß
Martin Beck


nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Otto
Geschrieben am: 28.06.2002 - 09:50:20

Hallo Destreux,

Erläutere bitte mal mit einem Beispiel was die wörter die mit "L" angezeigt werden bedeutet. Dann kann Dir geholfen werden.

Gruß Otto


nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Destreux
Geschrieben am: 28.06.2002 - 10:01:17

Ich meine das ich beispielsweise nen namen habe der lautet 882.d2d.L
ich will das die wörter die am ende dieses L stehen haben nur noch in der Tabelle zu finden sind. alles andere soll rausgefiltert werden

nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Otto
Geschrieben am: 28.06.2002 - 10:07:04

Hallo Destreux,

dann hilft:

Option Explicit

Sub Haupt()
   Call UP
End Sub  

Sub UP()
   Dim rngZelle As Range  
   
   For Each rngZelle In ThisWorkbook.Worksheets("Tabelle2").UsedRange    
      If Right(rngZelle, 1) <> "L" Then  
         rngZelle.Clear
      End If  
   Next rngZelle
End Sub  

Gruß Otto

nach oben   nach unten

Korrektur
von: Otto
Geschrieben am: 28.06.2002 - 10:09:53

Hallo Destreux,

besser wär

Option Explicit

Sub Haupt()
   Call UP
End Sub  

Sub UP()
   Dim rngZelle As Range  
   
   For Each rngZelle In ThisWorkbook.Worksheets("Tabelle2").UsedRange    
      If Right(rngZelle.Text, 1) <> "L" Then  
         rngZelle.Clear
      End If  
   Next rngZelle
End Sub  

Gruß Otto


nach oben   nach unten

Re: Eine "Zelle" filtern und in diese Zelle...
von: Destreux
Geschrieben am: 28.06.2002 - 10:11:01

DANKE!! Es funktioniert jetzt! Bis dann Destreux

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Eine "Zelle" filtern und in diese Zelle..."