Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen / Ersetzen VBA
 14.02.2017 12:02:38 Paul
NotSolved
14.02.2017 12:35:20 Holger
*****
Solved
14.02.2017 14:57:28 Gast92643
NotSolved

Ansicht des Beitrags:
Von:
Paul		 Datum:
14.02.2017 12:02:38		 Views:
1138		 Rating:
     
Antwort:
  Ja
Thema:
Suchen / Ersetzen VBA

Hallo Leute,

ich hoffe Ihr könnt mir weiter helfen. Ich möchte eine Suchfunktion in mein Tabellenblatt einbauen. Es wird gesucht, was in "N3:N4" steht.

Hier schon mal mein Versuch:

 

Sub SuchenLiefernummer()

    Range("C:C").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    Columns("C:C").Select

    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:=Range("N3:N4"), Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

End Sub

 

Jetzt habe ich 2 Fragen dazu:

-kann man das Select durch etwas besseres ersetzen, damit das nicht so ruckelt?

-und kann man die Suche nur auf die Spalte C beschränken?

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
Rot Suchen / Ersetzen VBA
 14.02.2017 12:02:38 Paul
NotSolved
14.02.2017 12:35:20 Holger
*****
Solved
14.02.2017 14:57:28 Gast92643
NotSolved