Thema Datum  Von Nutzer Rating
Antwort
15.01.2013 11:27:15 Alexander
Solved
Blau Excel 2010 - Find & Count verbinden & zusätzlich ClearContents
 18.01.2013 09:54:23 Gast2741
Solved

Ansicht des Beitrags:
Von:
Gast2741		 Datum:
18.01.2013 09:54:23		 Views:
2046		 Rating:
     
Antwort:
 Nein
Thema:
Excel 2010 - Find & Count verbinden & zusätzlich ClearContents

Guten Tag

Falls wer etwas ähnliches braucht, hier die funktionierende Lösung.

Gruss Alexander

 

Sub Suche()
Dim ws As Worksheet ' Arbeitsblatt
Dim Rows As Integer ' Zeilen
Dim Index As Integer ' Anzahl Zeilen
Dim tmp As String   ' Enthält den Standort, wo gesucht wird
Dim Suchtext As String ' Enthält String nachdem gesucht wird
Dim nPos As Integer ' Position des Strings im durchsuchten Text

   
Suchtext = InputBox("Geben Sie den Suchbegriff ein:")   ' Was gesucht werden muss
For Each ws In ActiveWorkbook.Worksheets
         Index = 2                             ' Suche beginnt ab Zeile 2
         While Not IsEmpty(ws.Cells(Index, 1)) ' Suchen bis Zeile Leer ist
            tmp = ws.Cells(Index, 2)           ' Wo gesucht werden muss
            nPos = InStr(tmp, Suchtext)        ' Suche
            If nPos > 0 Then
              'ws.Range(Rows(Index), Rows(Index)).EntireRow.Delete
              'MsgBox Index & " " & nPos '
              ws.Rows(Index & ":" & Index).EntireRow.Delete ' Wenn gefunden, dann Zeile löschen
            End If
            Index = Index + 1   ' Weiter zur nächsten Zeile
         Wend
Next ws     ' Weiter zum nächsten Arbeitsblatt und von vorne
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.01.2013 11:27:15 Alexander
Solved
Blau Excel 2010 - Find & Count verbinden & zusätzlich ClearContents
 18.01.2013 09:54:23 Gast2741
Solved